单选题以下程序段:
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "+"
Result = Num1 + Num2
Case 2
Op = "-"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后,输入2,则label1的标题显示结果为( )
单选题命令按钮不支持的事件为
单选题下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 print"A" Case 1 Print"B" End Select Case 2 Print"C" End Select
单选题下面程序计算并输出的是______
单选题要设定文本框内的文字内容是否允许修改,应该设置的属性是( )。 A) Text B) Locked C) PasswordChar D) Multiline
单选题在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如 Private Sub Command1_Click() CommonDialogl. Flags = vbOFNHideReadOnly CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt CommonDialogl. FilterIndex = 1 CommonDialogl. ShowOpen MsgBox CommonDialogl. FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() C=“ABCD” For n=1 To 4 Print____ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在横线处应填入的内容是( )。 A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)
单选题下面关于控件数组的叙述中正确的是
单选题设已经建立如下表的菜单结构: 标题 名称 层次 数据库操作 Db 1 添加记录 Tj 2 查询记录 Cx 2 按姓名查询 Xm 3 按学号查询 Xh 3 删除记录 Delete 2 在窗体上还有一个名称为c1的命令按钮,要求在运行时,单击命令按钮则将菜单项“按姓名查询”设置为无效,下面正确的事件过程是
单选题若在某窗体模块中有如下事件过程:
Privam Sub Command1_Click(Index As Integer)
......
End Sub
则以下叙述中正确的是______。
单选题Visual Basic中的对话框分为3种类型,即预定义对话框、自定义对话框和 A) 列表框 B) 图片框 C) 通用对话框 D) 文本框
单选题在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程:
Private Sub Form_Load()
List1.AddItem"Item 1"
List1.AddItem"Item 2"
List1.AddItem"Item 3"
End Sub
Private Sub Command1_Click()
List1.List(List1.ListCount)="AAAA"
End Sub
程序运行后,单击命令按钮,其结果为
单选题语句Prim5/4*6/5Mod 2的输出结果是
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z = x * x + y * y End Sub Private Sub Command1_Click( ) Dim a As Integer a = 8 Call sub1(1, 2, a) Print a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是________。 (A) 8 (B) 2 (C) 5 (D) 11
单选题要计算x的平方根并放入变量y,正确的语句是
单选题窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程: Private Sub
Text1_Change(lndex As Integer) Select Case Index
Case 0 Text1(1).FontSize=Text1(0).FontSize*2
Text1(1).Text=Text1(0).Text Case 1
Text1(0).FontSize=Text1(1).FontSize/2
Text1(0).Text=Text1(1).Text Case Else
MsgBox“执行Else分支” End Select End Sub
关于上述程序,以下叙述中错误的是______。
A.Index用于标识数组元素
B.本程序中Case Else分支的语句永远不会被执行
C.向任何一个文本框输入字符,都会在另一个文本框中显示该字符
D.下标为0的文本框中显示的字符尺寸将越来越小
单选题以下关于MsgBox的叙述中,错误的是( ) A.MsgBox函数返回一个整数 B.通过MsgBox函数可以设置信息框中图标和按钮的类型 C.MsgBox语句没有返回值 D.MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量
单选题以下合法的VB变量名是( )。 A) _x B) 2y C) a#b D) x_1_x
单选题假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
单选题窗体上有一个列表框控件List1。以下叙述中错误的是( )。 A) List1中有ListCount-1个列表项 B) 当List1. Selected(i)=True,表明第i项被选中 C) 设置某些属性,可以使列表框显示多列数据 D) List1. Text的值是最后一次被选中的列表项文本