单选题
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click()
x! = Val(Text1.Text)
Select Case x
Case Is < -10, Is >= 20
Print "输入错误"
Case Is < 0
Print 20 - x
Case Is < 10
Print 20
Case Is <= 20
Print x + 10
End Select
EndSub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。
发布于 2022-05-11 10:17:45
登录后免费查看答案
关注者
0
被浏览
13
1 个回答
推荐阅读
-
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：Private Sub Command1 Click（ ）X!=Val(Text1．Text)Select Casc xCase Is<-10，Is>=20Print"输入错误"Case Is<0Print 20-xCase Is<10Print 20Case Is<=20Print x+10End SeleetEnd Sub程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1，3y=x*xCase Is>=10，Is<=-10y=xCase -10 To 10y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝InputBox（＂Input＂）Select Case x Case 1，3Print ＂分支1＂Case Is ＞4Print ＂分支2＂Case ElsePrint ＂Else 分支＂End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click(．Dim i, j, xFor i = 1 To 20 Step 2x = 0For j = i To 20 Step 3x = x + 1Next jNext iText1.Value = Str(x．End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是
2022-05-13 关注 0 浏览16 1答案
-
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
2022-05-11 关注 0 浏览8 1答案
-
在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click(．For I =1 To 4x = 3For j = 1 To 3For k = 1 To 2x = x + 3Next kNext jNext IText1.value = Str(x．End Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是
2022-05-13 关注 0 浏览16 1答案
-
窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a(10), x%For k = 1 To 10a(k) = Int(Rnd * 90 + 10)x = x + a(k) Mod 2Next kPrint xEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
窗体上有一个名为Command1的命令按钮，并有如下程序：Private Sub Command1Click（ ）Dim a(10)，x％Fork=1 To 10a(k)=Int(Rnd*90+10)x=x+a(k)Mod 2Next kPrint XEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click()n = Val(Text1.Text)If n\2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
2022-05-11 关注 0 浏览16 1答案
