vb历年理论真题.pptVIP

VB历年理论考试真题 计算机教研室 崔园 1、Private Sub Command1 Click() Dim n As Integer n = 1 sum = 0 For i=0 to2 Sum = sum + fun(n) Next i Print sum End Sub Function fun(n As Integer) As Integer Static c As Integer n = n + 1 c = c + 1 fun = n * c End Function (1)在程序运行后，首次单击命令按钮的显示结果是（ ） A、30 B、9 C、12 D、20 （2）第二次单击命令按钮的显示结果是（ ） A、12 B、30 C、47 D、65 （3）如果将fun函数中的“Static c As Integer”改为“Dim c As Integer”，则首次单击命令按钮的显示结果是（ ） A、9 B、6 C、4 D、3 2、程序代码如下： Private Sub Command1 Click() Dim x As Integer, s As Integer, n As Integer Randomize Timer x = Int(Rnd * 9) + 11 For i= 2 to x n = Int(Sqr( i )) For j = 2 to n If i Mod j = 0 Then Exit For Next j If j n then s = s + i Next i Print s, x End Sub （1）该程序中整数X的取值范围是（ ） A、11~19之间 B、11~20之间 C、9~19之间 D、9~20之间 （2）变量S中存放的数是（ ） A、2~X之间的所有数值之和 B、2~X之间的所有素数之和 C、2~X之间的所有偶数之和 D、2~X之间的所有奇数之和 （3）假设X的值为12，则程序的运行结果中S的值是（ ） A、77 B、28 C、44 D、25 3、程序代码如下：Private Sub Command1_Click() Dim a(3, 3) As Integer For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(45 * Rnd) * 2 + 11 Next Next For i = 0 To 3 temp = a(i, 0): a(i, 0) = a(i, 3): a(i, 3) = temp Next For i = 0 To 3 If i - (3 - i) = 0 Then Print Tab(i * 3 + 1); a(i, i); Spc((2 - 2 * i) * 3 + 1); a(i, 3 - i) Else Print Tab((3 - i) * 3 + 1); a(i, 3 - i); Spc((2 * i - 4) * 3 + 1); a(i, i) End If Next End Sub (1)在程序中，存入数组的随机数的范围是 （ ） （A）11到98的奇数 （B）11到99的奇数 （C）11到100的奇数 （D）11到101的奇数 （2）在程序中，以下代码段的功能是 （ ） For i = 0 To 3 temp = a(i, 0): a(i, 0) = a(i, 3): a(i, 3) = temp Next 将所有数据的行和列互换 将两条对角线上的数据互换 将最上边的一行数据和最下边一行的数据互换 将最左边的一列数据和最右边一列的数据互换 （3）最终程序显示输出的结果是 （ ） （A） 数组中所有的数据 （B） 两条对角线上的数据 （C） 最上边和最下边的1行数据 （D） 最左边和最右边的1列数据 4、程序代码如下： Option Base 1 Private Sub command1_click() Dim sa(3, 3) As String * 1, i As Integer, j As Integer k = 1 For i = 1 To 3 For j = 1 To 3 sa(i,