计算机vb模拟题.docVIP

选择题 1. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 0 Then m = m + n \ 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。 A.18 B.15 C.21 D.24 2. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 。 A. 只保存工程文件 B. 分别保存窗体模块、标准模块和工程文件 C. 只保存窗体模块和标准模块文件 D. 只保存窗体模块文件 3. 以下关于图片框控件的说法中，错误的是______。 A. 图片框控件可以作为容器使用 B. 清空图片框控件中图形的方法之一是加载一个空图形 C. 可以通过Print方法在图片框中输出文本 D. 用Stretch属性可以自动调整图片框中图形的大小 4. 下列程序段的执行结果为______。 A = 0: B = 0 For I = -1 To -2 Step -1 For J = 1 To 2 B = B + 1 Next J A = A + 1 Next I Print A; B A. -2 2 B. 2 3 C. 2 4 D. 4 2 5. 设置复选框中或单选按钮的标题对齐方式的属性是______。 A. Alignment B. Style C. Sorted D. Align 6. 通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。 A. 代码窗口 B. 属性窗口 C. 窗体设计窗口 D. 窗体布局窗口 7. 在窗体上画2个命令按钮，名称分别为Command1、Command2，并编写如下程序 Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() k=1 For i=1 To m For j=1 To n a(i,j)=k k=k+1 Next j Next i End Sub Private Sub Command2_Click() summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then summ=summ+a(i,j) Else If j=1 Or j=n Then summ=summ+a(i,j) End If End If Next j Next i Print summ End Sub 过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是______。 计算矩阵第1行和最后一行元素的累加和 计算矩阵外围一圈以外的所有元素的累加和 计算矩阵第1列和最后一列元素的累加和 计算矩阵外围一圈元素的累加和 8. 单击窗体时，下列程序代码的执行结果为______。 Private Sub Form_Click() Test 2 End Sub Private Sub Test(x As Integer) x = x * 2 + 1 If x 6 Then Call Test(x) End If x = x * 2 + 1 Print x; End Sub A. 5 11 B. 23 47 C. 10 22 D. 23 23 9. 编写如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then Print BBBB End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______。 A. 同时按下Shift键和鼠标右键 B. 同时按下Ctrl、Alt键和鼠标