分页:
上一页 1 2 [3] 4 5 6 7 8 9 10 下一页
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a$, , b$, c$, 1
End Sub
运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是
A)software and hardware B)software C)hardware D)1
(17)在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是
A)108 B)18 C)810 D)出错
(18)在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:
Private Sub Form_Load()
Show
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_Change()
Text2.Text = Mid(Text1.Text, 8)
End Sub
程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是
A)BeijingChina B)China C)Beijing D)BeijingC
(19)在窗体上画一个列表框和一个命令按钮,其名称分别为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
程序运行后,单击命令按钮,其结果为
A)把字符串“AAAA”添加到列表框中,但位置不能确定
B)把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面)
C)把列表框中原有的最后一项改为“AAAA”
分页:
上一页 1 2 [3] 4 5 6 7 8 9 10 下一页