VB计算机题1.doc

选择题1、下列符号常量的声明中，_Const a As Double =Sin(1) _是不合法的。2、表达式(-1)*Sgn(-100+Int(Rnd*100)的值是_1_。3、以下叙述中错误的是_在同一窗体的菜单项中，不允许出现标题相同的菜单项。4、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_选中_状态。5、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是_Load 。6、下列程序段的执行结果为 _0 2 2 3 _。Dim M(2)For i=1 To 2 M(i)=0Next iK=2For i=1 To k For j=1 TO k M(j)=M(i)+1 Print M(k); Next jNext i 7、下列程序段的执行结果为_18_ Dim A(5, 5) As IntegerFor i = 1 To 3 For j = 1 To 4 A(i, j) = i * j Next jNext iPrint A(2, 3) + A(3, 4) + A(4, 5)8、假设通用声明段中有语句Option base 1，过程中定义数组：Dim a(6) as Integer，则以下引用数组元素的语句中正确的是_a(n + 3) = a(n+1) + a(n+2)。9、执行下面的程序，输出结果是_18 30_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y10、调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的是_Convert X_。 11、设有如下程序 Option Base 1 GetArray过程的参数n 是按值传送的 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n = InputBox(输入数据) If n b And a c, a, IIf(b c, b,c) print d End Sub19、Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是Case Isx_。20、以下关于窗体的描述中，错误的是_执行Unload Form1语句后，窗体Form1消失，但仍在内存中_。21、设菜单中有一个菜单项为Open。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置Open命令的方式是_把Caption属性设置为&Open。22、在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1.Label2，标题分别为空白和共有文件的标签。编写程序，使得驱动器列表框与目录列表框.目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。能够正确实现上述功能的程序是: Private Sub Dir1_Change()File1.Path = Dir1.PathLabel1.Caption = File1.ListCountEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveLabel1.Caption = File1.ListCountEnd Sub23、假定在窗体上建立了通用对话框，其名称为CommonDialog1 ，用下面的语句可以建立一个对话框:CommonDialog1.Action = 2与该语句等价的语句是_CommonDialog1.showsave _。24、下列 _Print _ 不是列表框的方法。25、以下关于函数过程的叙述中，正确的是_函数过程形参的类型与函数返回值的类型没有关系 _。26、执行以下语句后，a的值为_溢出 。 Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 10027、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入_- _计算题28、下面程序是接受用户从键盘上输入一个正整数，找出大于或等于该数的第一个素数。 Option Explicit Private Sub Command1_Click() Dim n As Integer, k As Integer Dim i As Integer n = InputBox(请输入一个正整数) _k=n_ Do For i = 2 To Sqr(k) If k Mod i = 0 Then Exit For Next i If _isqr(k)_ Then Exit Do Else _k=k+1_ End If Loop Print 大于等于; n; 的第一个素数是; k End Sub29有如下程序 a = 100 Do s = s + a a = a + 1 Loop While a 120 Print a运行后的输出结果为_101_。30阅读下面程序，当单击窗体后，窗体上输出的是_12 7 4_。 Private Sub Form_Click() Dim i As Integer, j As Integer Dim k As Integer For i = 1 To 10 Step 3 For j = 1 To 10 Step 2 If j = 5 Then i = i + 4: Exit For j = j + 1 k = k + 1 Next j If i 8 Then Exit For Next i Print i; j; k End Sub31、下列程序的执行结果为_10_。 Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = i Next i Call f(a(5) Print a(5) End Sub Private Sub f(n As Integer) n = n + 5 End Sub32、任意输入三个数，将其按从小到大的顺序输出。完善以下程序。 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim temp As Integer a = InputBox(输入第一个数) b = InputBox(输入第二个数) c = InputBox(输入第三个数) Print 初始值：;a; b; c If a b Then temp = a: a = b: b = temp End If If _ac或a=c_ Then temp = a: a = c: c = temp End If If _bc或b=c或c_ Then temp = b: b = c: c = temp End If Print 排序后：;a; b; c End Sub33、以下程序的功能是随机生成20个1到100之间的正整数，用选择法将其按从大到小的顺序排列后输出。 Private Sub Command1_Click() Dim a(20) As Integer, i As Integer Dim j As Integer, temp As Integer Print 排序前： For i = 1 To 20 a(i) = Int(Rnd * 100) + 1 Print a(i); Next i Print For i = 1 To 19 For j = _1+i_ To 20 If _a(j)=a(i)_ Then t = a(i) a(i) = a(j) _a(j)=t_ End If Next j Next i Print 排序后： For i = 1 To 20 Print a(i); Next i End Sub34、行以下程序段， 第一行输出结果是_6 5 4 3_，第二行输出结果是_123_。 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 Print a = Array(abc, 123, def) Print a(1) End Sub35、执行以下程序，单击命令按钮后，输出结果是_0 1 2 3 4 5 6 7 8 9 10_。 Private Sub Command1_Click() Dim a(10) As Integer Dim b For i = 1 To 10 a(i) = i Next i For Each b In a Print b; Next b End Sub36、随机文件的读操作通过_get_语句实现，而写操作通过put语句实现。37、运行下列程序，单击窗体后在窗体上显示的结果是_-3_ 。 Private Sub Form_Click() Dim x As Integer ,y As Integer x=-5 y=-20 If Not x0 Then x=y-3 Else y=x+3 End If Print x-y End sub38、运行如下程序后，输出结果为_19_。 For m = 1 To 4 a = 0 For j = 1 To 5 a = 1 For k = 1 To 6 a = a + 3 Next k Next j Next m Print a39、设计一个函数，求任意数的阶乘。编写通用函数过程如下，请补充程序。 Public Function f(n As Double) As Double Dim s As Double Dim i As Integer If n 1 Then y = x + 2 ElseIf x 5 Then y = x + 3 ElseIf x = 2 Then y = x End If Print y41、执行以下程序，单击命令按钮后，窗体上的输出结果是_-1_。 Private Sub Command1_Click() Dim a As Integer a = True * 6 + 5 Print a End Sub42、执行下列程序，单击命令按钮在窗体上输出结果为_5 6 3_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, k As Integer Dim i As Integer, j As Integer, n As Integer n = UBound(a, 1) For i = 1 T