A.MsgBox函数返回一个整数
B.通过MsgBox函数可以设置信息框中图标和按钮的类型
C.MsgBox语句没有返回值
D.MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量
单选题 | 以下关于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的值是 | 查看答案 |