VB考试1选择题.docVIP

1.以下程序段运行的结果是：__35____。 Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1 If a(i) = False Then a(i) = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j 2.在窗体上画一个命令按钮（名称为Command1），编写如下事件过程： Private Sub Command1_Click() b = 5 c = 6 Print a = b + c End Sub 程序运行后，单击命令按钮，输出的结果是：_false_____。 3.表达式4+5\6*7/8 Mod 9的值是___5___。 4下列可作为Visual Basic变量名的是___contA___。 5.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(Input) Select Case x Case 1,3 Print 分支 1 Case Is 4 Print 分支 2 Case Else Print Else 分支 End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是_Else 分支 _____。 6. 执行如下语句： a = InputBox(Today,Tomorrow,Yesterday,,,Day before yesterday,5) 将显示一个对话框，在对话框的输入区中a显示的信息是__ Yesterday ____。 7. 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是_ Private Sub List1_Click() Label1.Caption=List1.Text End Sub _____。 8. 用Write和Print语句向文件中写入多个数据的差别在于_ Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格。 _____。 9. 下列程序段的执行结果为___ -3 3 ___。 X = 5 Y = -20 If Not X 0 Then X = Y - 3 Else Y = X + 3 Print X - Y; Y - X 10有以下程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2);arr(3,4) End Sub 程序运行后，单击窗体，输出结果为__ 8 13 ____。 11通过以下_窗体布局窗口 _____窗口可以在设计时直观的调整窗体在屏幕上的位置。 12. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text=Visual Me.Text1=Basic Text1=Program End Sub 程序运行后，如果单