在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Textl,然后编写如下程序:程序运行后
A.A.12
B.B.20
C.C.24
D.D.40
A.A.12
B.B.20
C.C.24
D.D.40
第1题
(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然
后编写如下两个事件过程:
Private Sub Command1_Click()
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,
则在标签中显示的内容是 【6】 。
第2题
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程: Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后,单击命令按钮,在文本框中显示的是______。
A.36
B.45
C.54
D.63
第3题
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:Dim SaveAll As StringPrivate Sub Form_ Load () Show Text1.Text=" " Text1.SetFocusEnd SubPrivate Sub Command1_ Click() Text1. Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form_ KeyPress (KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为 ______。
A.vbVB
B.不显示任何信息
C.VB
D.出错
第4题
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2),新建一个窗体Form2。然后编写如下程序: Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序,要实现单击Command1命令按钮后卸载当前窗体,再弹出名为Form. 2的窗体,则在两个文本框中应分别输入______。
A.a 1
B.a a
C.1 a
D.1 1
第5题
在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1),然后编写如下两个事件过程: Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后,单击命令按钮,则在Text2文本框中显示的内容是
A.Microsoft Visual Basic
B.microsoft visual basic
C.MICROSOFT VISUAL BASIC
D.空字符串
第6题
A.27
B.28
C.29
D.30
第7题
在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl),然后编写如下两个事件过程: Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后,单击命令按钮,则在Text2文本框中显示的内容是______。
A.Computer Rank Examination
B.computer rank examination
C.COMPUTER RANK EXAMINATION
D.空字符串
第8题
A.27
B.28
C.29
D.30
第9题
在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private Sub Command1_Click()
a=InputBox("请输入日期 (1~31)")
t="旅游景点:"& IIf(a>0 And a<=10, "长城","") &
IIf(a>10 And a<=20, "故宫","") & IIf(a>20 And a<=31, "颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘上输入16,则在文本框中显示的内容是
A.旅游景点:长城故宫
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
第10题
在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private Sub Command1_Click()
a=InputBox("请输入日期(1~31)")
t="旅游景点:" &IIf(a>0 And a<=10,"长城","") & _
IIf(a>10 And a<=20,"故宫","") & IIf(a>20 And a<=31,"颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘上输入16,则在文本框中显示的内容是
A.旅游景点:长城故宫
B.旅游景点:长城颐和园
C.旅游景点:颐和园
D.旅游景点:故宫
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!