题库
题库
A．ForLoop
B．Const
C．9abc
D．a#x
| 单选题 | 以下关于MsgBox的叙述中，错误的是 | 查看答案 |
| 单选题 | 以下关于文件的叙述中，错误的是 | 查看答案 |
| 单选题 | 以下关于多重窗体程序的叙述中，错误的是 | 查看答案 |
| 单选题 | 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是 |
查看答案 |
| 单选题 | 设菜单中有一个菜单项为"Open"。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是 | 查看答案 |
| 单选题 | 以下叙述中错误的是 | 查看答案 |
| 单选题 | 假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1() x =1 S2 End Sub Sub S2() y=10 Form1.Show End Show Model2的代码如下： Sub Main() S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是 |
查看答案 |
| 单选题 | 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。 编写如下程序： Private Sub Form_Load() Timer1.Enabled=False End Sub Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled=False End Sub Private Sub Timer1_Timer() If Label1.Left<Width Then Label1.Left = Label1.Left + 20 Else Label1.Left=0 End If End Sub 程序运行后单击“开始”按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是 |
查看答案 |
| 单选题 | 在窗体上画一个名称为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，则窗体上显示的是 |
查看答案 |
| 单选题 | 设有如下程序段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x的值是 |
查看答案 |
| 单选题 | 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 | 查看答案 |
| 单选题 | 以下叙述中错误的是 | 查看答案 |
| 单选题 | 在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 |
查看答案 |
| 单选题 | 以下合法的Visual Basic标识符是 | 查看答案 |
| 单选题 | 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。 以下能实现上述操作的程序段是 |
查看答案 |
| 单选题 | 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 | 查看答案 |
| 单选题 | 设x=4,y=8,z=7，以下表达式的值是 x<y And (Not y>z) Or z<x |
查看答案 |
| 单选题 | 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2,a) End Sub Private Sub g(f As Form,x As Integer) y=IIf(x>10,100,-100) f,Show f.Caption=y End Sub 运行以上程序，正确的结果是 |
查看答案 |
| 单选题 | 阅读程序 Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum = 0 arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3 = arr(i)\3 Then Sum = Sum + arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为 |
查看答案 |
| 单选题 | 表达式 5 Mod 3+3\5*2的值是 | 查看答案 |