VISUAL BASIC程序设计上机考试试题及答案

1.某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。

Option Explicit

Dim a(1To20)As Integer,i As Integer,j As Integer,t As Integer

Private Sub Form_Load()

Show

Print"原始数组是："

Randomize

For i=1To20

a(i)=Int(Rnd*90)+10

Print a(i);

Next i

Print

Print"现在数组是："

For i=1To10

j=21-i

t=a(i):a(i)=a(j):a(j)=t

Next i

For i=1To20

Print a(i);

Next i

End Sub

2.从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”

注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；

2）能实现多次删除

Option Explicit

Dim a()As Integer,i As Integer,j As Integer,n As Integer,k As Integer,m As Integer

Dim f As Boolean

Private Sub Command1_Click()

n=InputBox("查找的数是：","请输入")

i=0:f=False

Do

If a(i)=n Then

j=i:f=True

For k=j To UBound(a)-1

a(k)=a(k+1)

Next k

ReDim Preserve a(UBound(a)-1)

i=i-1

End If

i=i+1

Loop While(i<=UBound(a))

If f=False Then

MsgBox n&"不在该数组中"

Else

Print"删除"&n&"后的数组是:"

For i=0To UBound(a)

Print a(i);

Next i

End If

Print

End Sub

Private Sub Form_Load()

Show

ReDim a(9)As Integer

m=1

Print"原来数组为："

For i=0To9

a(i)=InputBox("请输入第"&m&"个数：")

Print a(i);

m=m+1

Next i

Print

End Sub

3.数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。

注意：要求利用动态数组，能够实现多次插入

Option Explicit

Dim a()As Variant,i As Integer,n As Integer,j As Integer,b As Integer,c As Integer

Private Sub Command1_Click()

Print

ReDim Preserve a(c+1)

n=InputBox("插入的数是","请输入")

For i=0To c

b=n-a(i)

If b<=0Then

For j=c+1To i+1Step-1

a(j)=a(j-1)

Next j

a(i)=n

Exit For

End If

Next i

If i=c+1Then a(c+1)=n

For i=0To c+1

Print a(i);

Next i

c=UBound(a)

End Sub

Private Sub Form_Load()

Show

ReDim a(9)

a=Array(3,6,9,11,15,19,33,44,56,67)

c=UBound(a)

For i=0To c

Print a(i);

Next i

End Sub

4.6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。

如：歌手395分

歌手187分

歌手480分

歌手270分

Option Explicit

Dim a(4)As Integer,m(4)As Integer,i As Integer,j As Integer,t As Integer,min As Integer,max As Integer, p As Integer

Dim s(4)As Integer

Private Sub Form_Load()

Show

For i=1To4

s(i)=0

min=100:max=1

For j=1To6

a(i)=InputBox("第"&j&"个评委给"&i&"打分1-100")

s(i)=s(i)+a(i)

If a(i)>max Then max=a(i)

If a(i)

Next j

a(i)=(s(i)-min-max)/4

m(i)=a(i)

Next i

For i=1To3

p=i

For j=i+1To4

If a(j)>a(p)Then p=j

Next j

t=a(i):a(i)=a(p):a(p)=t

Next i

For i=1To4

For j=1To4

If a(i)=m(j)Then

Print"歌手"&j&""&a(i)&"分"

Exit For

End If

Next j

Next i

End Sub

5.把文本框1、文本框2指定的范围内的所有素数添加到列表框中，并选中列表框数据中最后一位是9的所有数据(设定selected属性)，把它们的和值输出。Option Explicit

Dim a As Long,b As Long,i As Integer,j As Integer,k As Integer,s As Integer

Private Sub Command1_Click()

a=Text1.Text:b=Text2.Text

For i=a To b

For j=2To i-1

If i Mod j=0Then Exit For

Next j

If j=i Then

List1.AddItem i

If Right(i,1)=9Then List1.Selected(k)=True:s=s+i

k=k+1

End If

Next i

Label3.Caption="列表框数据中最后一位是9的所有数据和为："&s

End Sub

6.任意输入一组字符，统计出大写字母（65-90）多少个，小写字母（97-122）多少个，数字（48-57）多少个？要求用过程实现。

Option Explicit

Dim a As String,m As Integer,j As Integer,n As Integer,i As Integer,b As String

Private Sub Command1_Click()

zf

Label1.Caption="大写字母"&m&"个"&"小写字母"&n&"个"&"数字"&j&"个" End Sub

Private Function zf()

a=Text1.Text

For i=1To Len(a)

b=Asc(Mid(a,i,1))

If b>=48And b<=57Then j=j+1

If b>=65And b<=90Then m=m+1

If b>=97And b<=122Then n=n+1

Next i

End Function

Private Sub Form_Load()

End Sub

7.随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

Option Explicit

Option Base1

Dim a(5,5)As Integer,i As Integer,j As Integer,s As Integer

Private Sub Form_Load()

Show

Randomize

For i=1To5

For j=1To5

a(i,j)=Int(Rnd*100+1)

If i=1And j=1Then a(i,j)=1

If i=1And j=5Then a(i,j)=1

If i=5And j=1Then a(i,j)=1

If i=5And j=5Then a(i,j)=1

Print a(i,j);

Next j

Print:Print

Next i

For i=1To5

s=s+a(1,i)+a(5,i)

Next i

For i=2To4

s=s+a(i,1)+a(5,i)

Next i

List1.AddItem s

End Sub

8.编写一个函数，能将字母按下列规律译成密码：

A<-->Z a<-->z

B<-->Y b<-->y

即第1个字母与第26个字母互换，第i个字母与第(26-i+1)个字母互换。在文任意输入一个字符串，调用该函数将密码显示在另一个文本框中。

Option Explicit

Dim a As String,i As Integer,b As Integer

Private Sub Command1_Click()

yima

End Sub

Private Function yima()

a=Text1.Text

For i=1To Len(a)

b=Asc(Mid(a,i,1))

If b<=90Then Text2=Text2+Chr(155-b)

If b>=97Then Text2=Text2+Chr(219-b)

Next i

End Function

Private Sub Form_Load()

End Sub

9.编写2个函数，分别求两个正整数的最大公约数和最小公倍数，用户任意输入两个数，采用函数嵌套调用，该函数将它们在窗体显示。

Private Function gy()

a=Val(Text1.Text):b=Val(Text2.Text)

If a

c=a:a=b:b=c

End If

Do

If a Mod b=0Then Exit Do

c=b

b=a Mod b

a=c

Loop

gy=b

End Function

Private Function gb()

a=Val(Text1.Text):b=Val(Text2.Text)

gb=a*b/gy

End Function

Private Sub Command2_Click()

Print Text1.Text&"和"&Text2.Text&"的最小公倍数为："&gb

End Sub

Private Sub Form_Load()

End Sub

10.编写计算阶乘的Function过程，利用e x的下列公式计算e（直到最后一项小于10-6为止）的近似值。

Option Explicit

Dim j As Integer,b As Long,i As Integer

Private Sub Command1_Click()

Label1.Caption="e的近似值为："&jc+1

End Sub

Public Function jc()

i=1

b=1

Do

For j=1To i

b=b*j

Next j

jc=jc+1/b

i=i+1

Loop Until1/b<10^(-6)

End Function

Private Sub Form_Load()

End Sub

11.输入整数N，显示具有N行的杨辉三角形，要求按正三角形的形式在图片框中显示。Option Explicit

Dim i As Integer,j As Integer,k As Integer,n As Integer,m As Integer

Private Sub Command1_Click()

tu

End Sub

Private Sub Form_Load()

n=InputBox("请输入一个奇数>=3","请输入")

If n Mod2=0Then

MsgBox"输入不正确"

n=InputBox("请输入一个奇数>=3","请输入")

End If

End Sub

Private Sub tu()

m=1

For i=1To n Step2

Print Tab((n+1)/2-m+1);

For j=1To i

Print Chr(65+k);

Next j

k=k+1

m=m+1

Print

Next i

For i=n-2To1Step-2

Print Tab((n+1)/2-m+3);

For j=1To i

Print Chr(65+k-2);

Next j

k=k-1

m=m-1

Print

Next i

End Sub

12.编写一个过程，输出以下菱形图形：

A

BBB

CCCCC

DDDDDDD

CCCCC

BBB

A

主程序输入一个奇数（>＝3），调用过程在窗体上输入图形

Option Explicit

Private Sub Form_Load()

WindowState=2

Show

Dim a()As Integer,n As Integer,i As Integer,j As Integer,g As Integer,e As Integer

n=InputBox("请输入杨辉三角的行数：","请输入")

ReDim a(n,n)

e=80

For i=1To n

e=e-5:g=e

For j=1To n

If j>i Then

a(i,j)=0

Else

If i=j Then

a(i,j)=1

Else

a(i,j)=a(i-1,j)+a(i-1,j-1)

End If

End If

If a(i,j)=0Then

Exit For

Else

Picture1.Print Tab(g-10);a(i,j);

g=g+10

End If

Next j

Picture1.Print

Next i

End Sub

Private Sub Picture1_Click()

End Sub

13.．编写一个将十进制转换为二进制字符串输出的函数。调用函数计算用户输入一个十进制数，在文本框中输出二进制值

Option Explicit

Dim m As Integer,n As Integer,r As Integer,a As String,k As Integer

Private Sub Command1_Click()

a=zh

If k<0Then

Print"-"&StrReverse(a)

Print StrReverse(a)

End If

End Sub

Private Sub Form_Load()

n=InputBox("请输入一个十进制数","请输入")

k=n

End Sub

Private Function zh()

If n<0Then n=-n

m=n

Do While m>0

n=n\2

r=m Mod2

zh=zh&r

m=n

Loop

End Function

14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。

Option Explicit

Option Base1

Dim a()As Variant,n As Integer,i As Integer,p As Integer,t As Integer,j As Integer

Private Sub Command1_Click()

Print

Print"排序后的数据："

For i=1To n-1

p=i

For j=i+1To n

If a(j)

Next j

t=a(i):a(i)=a(p):a(p)=t

Next i

For i=1To n

Print a(i);

Next i

End Sub

Private Sub Command2_Click()

Print

Print"排顺后的数据："

For i=1To n-1

For j=i+1To n

If a(j)

Next j

For i=1To n

Print a(i);

Next i

End Sub

Private Sub Form_Load()

Show

n=InputBox("请输入一个数","请输入") ReDim a(n)

Print"排序前的数据："

For i=1To n

a(i)=Int(Rnd*(10*n)+1)

Print a(i);

Next i

End Sub