网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下： Private Sub run11_Click（） Select Case num2 Case 0 Result=“0分” Case 60 To 84 result= “通过” Case IS＞=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体，在文本框中输入80，单击命令按钮，输出结果是（）。
A．合格
B．通过
C．优秀
D．不合格
参考答案和解析
Private Sub Text1_Change() Command1.Caption=”考试” End Sub
更多 “在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下： Private Sub run11_Click（） Select Case num2 Case 0 Result=“0分” Case 60 To 84 result= “通过” Case IS＞=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体，在文本框中输入80，单击命令按钮，输出结果是（）。A．合格B．通过C．优秀D．不合格” 相关考题
考题
在窗体中使有一个文本框（名为 n ）接受输入的值，有一个命令按钮 run ，事件 代码 如下：Private Sub run_Click()result=""For i=1 To Me!nFor j=1 To Me!nresult=result+"*"Next jresult=result+Chr(13)+Chr(10)Next iMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为 4 ，单击命令按钮后输出的图型是}A. ****************B. ****************C. ****************************D. ****************
考题
在窗体上有一个命令按钮，然后编如下事件过程：Function SR（x As Double） As DoubleSelect Case Sgn（x）Case 1SR=Sqr（x）Exit FunctionCase 0SR=0Case -1SR=-1End SelectEnd FunctionPrivate Sub Command1_Click（）Dim Msg, SRNDim N As DoubleN=InputBox（"请输入要计算平方根的数"）Msg=N "的平方根"Select Case SR（N）Case 0Msg=Msg "是0"Case -1Msg=Msg "是一个虚数"Case ElseMsg=Msg "是" SR（N）End SelectMsgBox MsgEnd Sub程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 【15】 。
考题
以下程序段：Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为()A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.5
考题
程序运行后，单击窗体，屏幕显示的结果是( )。 Private Sub Form_Click() num1="乙" num2=76 Select Case numl Case"甲" If num2＞=80 Then Print"德艺优秀" Else If num2＞=60 Then Print"德优秀，艺普通" End If Case"乙" If num2=80 Then Print"德艺双佳" ElselfnumA．德艺双佳B．德艺普通C．德优秀，艺普通D．德艺优秀
考题
在窗体上画一个名称为Commaudl的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程； Private Sub Command1_Click() n=Text1. Text Select Case n Case 1 To 20 x=10 Case 2, 4, 6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select TextText=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是______。A．10B．20C．30D．40
考题
在窗体中使用一个文本框(名为n) 接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click()result＝""For i＝1 To Me!nFor j＝1 To Me!nresult＝result+"*"Next jresult＝result+Chr(13) +Chr(10)Next IMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )A．B．C．D．
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box("Input") Select Case x Case 1,3 Print"分支1" Case Is＞4 Print"分支2" Case Else Print"Else分支" End Select End Sub 程序运行后，如果在输入对话A．分支1B．分支2C．Else分支D．程序出错
考题
设有如下窗体单击事件过程： Private Sub Form Click( ) a＝1 For i＝1 To 3 Select Case i Case 1,3 a＝a+1 Case 2,4 a＝a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是__A．3B． 4C． 5D． 6
考题
设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是( )。A．3B．4C．5D．6
考题
在窗体中使用一个文本框(名称为num1)接受输入值，有一个命令按钮run13，事件 代码如下： Private Sub run13_Click() If Me!num1＞=60 Then result="及格" Else If Me!num1＞=70 Then result="通过" Else If Me!num1＞=80 Then result="合格" End If MsgBOx result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是( )。A．及格B．通过C．合格D．其他
考题
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如下图所示。命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Action=5 Case 3 End End Select End Sub 对上述程序，下列叙述中错误的是( )。A．单击“打开”按钮，显示打开文件的对话框B．单击“保存”按钮，显示保存文件的对话框C．单击“打印”按钮，能够设置打印选项，并执行打印操作D．单击“退出”按钮，结束程序的运行
考题
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 ______。A．10B．20C．30D．40
考题
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：Private Sub Commandl一Click()x!==Val(Textl．Text)Select Case xCasc Is-10，Is=20Print“输入错误”Case Is0Print 20 xCase ls10Print 20Case Is=20Print x+10End SelectEnd Sub程序运行时，如果存文本框中输入一5，则单击命令按钮后的输出结果是A．5B．20C．25D．输入错误
考题
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程： Private Sub Command1 Click（ ） X!=Val(Text1．Text) Select Casc x Case Is-10，Is=20 Print"输入错误" Case Is0 Print 20-x Case Is10 Print 20 Case Is=20 Print x+10 End Seleet End Sub 程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。A.5B.20C.25D.输入错误
考题
设有如下窗体单击事件过程： Private Sub Fom_Click． a =1 For i –To3 Select Case i Case 1,3 a =a +1 Case2,4 a =a +2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出的结果是 A．3 B．4 C．5 D．6
考题
窗体中有命令按钮Commandl和文本框Text1，事件过程如下： Function result (By x As Integer)As Boolean If x Mod 2=0 Then result=True else result=False End if End Function PrivateSub Commandl_Click（ ） x=Val(InputBox(”请输入一个整数”)) If __________Then Text1=Str(x)”是偶数．” Else Text1=Str(x)”是奇数．” End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么以上程序的空白处应填写（ ）。A.result(x)=“偶数”B.result(x)C.result(x)=“奇数”D.NOT result(x)
考题
在窗体中使用一个文本框名为n．接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_Click( ) result = "" For i = 1 To Me!n For j = 1 To Me!n result = result + "*" Next j result = result + Chr(13) + Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是A． * * * * * * * * * * * * * * * *B． * * * * * * * * * * * * * * * *C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *D． * * * * * * * * * * * * * * * *
考题
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls＜60 a＄=“F” Case 60 T069 a＄=“D” Case 70 To 79 a＄=“C” Case 80 To 89 a＄=“B” Case Else a＄=“A” End Select Print aS End Sub 程序运行后，单击命令按钮，输出结果是A．AB．BC．CD．D
考题
在窗体中使用一个文本框名为x．接受输入值，有一个命令按钮test，事件代码如下： Private Sub test_Click y = 0 For i = 0 To Me!x y = y + 2 * i + 1 Next i MsgBox y End Sub 打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 【12】 。
考题
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 = 60 Then result = "及格" ElseIf Me!num1 = 70 Then result = "通过" ElseIf Me!num1 = 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
考题
下列程序 Private Sub form_Click() score=Int(Rnd * 10)+80 Select Case score Case Is＜60:a$＝"F" Case 60 To 69:a$＝"D" Case 70 To 79:a$＝"C" Case 80 To 89:a$="B" Case Else:a$＝"A" End Select Print a$ End Sub 运行时输出的结果是A．FB．DC．CD．B
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1，3 Print“分支1” Case Is4 Print“分支2” Case Else Print“Else分支” End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A．分支1B．分支2C．Else分支D．程序出错
考题
在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮Fun，事件代码如下： Private Sub run_Click（ ） result= Fori=l ToMe!nForj=1 To Melnresult=result+*Nextjresult=result+Chr（13）+Chr（10）NextiMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是（ ）。
考题
在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下： Private Sub run11 Click（ ） Select Case num2 Case 0 Result=“0分” Case 60 T0 84 result= “通过” Case IS=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体，在文本框中输入80，单击命令按钮，输出结果是（ ）。A.合格B.通过C.优秀D.不合格
考题
在窗体中使用一个文本框(名为n．接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click( ．result = For i= 1 To Me!nFor j = 1 To Me!nresult = result + *Next jresult = result + Chr(13． + Chr(10．Next iMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是
考题
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下； Ptivate Sub run_Click() Yesult=" " For i=1 To Me!n For j=1 To Me!n result=result +"*" Next j result=resuh+Chr(13)+Chr(10) NexL i MsSBOx result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是A． * * * * * * * * * * * * * * * *B． * * * * * * * * * * * * * * * *C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *D． * * * * * * * * * * * * * * * *
考题
在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl、Text2的文本框，然后编写如下事件过程： PrivateSubCommandl_Click() n=Textl.Text Select Case n Case 1 To 20 x=10 Case2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是______。A．10B．20C．30D．40
考题
（26）设窗体上有一个名为Text 1的文本框和一个名为Command 1的命令按钮，并有以下事件过程：Private Sub Commandl Click()x！=Val(Text 1.Text)Select Case xCase Is＜-10，Is＞=20Prini"输入错误"Case Is＜0Print 20-xCase Is＜10Print 20Case Is＜＝20Print x+10End SelectBud Sub程序运行时，如果在文本框中输入一5}则单击命令按钮后的输出结果是A）5B）20C）25D）输入错误
热门标签
最新试卷