大学vb考试题库

bb [a,b,c2 ] Text4.Text = c2 End Sub

――――――――――――――――――

2下面的程序用于根据文本框X中输入的内容进行以下处理：若X为2、4、6，则打印\的值为2、4、6\；若X在11到15之间，则打印\的值为大于等于11小于等于15\；若X大于20，则打印\的值大于20\；否则，打印\不在范围内\。 Private Sub Command1_Click() Select Case Val(X.Text) Case [2,4,6 ]

Print \的值为2,4,6\ Case [11 to 15 ]

Print \的值为大于等于11小于等于15\ Case Is >20

Print \的值大于20\ Case Else

Print \不在范围内\ End Select End Sub

――――――――――――――

3下面的程序是使用冒泡法对数组进行排序，请将程序补充完整。 Option Base 1

Private Sub Command1_Click() Dim iA(0 To 10) n = 6

iA(0) = 8: iA(1) = 6: iA(2) = 9: iA(3) = 3: iA(4) = 2: iA(5) = 7 For i= 1 To n - 1 ' 进行n-1遍比较 ' 对第i遍比较时，大数沉底

For [j=1 to n-i ] ' 在数组 i~n个元素中选最小元素的下标 If [ iA(j) > iA(j+1) ] Then t = iA(j)

iA(j) = iA(j + 1) iA(j + 1) = t End If Next j End Sub

――――――――――――

4 程序的功能是使用辗转相除法求两个数的最大公约数。 Private Sub Command1_Click() Dim m%, n%

m = Int(InputBox(\ n = Int(InputBox(\ Print gcd(m, n) End Sub

Public Function gcd%(m%, n%) Dim t%

17

If [ m

r = m Mod n

If r = 0 Then Exit Do m = n [ n=r ] Loop gcd = n End Function

―――――――――

5、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEF”变换成“FEDCBA”。请将程序补充完整。 Private Sub Command1_Click()

Dim a$, i%, c$, n% 'n存放字符串的长度 a = InputBox(\ n = [Len(a) ]

For i = 1 To Int(n / 2) c = Mid(a, i, 1)

Mid(a, i, 1) = [ Mid(a,n-i+1,1) ] Mid(a, n - i + 1, 1) = c Next i End Sub

――――――――――

6、下面的程序允许用户按Enter(回车)键后，将组合框中没有的项目添加到组合框。请将程序补充完整。

Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii = 13 Then flag = False

For i = 0 To Combo1.ListCount - 1 '查找项目是否已存在 If [ combo1.text=combo1.list(i) ] Then flag = True Exit For End If Next i

If flag = False Then '不存在则添加 [ combo1.AddItem combo1.Text ] End If End If End Sub

―――――――――

7、下面的程序是使用选择法对数组进行升序排列，请将程序补充完整。 Option Base 1

Private Sub Command1_Click() Dim iA(1 To 10) n = 6

18

iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5) = 2: iA(6) = 7 For i = 1 To n - 1 ' 进行n-1遍比较

iMin = i ' 对第i遍比较时，初始假定第i个元素最小

For [ j=i+1 to n ] ' 在数组 i~n个元素中选最小元素的下标 If [a(j)

t = iA(i) 'i~n个元素中选出的最小元素与第i个元素交换 iA(i) = iA(iMin) iA(iMin) = t Next i End Sub

―――――――――――

8、找出被3、5、7除，余数均为1的最小的5个正整数。 Private Sub Command1_Click() Dim countn%, n% n = 1: countn = 0 Do

n = n + 1

If [ n mod 3=1 And n mod 5=1 And n mod 7=1 ]Then Print n

countn = countn + 1 End If

Loop [ until count n=5 ] End Sub

――――――――――――――

9、下面程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框输入表达式，

边输入，边统计，以输入回车键作为表达式输入结束，然后显示结果。 Dim count1%

Private Sub Text1_KeyPress(KeyAscii As Integer) If [ chr(keyAscii) ] = \ count1 = count1 + 1

ElseIf Chr(KeyAscii) = \ [ count1=count1+1 ] End If

If KeyAscii = 13 Then If count1 = 0 Then

Print \左右括号配对\ ElseIf count1 > 0 Then

Print \左括号多于右括号\个\ Else

Print \右括号多于左括号\个\ End If End If End Sub

――――――――――――

19

10、顺序文件的建立。建立文件名为“c:\\stud1.txt”的顺序文件，内容来自文本框，

每按Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。 Private Sub Form_Load()

Open “c:\\stud1.txt” For Output As #1 Text1.Text=“” End Sub

Private Sub Text1_KeyPress(keyAscii As Integer) If keyAscii=13 Then

If[ Ucase(Text1)=\ ] Then Close #1 End Else

[Print #1,Text1 ] Text1.Text=“” End If End If End Sub

―――――――――――――

11、输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，并显示结果。其中，CountY中放元音字母个数，CountC中放其他字符数。 Private Sub Command1_Click() Dim CountY%, CountC%, i% Dim C$, B$ c=Text1.Text

For i = 1 To Len(C)

B =UCase(Mid(C, i, 1))

If [ \ ] Then Select Case B

Case \ CountY = CountY + 1 Case [ Else ]

CountC = CountC + 1 End Select End If Next i

Print \元音字母有\个\ Print \其它字母有\个\End Sub

―――――――― 12、将C盘根目录下的一个文本文件old.dat复制到新文件new.dat中，并利用文件操作语句 将old.dat文件从磁盘上删除。 Private Sub Command1_Click() Dim str1 $

Open “c:\\old.dat” For Input As #1 Open “c:\\new.dat” [For output As #2 ] Do While[ Not EoF(1) ]

20