在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下事件过程:
Private Sub Co mmand1_Click()
x=InputBox("Input")
Select Case x Case 1,3
Print "分支1"
Case Is >4
Print "分支2"
Case Else
Print "Else 分支"
End Select
End Sub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是( )。
发布于 2022-05-11 09:58:29
登录后免费查看答案
关注者
0
被浏览
11
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的命令按钮,然后编写如下程序:Public Enumsa=4b =3End EnumPrivate Sub Co mmand1_Click()Di mx As Integerx=aIf x>=3ThenMsgBox "Pass !"End Sub运行程序,其结果是( )。
2022-05-11 关注 0 浏览8 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下事件过程:Private Sub Co mmand1_Click()Di ma As Integer ,s As Integera=8s =1Dos =s +aa=a-1Loop While a <=0Print s ;aEnd Sub程序运行后,单击命令按钮,则窗体上显示的内容是( )。
2022-05-11 关注 0 浏览14 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答案
-
在窗体上画一个名为Co mmand1的命令按钮,然后编写以下程序:Private Sub Co mmand1_Click()Di m M(10)As IntegerFor k =l To 10M(k)=12-kNextkx=8Print M(2+M(x))End Sub运行程序,单击命令按钮,在窗体上显示的是( )。
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Co mmand1_Click()Di mI ,NumRando mizeDoFor I =1To 1000Num=Int(Rnd*100)Print Num;Select Case NumCase 12Exit ForCase 58Exit DOCase 65,68,92EndEnd SelectNext ILoopEnd Sub上述事件过程执行后,下列描述中正确的是( )。
2022-05-11 关注 0 浏览8 1答案
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Co mmand1_Click()x=0Do Until x=-1a=InputBox("请输入A 的值")a=Val(a)b =InputBox("请输入B的值")b =Val(b)x=InputBox("请输入x 的值")x=Val(x)a=a+b +xLoopPrint aEnd Sub程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为( )。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮,名称为Co mmand1,然后编写下列代码:Option Base 0Private Sub Co mmand1_Click()Di m A1(4)As Integer ,A2(4)As IntegerFor k =0To 2A1(k +1)=InputBox("请输入一个整数")A2(3-k)=A1(k +1)Next k Print A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
2022-05-11 关注 0 浏览14 1答案
-
设有如下通用过程:Public Function f(x As Integer)Di my As Integerx=20y =2f =x*yEnd Function在窗体上画一个名称为Co mmand1的命令按钮,然后编写如下事件过程:Private Sub Co mmand1_Click()Static x As Integerx=10y =5y =f(x)Print x;yEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
2022-05-11 关注 0 浏览11 1答案
-
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并有以下事件过程:Private Sub Command1_Click()x! = Val(Text1.Text)Select Case xCase Is < -10, Is >= 20Print "输入错误"Case Is < 0Print 20 - xCase Is < 10Print 20Case Is <= 20Print x + 10End SelectEndSub程序运行时,如果在文本框中输入-5,则单击命令按钮后的输出结果是( )。
2022-05-11 关注 0 浏览12 1答案