A.1
B.7
C.17
D.400
[单选题]在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:Private Sub Command1_Click()F.or I=1 To 4X=3F.or j=i To 3F.or k=1 To 2X=x+3Next kNext jNext IText].value=Str(x)E.nd Sub打开窗体运行后,单击命令按钮,文本框Text1输出的结果是A.6B.12C.18D.21
[单选题]在窗体上画一个命令按钮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<=30,"颐和园","") Text1.Text=t End Sub 程
[单选题]在窗体上画一个命令按钮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<=30,"颐和园","") Text1.Text=t End Sub 程序运
[单选题]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是( )。A. 2B. 3C. 4D. 5
[单选题]在窗体中有一个命令按钮Command1和一个文本框Test1,编写事件代码如下: Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是( )。A.6B.12C.18D.21
[单选题]( 24 )窗体上有一个 Text1 文本框,一个 Command1 命令按钮,并有以下程序Private Sub Commandl_Click ()D.im nIf Text1.Text<> " 23456 " Thenn=n + 1Print " 口令输入错误 " & n & " 次 "E.nd IfE.nd Sub希望程序运行时得到左图所示的效果,即:输入口令,单击 “ 确认口令 ” 命令按钮 , 若输入的口令不是 “ 123456 ” ,则在窗体上
[单选题]( 33 )在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下:Private sub command1_click()F.or i=1 to 4X=3F.or j=1 to 3F.or k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)E.nd sub打开窗体运行后,单击命令按钮,文本框 text1 输出的结果是A. ) 6B. ) 12C. ) 18D. ) 21
[单选题]设窗体上有一个文本框Text1和一个命令按钮Command1,并有下列事件过程: Private Sub Command1_Click() Dim s As String,Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1,k,1) s=ch+s Next k Text1.Text=s End Sub 程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是( )。A.BasicB.cisaBC.BASICD.C
[单选题]在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写下列程序:Private Sub Command1 click()A.=InputBox("请输入日期(1~31)")t="旅游景点:"_&Ⅱf(A>0 And A<=10,"长城","")_&Ⅱf(A>10 And A<=20,"故宫","")_&Ⅱf(A>20 And A<=30,"颐和园","")Text1.Text=tE.nd Sub程序运行后,如果从键盘输入5,
[单选题]在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"E.nd IfE.nd Sub当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为()A.显示对话框,提示信息为"帐号正确"B.显示对话框,提