VB编程题及答案
VB编程题
1、求100以内的素数。
2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
3、计算0~200之间所有能被11或5整除的数之和
4、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）
5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x 6、求s=a+aa+aaa+...aaaaa（n个a），其中a 和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如a=3,n=6,则 s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。 7、计算100~300之间所有能被3和7整除的数之和。 8、编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。) 9、找出被3、5、7除，余数为1的最小的5个正整数。 10、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。 11、编程显示100~500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数本身) 12、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 13、从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。 14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 15、随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。 16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值 和下标。 17、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。 19、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据 之和 20、输入一系列字符串，将字符串按递减次序排列。请编程实现。 21、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。 22、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B 的范围是100～200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。 23、随机产生15个小写字母，放在字符数组中。提示：c=chr(int(rnd*26+97)) 24、随机产生10个[30,100]内的整数，求最大值及所对应的下标。 25、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成，数组A的范围是1～20，数组B 的范围是100～200，数组C是A和B相加得到的。请编程生成并输出A,B,C。 26、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数，求它的两条对角线上元素之和。 27、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最小值及所对应的下标。 28、随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。 29、有10个评委对歌手进行打分（分数存放在A 数组中）要求编程计算歌手平均得分（按去掉一个最高分和一个最低分的计算办法计算）。a = Array(98, 97, 95, 91, 90, 99, 93, 94, 93, 96) 30、编程输出n行杨辉三角图形，n由键盘输入。 31、声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第1行和第3行对应元素交换。 32、随机产生15个大写字母，放在字符数组中。提示：c=chr(int(rnd*26+65)) 33、编写一个过程计算并输出区间[100，1000]内所有素数的和(要求判断素数使用过程（函数或子过程）来实现。调用该过程。(提示：只能被1和自身整除的自然数称为素数。) 34、随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。 35、已知一维数组a()中的元素已排序，分别为{12， 15，21，25，27，35，36，39，48，52}，编程将30插入数组a，并使a依然有序。 37、声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第2行和第4行对应元素交换。 38、随机产生10个[30,100]内的整数，求最小值及所对应的下标。 39、编写一个判断素数的通用过程（函数或子程序）。调用该过程，计算并输出区间[1000，1100]内所有素数的和。(提示：只能被1和自身整除的自然数称为素数。) 40、编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。 41、编一个冒泡排序法子过程，对已知的若干整数按递减次序排列。提示：子过程的形式为sub sort1(a%())。 42、编一个选择排序法子过程，对已知的若干整数按递减次序排列。提示：子过程的形式为sub sort1(a%())。 43、编一个选择排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%())。 44、编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%())。 45、编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%())。 V B答案 1、求100以内的素数。 .Private Sub Command1_Click() Dim i, a, k For i = 1 To 100 k = 1 For a = 2 To Sqr(i) If i Mod a = o Then k = 0 Next a If k = 1 Then Print i; Next i End Sub 2从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 . Private Sub Command1_Click() Dim i, a, b, n as string n = InputBox("输入字符") i = Len(n) For a = 1 To i / 2 b = Mid(n, a, 1) Mid(n, a, 1) = Mid(n, i + 1 - a, 1) Mid(n, i + 1 - a, 1) = b N ext a Print n End Sub 3.计算0~200之间所有能被11或5整除的数之和Private Sub Command1_Click() Dim i%, sum sum = 0 For i = 1 To 200 If i Mod 5 = 0 Or i Mod 11 = 0 Then sum = sum + i End If Next i Print sum End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim i% n = InputBox("输入年份n") i = 0 If n Mod 4 = 0 And n Mod 100 <> 0 Or n Mod 400 = 0 Then i = 1 End If If i = 1 Then Print n & "为闰年" Else Print n & "为平年" End If End Sub 5.已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x Private Sub Command1_Click() Dim x%, y%, z%, i x = Int(Rnd * 100) y = Int(Rnd * 100) z = Int(Rnd * 100) If x > y Then i = x x = y y = i End If If x > z Then i = x x = z z = i End If If y > z Then i = y y = z z = i End If Print x & "<" & y & "<" & z End Sub 6.求s=a+aa+aaa+...aaaaa（n个a），其中a和n 的值随机产生，a的范围 是[1,9]的整数，n的范围是[5,10]。如a=3,n=6, 则s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。 Private Sub Command1_Click() Dim c(1 To 10), a%, n%, s#, i%, m# n = Int(Rnd * 6 + 5) a = Int(Rnd * 9 + 1) m = a c(1) = m For i = 1 To 10 c(i) = m m = 10 * m + a Next i s = c(1) + c(2) + c(3) + c(4) For i = 5 To n s = s + c(i) Next i Print "a=" & a, "n=" & n, "s=" & s End Sub 7计算100~300之间所有能被3和7整除的数之和。.Private Sub Command1_Click() Dim s%, i% s = 0 For i = 100 To 300 If i Mod 3 = 0 Or i Mod 7 = 0 Then s = s + i End If Next i Print "s=" & s End Sub 8编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。) .Private Sub Command1_Click() Dim s1%, s2%, s3%, i% s1 = 0 s2 = 0 For i = 200 To 400 If i Mod 5 = 0 Or i Mod 7 = 0 Then s1 = s1 + i End If Next i For i = 200 To 400 If i Mod 5 = 0 And i Mod 7 = 0 Then s2 = s2 + i End If Next i s3 = s1 - s2 Print s3 End Sub 9..找出被3、5、7除，余数为1的最小的5个正整数。 .Private Sub Form_Click() Dim t% For i = 0 To 500 If i Mod 5 = 1 And i Mod 7 = 1 And i Mod 3 = 1 Then Print i; N ext i End Sub 10某次歌曲大奖赛，有7个评委。如果分别输入7个评委 对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。 .Private Sub Command1_Click() Dim a(6), imin!, imax!, i!, j%, n%, t%, k%, f% a(0) = Val(InputBox("a(0) ")) a(1) = Val(InputBox("a(1)")) a(2) = Val(InputBox("a(2)")) a(3) = Val(InputBox("a(3)")) a(4) = Val(InputBox("a(4)")) a(5) = Val(InputBox("a(5)")) a(6) = Val(InputBox("a(6)")) For i = 0 To 6 imin = i For j = i + 1 To 6 If a(j) < a(imin) Then imin = j Next j t = a(i) a(i) = a(imin) a(imin) = t Next i a(i - 1) = 0 For k = 0 To 6 imax = k For f = k + 1 To 6 If a(f) > a(imax) Then imin = f Next f t = a(k) a(k) = a(imax) a(imax) = t Next k a(k - 1) = 0 n = (a(0) + a(1) + a(2) + a(3) + a(4) + a(5) + a(6)) / 5 Print n End Sub 11、题编程显示100~500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数本身) Private Sub Form_Click() Print "100~500之间所有的水仙花数为：" Dim x%, a%, b%, c% For x = 100 To 500 a = x Mod 10 b = (x Mod 100) \ 10 c = x \ 100 If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x Next x End Sub 12题随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 ：Private Sub Command1_Click() Text1 = Int(Rnd * 900 + 100) End Sub Private Sub Command2_Click() Dim x%, a%, b%, c% x = Val(Text1) a = x Mod 10 b = (x Mod 100) \ 10 c = x \ 100 Text2 = a * 100 + b * 10 + c End Sub 13题从键盘输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形 ：Private Sub Form_Click() Dim a, b, c, a = Text1.Text b = Text2.Text c = Text3.Text If a + b > c And a + c > b And b + c > a Then MsgBox "能够成三角形" Else MsgBox "不能构成三角形" End If End Sub 14题已知数组a()，编程删除a中第5个元素。数组a中的元素 分别为{12，6，4，89，75，63，100，20，31}。Private Sub Form_Click() Dim a(), i%, j% a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31) j = UBound(a) For i = 0 To j Print a(i) Next i Print For i = 5 To j a(i - 1) = a(i) N ext i j = j - 1 ReDim Preserve a(j) For i = 0 To j Print a(i) N ext i Print End Sub 15题随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。 Dim a%(3, 3) Private Sub Form_Load() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 11 + 10) N ext j N ext i End Sub Private Sub Picture1_Click() For i = 0 To 3 For j = i To 3 Picture1.Print Tab(j * 5); a(i, j); N ext j Picture1.Print N ext i End Sub 16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标 Dim a%(3, 3), i%, k%, imax% Private Sub command1_click() For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); ""; Next j Picture1.Print Next i imax = 0 For i = 0 To 3 For j = 0 To 3 If a(i, imax) < a(i, j) Then imax = 0 End If Next j Picture2.Print "第"; i + 1; "行"; "最大值为"; a(i, imax); "下标为"; "("; i; imax; ")" Next i End Sub 17..利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是 [40,80]内的整数，求它的最大值及所对应的下标。Private Sub Form_Click() Dim a(3, 3), max%, imax% For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 41 + 40) N ext j Next i For i = 0 To 3 For j = 0 To 3 Print a(i, j); N ext j Print Next i For i = 0 To 3 For j = 0 To 3 If max < a(i, j) Then max = a(i, j): imax = i & j N ext j Next i Print "max="; max; "imax="; imax End Sub 18..输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序。 .Private Sub Form_Click() Dim a(5) As String, b(4) As Integer, t%, max%, imax% For i = 1 To 5 a(i) = InputBox("a") N ext i For i = 0 To 4 b(i) = Len(Trim(a(i))) N ext i max = 1 For i = 0 To 4 If max < b(i) Then max = b(i): imax = i N ext i Print "max="; a(i) Print "cixu="; imax + 1 End Sub 19.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和.Private Sub Form_Click() Dim a(3, 3), sum% For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 31 + 20) N ext j Next i For i = 0 To 3 For j = 0 To 3 Print a(i, j); N ext j Print Next i For i = 0 To 3 For j = 0 To 3 sum = sum + a(i, j) N ext j N ext i Print "sum="; sum End Sub 20、输入一系列字符串，将字符串按递减次序排列。请编程实现。 Dim a() As String, n%, i%, j% Private Sub Command1_Click() n = Text1 ReDim a(1 To n) As String For i = LBound(a) To UBound(a) a(i) = InputBox("请输入字符串") Picture1.Print a(i); Spc(1); Next i End Sub Private Sub Command2_Click() For i = 1 To n For j = 1 To n - 1 If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t Next j Next i For i = 1 To n Picture2.Print a(i); Spc(1) Next i End Sub Private Sub Form_Load() Text1 = "" End Sub 21、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。 Private Sub Form_click() Dim a(1 To 10) As Integer, i%, maxa%, mina%, aver! For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Next i mina = a(1) maxa = a(1) avera = a(1) For i = 2 To 10 If a(i) > maxa Then maxa = a(i) If a(i) < mina Then mina = a(i) avera = avera + a(i) Next i For i = 1 To 10 Print a(i) Next i Print Print "max="; maxa, "min="; mina, "aver="; avera / 10 End Sub 22(维数错误！！！！！！！！！)、定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成， 数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相乘得到的。请编程生成并输出A,B,C。 Private Sub Form_click() Dim a%(1 To 4, 1 To 4), b%(1 To 4), c%(1 To 4, 1 To 4) Print "数组A" For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 20 + 1) Print Tab(j * 4); a(i, j); Next j Print Next i Print "数组B" For i = 1 To 4 For j = 1 To 4 b(i, j) = Int(Rnd * 100 + 100) Print Tab(j * 6); b(i, j) Next j Print Next i Print "数组C" For i = 1 To 4 For j = 1 To 4 c(i, j) = b(i, j) * a(i, j) Print Tab(j * 4); c(i, j) Next j Print Next i End Sub 23、随机产生15个小写字母，放在字符数组中。提示：c=chr(int(rnd*26+97)) Private Sub Form_click() Dim a$(1 To 15), i% Print "字符数组为a(i):" For i = 1 To 15 a(i) = Chr(Int(Rnd * 26 + 97)) Print a(i); Spc(1); Next i Print End Sub Private Sub form_load() FontSize = "10" End Sub 24随机产生10个[30,100]内的整数，求最大值及所对应的下标。 Private Sub Form_Click() Dim a(9), max%, imax% For i = 0 To 9 a(i) = Int(Rnd * 71 + 30) Print a(i); Next i Print max = a(0) For i = 1 To 9 If max < a(i) Then max = a(i): imax = i N ext i Print "max="; max Print "imax="; imax End Sub 25定义三个4×4的二维数组A,B,C，A和B中的元素均随机生成， 数组A的范围是1～20，数组B的范围是100～200，数组C是A和B相加得到的。请编程生成并输出A,B,C。 Private Sub Command1_Click() Dim a(3, 3), b(3, 3), c(3, 3), t%, m% For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 20 + 1) Picture1.Print a(i, j); N ext j N ext i Picture1.Print For i = 0 To 3 For j = 0 To 3 b(i, j) = Int(Rnd * 101 + 100) Picture1.Print b(i, j); N ext j Next i Picture1.Print For i = 0 To 3 For j = 0 To 3 c(i, j) = a(i, j) + b(i, j) Picture1.Print c(i, j); N ext j N ext i End Sub 26、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数，求它的两条对角线上元素之和。 Private Sub Command1_Click() Dim a%(3, 3), i%, j%, sum% For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); ""; Next j Picture1.Print Next i sum = 0 For i = 0 To 3 sum = sum + a(i, i) + a(i, 3 - i) Next i Text1 = sum End Sub 27、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最小值及所对应的下标。 Private Sub Command1_Click() Dim a%(3, 3), i%, j%, sum% For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 21 + 40) Picture1.Print a(i, j); ""; Next j Picture1.Print Next i imax = 0 For i = 0 To 3 For j = 0 To 3 If a(i, imin) > a(i, j) Then imin = j End If Next j Picture2.Print "第"; i + 1; "行"; "最小值为"; a(i, imin); "下标为"; "("; i; imin; ")" Next i End Sub .28、随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。 .Private Sub Form_Click() Dim a(4, 4) As Integer For i = 0 To 4 For j = 0 To 4 a(i, j) = Int(Rnd * 11 + 10) N ext j N ext i For i = 0 To 4 For j = 0 To i Print a(i, j); N ext j Print Next i End Sub 29.有10个评委对歌手进行打分（分数存放在A数组中）要求编程计算歌手平均得分（按去掉一个最高分和一 个最低分的计算办法计算）。a = Array(98, 97, 95, 91, 90, 99, 93, 94, 93, 96) ..Private Sub Form_Click() Dim a(), max%, min%, imax%, imin%, s! a = Array(98, 97, 95, 91, 90, 99, 93, 94, 93, 96) n = UBound(a) For i = 0 To n Print a(i); N ext i Print min = a(0): imin = 0 For i = 0 To n If a(i) < min Then min = a(i): imin = i N ext i Print "min="; min; "imin="; imin For i = imin + 1 To n a(i - 1) = a(i) N ext i ReDim Preserve a(n - 1) For i = 0 To n - 1 Print a(i); N ext i Print For i = 0 To n - 1 If a(i) > max Then max = a(i): imax = i Next i Print "max="; max; "imax="; imax ReDim Preserve a(n - 2) s = 0 For i = 0 To n - 2 s = s + a(i) Print a(i); N ext i Print Print "avr="; s / (n - 1) End Sub 30..编程输出n行杨辉三角图形，n由键盘输入。Private Sub Command1_Click() Dim n%, i%, j% n = Val(Text1) Dim a%(1 To 1000, 1 To 1000) For i = 1 To n a(i, i) = 1 Next i For j = 2 To n - 1 For i = 3 To n a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next i Picture1.Print Next j Picture1.Print Tab(j * n); a(i, j) For i = 1 To n For j = 1 To i Picture1.Print a(i, j); ""; Next j Picture1.Print Next i End Sub 31、声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第1行和第3行对应元素交换。 Private Sub Form_click() Dim a%(1 To 10, 1 To 10), i%, j% Print "排序前" For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 20 + 1) Print Tab(j * 4); a(i, j); Next j Print Next i Print "排序后" For j = 1 To 4 t = a(1, j): a(1, j) = a(3, j): a(3, j) = t Next j For i = 1 To 4 For j = 1 To 4 Print Tab(j * 4); a(i, j); Next j Print Next i End Sub 32.随机产生15个大写字母，放在字符数组中。提示：c=chr(int(rnd*26+65)) Private Sub Form_Click() Dim a(1 To 15) As String For i = 1 To 15 a(i) = Chr(Int(Rnd * 26 + 65)) Print Tab(i * 2); a(i); N ext i End Sub 33、编写一个过程计算并输出区间[100，1000]内所有素数的和 (要求判断素数使用过程（函数或子过程）来实现。调用该过程。 (提示：只能被1和自身整除的自然数称为素数。) Function sushu%(ByVal x%) Dim m%, tag As Boolean, i% m = Val(x) tag = True For i = 2 To m - 1 If (m Mod i) = 0 Then tag = False Next i If tag Then sushu = x End Function Private Sub Command1_Click() Dim i%, k% For i = 100 To 1000 If sushu(i) Then List1.AddItem i Next i sum = 0 For k = 0 To List1.ListCount - 1 sum = sum + Val(List1.List(k)) Next k Label1 = "[100,1000]内所有的素数和为：" & sum End Sub 34.随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。 Private Sub Form_Click() Dim a(1 To 10) As Integer, i%, maxa%, mina%, suma% For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Next i mina = a(1) maxa = a(1) suma = a(1) For i = 2 To 10 If a(i) > maxa Then maxa = a(i) If a(i) < mina Then mina = a(i) suma = suma + a(i) Next i For i = 1 To 10 Print a(i); Next i Print Print "max="; maxa, "min="; mina, "aver="; suma / 10 End Sub 35、已知一维数组a()中的元素已排序，分别为{12，15，21，25，27，35，36，39，48，52}，编程将30插入数组a，并使a依然有序。 Private Sub Form_Load() Dim a(), i%, k%, x%, n% a = Array(12, 15, 25, 27, 35, 36, 39, 48, 52) n = UBound(a) For i = o To n List1.AddItem a(i) Next i End Sub Private Sub Command1_Click() x = Val(Text1) For k = 0 To List1.ListCount - 1 If x < Val(List1.List(k)) Then Exitfor Next k List1.AddItem x, k End Sub 37.、声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第2行和第4行对应元素交换。 Private Sub Form_Click() Dim a(0 To 3, 0 To 3), i%, j%, t For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 21 + 1) Print Tab(j * 5); a(i, j); Next j Next i Print Print For j = 0 To 3 t = a(1, j): a(1, j) = a(3, j): a(3, j) = t Next j For i = 0 To 3 For j = 0 To 3 Print Tab(j * 5); a(i, j); Next j Next i End Sub 38.随机产生10个[30,100]内的整数，求最小值及所对应的下标。 Private Sub Form_click() Dim a(1 To 10) As Integer, zb%, mina%, i% For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Print a(i); Next i zb = 1 mina = a(1) For i = 2 To 10 If mina > a(i) Then mina = a(i): zb = i Next i Print Print "min="; mina, "zb="; zb End Sub 39编写一个判断素数的通用过程（函数或子程序）。调用该过程，计算并输出区间[1000，1100]内所有素数的和。 (提示：只能被1和自身整除的自然数称为素数。) .Private Sub Picture1_Click() Dim i%, avera avera = 0 For i = 1000 To 1100 If ss(i) <> 0 Then Print ss(i) avera = avera + ss(i) Next i Picture1.Print avera End Sub Function ss(n) As Integer Dim i%, tag As Boolean tag = True For i = 3 To n / 2 If (n Mod i) = 0 Then tag = False Next i If tag Then ss = n End Function 40.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定 Private Sub Form_Click() Dim a(1 To 10), amin, i% For i = 1 To 10 a(i) = -Int(Rnd * 101 + 300) Print a(i); Next i Call s(a(), amin) Print Print "最小值="; amin End Sub Sub s(b(), min) Dim i% min = b(1) For i = 2 To 9 If b(i) < min Then min = b(i) Next i End Sub 41、编一个冒泡排序法子过程，对已知的若干整数按递减次序排列。提示：子过程的形式为sub sort1(a%())。 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - 1 - i If a(j + 1) > a(j) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i End Sub Private Sub Form_click() Dim b(), i% b = Array(8, 9, 4, 2, 6) Call sort(b()) For i = 0 To UBound(b) Print b(i); Next i End Sub 42、编一个选择排序法子过程，对已知的若干整数按递减次序排列。提示：子过程的形式为sub sort1(a%())。 Sub sort(a()) Dim i%, j%, t%, n%, imax% n = UBound(a) For i = 0 To n - 1 imax = i For j = i + 1 To n If a(j) > a(imax) Then imax = j Next j t = a(i) a(i) = a(imax) a(imax) = t Next i End Sub Private Sub Form_click() Dim b(), i% b = Array(23, 5, 78, 99, 67, 94) Call sort(b()) For i = LBound(b) To UBound(b) Print b(i) Next End Sub 43、（排列顺序不正确）编一个选择排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%())。 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 imin = 1 For j = i + 1 To UBound(a) If a(j) < a(imin) Then imin = j Next j t = a(i): a(i) = a(imin): a(imin) = t Next i End Sub Private Sub Form_click() Dim b(), i% b = Array(8, 9, 4, 2, 6) Call sort((b)) For i = 0 To UBound(b) Print b(i); Next i End Sub 45、编一个冒泡排序法子过程，对已知的若干整数按递增次序排列。提示：子过程的形式为sub sort1(a%())。 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - 1 - i If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i End Sub Private Sub Form_click() Dim b(), i% b = Array(8, 9, 4, 2, 6) Call sort(b()) For i = 0 To UBound(b) Print b(i); Next i End Sub 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152) 一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x 《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。 （事件）单 ' （响应）用输入框输入一自然数，判断是”正数”、”负数” 或”零”，并根据输入的数用消息框显示”正数”、"负数" 或”零”。 n = lnputBox（" 输入一个自然数"） If n > 0 Then result =" 正数" Elself n < 0 Then result =" 负数" Elself n = 0 Then result =" 零" End If MsgBox"输入的数据"& n & " 为："& result 题目编写函数fun，函数的功能是：判断一个字符是 '字母字符、数字字符还是其他字符，并做相应的显示。 '字母字符显示字符串"字母" '数字字符显示字符串"数字" '其他字符显示字符串"其他" '要求使用IF语句来实现。 If UCase（n） >= "A" And UCase（n） <= "Z" Then fun =" 字母" ElseIf n >= "0" And n <= "9" Then fun =" 数字" Else fun =" 其他" End If '题目：编写函数fun，函数的功能是：根据一个百分制 '成绩mark （整数），显示对应五级制的评定。条件如下： 'mark大于等于90显示"优秀" 'mark小于90且大于等于80显示"良好" 'mark小于80且大于等于70显示"中等" 'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格" '要求使用IF语句来实现。 Private Function fun(mark As Integer) As String **********Program ********** **********End ********** End Function If mark >= 90 The n fun =" 优秀" ElseIf mark >= 80 The n V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT- 程序设计 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中。 代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题 大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/0b13923520.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 V B程序设计题库(全) VB程序设计练习题 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″，下面使b=″Basic″的语句是 A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。 VB程序设计 一、判断题 1. 同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（ X ） 2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（ ） 3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False。（√） 4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。（ ） 5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。（√） 6. “A=B=C”是一个合法的Visual Basic语句。（ ） 7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（ ） 8. Visual Basic程序的运行可以从 Main（）过程启动，也可以从某个窗体启动。（√） 9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（ ） 10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应的改变，可以在Drive1中的Change事件中使用如下命令。Dir1. Path＝ Drive1. Drive（√） 11. 滚动条控件可作为用户输入数据的一种方法。（√） 12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（ ） 13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。（√） 14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。（√） 15．注释语句REM可自成一语句。（√） 16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （ ） 17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。（√） 18. 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。（ ）19．执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。（√） 2.句“FontName="宋体" ”与“Form1.FontName="宋体" ”的作用完全相同，无一例外。（ ） 21局变量只能在窗体的通用区内用Public或global定义。（ ） 22. 在盘驱动器列表框Drivel的Change事件过程中，代码Dirl. Path＝Drivel . Drive 的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。（√） 程序设计题 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L 中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 4题 Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j Print (CStr(i)) & "/" & CStr(j) j = i i = i + m Next 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) 2018-2019 第二学期计算机专业 每个窗体的二 《 VB 程序设计》试题（ A 卷） 进制数据文件，（共 10道 20分） 一、选择题 控件的属性值 等 1、一个工程必须包含的文件的类型是（） A）*.vbp *.frm *.frx B）*.vbp *.cls *.bas C） *.bas *.ocx */res D）*.frm *.cls *.bas 2、以下关于 VB 数据类型的说法，不恰当的是（） A）VB 6.0提供的数据类型主要有字符串型和数值型，此外还有班级：字节、货币、对象、日期、布尔和变体数据类型等 B）目前 Decimal 数据类型只能在变体类型中使用 C）用户不能定义自己的数据类型 D）布尔型数据只能取两种值，用两个字节存储 姓名： 3、以下各项，可以作为 VB 变量名的是（） A） Book B）2_Seek C）123.58D）Book-1 学号：4、函数 Int(Rnd(0)*10) 是在 ()范围内的整数。 A）(0,1)B）(1,10)C）(0,9)D）(1,9) 5、要将名为 MyForm 的窗体显示出来，正确的使用方法是（） A） MyForm.Show B）Show.MyForm C） MyForm .Load D）MyForm .Show 6、输入代码时， VB 可以自动检测 ()错误。 A）语法错误B）编译错误C）运行错误D）逻辑错误 7、单击窗体上的关闭按钮时，触发的事件是（） A ）Form_Initialize()B）Form_Load() C）Form_Unload()D）Form_Click() 8、.用于将窗体上的对象分组的控件是（） A ）列表框B）组合框C）标签D）框架 9、下面语句正确的是（） A ） If x<3*y And x>y Then y=x^3 B） If x<3*y And x>y Then y=3x C）If x<3*y : x>y Then y=x^3D）If x<3*y : x>y Then y=x**3 10、 1.下列程序段的执行结果为 a=5 For k=1To 3 a=a + k Next k Print k； a A）-1 6B）-1 16C）411D）1121 二、程序设计（共4道题 80分） 1、利用TextBox、Label、Commandbutton控件编写如下功能和如 下用户界面的 VB 程序VB期末考试试题及答案
VB题库—程序设计[1]
vb题库程序设计
vb程序设计试题(含答案)
VB程序设计 试题与答案-1
VB程序设计试题及答案一
VB程序设计试题及答案(一)
《VB程序设计基础》模拟精彩试题
vb题库程序设计题讲解
VB程序设计题库全
【2017年最新】大学VB考试题库
VB程序设计题库(全)复习课程
VB程序设计考试试题及答案
VB语言程序设计试题库
VB程序设计考试题库——考试专用
《VB程序设计》试题及答案