题库
题库
A．Visual
B．Basic
C．Program
D．出错
| 单选题 | 以下关系表达式中，其值为False的是 | 查看答案 |
| 单选题 | 以下叙述中错误的是 | 查看答案 |
| 单选题 | 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是 |
查看答案 |
| 单选题 | 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next i End Sub 该事件过程的功能是 |
查看答案 |
| 单选题 | 以下关于函数过程的叙述中，正确的是 | 查看答案 |
| 单选题 | 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为 |
查看答案 |
| 单选题 | 在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是 |
查看答案 |
| 单选题 | 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strText End Sub Private Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是 |
查看答案 |
| 单选题 | 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为 |
查看答案 |
| 单选题 | 以下关于变量作用域的叙述中，正确的是 | 查看答案 |
| 单选题 | 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： Private Type animal AnimalName As String*20 AColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open "c:\vbTest.dat" For Random As #1 Len = Len(rec) rec.animalName = "Cat" rec.aColor = "White" Put #1, , rec Close #1 End Sub 则以下叙述中正确的是 |
查看答案 |
| 单选题 | 在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 Next End Sub 程序运行后，单击命令按钮，四个文本框中显示的内容分别为 |
查看答案 |
| 单选题 | 语句Print 5/4*6\5 Mod 2的输出结果是 | 查看答案 |
| 单选题 | 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是 |
查看答案 |
| 单选题 | 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是 | 查看答案 |
| 单选题 | 以下定义数组或给数组元素赋值的语句中，正确的是 | 查看答案 |
| 单选题 | 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是 | 查看答案 |
| 单选题 | 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是 |
查看答案 |
| 单选题 | 以下Case语句中错误的是 | 查看答案 |
| 单选题 | 以下关于图片框控件的说法中，错误的是 | 查看答案 |