在窗体上画一个名为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) x = Val（InputBox（"Input")) Select Case x Case 1 To 3 Print "分支1" Case Is ＞= 4 Print "分支2" Case Else Print "其它" End Select End Sub 程序运行后，如果在输入对话框中输入8，则窗体上显示的是____。A．分支1B．分支2C．其它D．程序出错
在窗体上画一个名为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) x = Val（InputBox（"Input")) Select Case x Case 1 To 3 Print "分支1" Case Is ＞= 4 Print "分支2" Case Else Print "其它" End Select End Sub 程序运行后，如果在输入对话框中输入8，则窗体上显示的是____。
A．分支1
B．分支2
C．其它
D．程序出错
参考答案和解析
B 解析：考查考生对文件操作语句的掌握情况。打开随机文件的一般格式为Open'文件名'For Random As#文件号[Len=记录长度]随机文件的写操作通过Put语句来实现,其格式为:Put#文件号,[记录号],变量文件指针的定位、读取文件等。
相关考题：
在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A=InputBox("被除数")B=InputBox("除数")Print A；"÷"；B；"="；A / BEnd Sub则窗体中显示的内容是______。
在窗体上画一个名称为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
在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is＞=10,Is＜=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是______。A．执行y=x*xB．执行y=-xC．先执行y=x*x，再执行y=-xD．程序出错
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。A．0B．5C．15D．无任何输出
在窗体上画一个名称为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．程序出错
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
有如下程序，运行时从键盘输入3，输出结果是 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字：") Select Case a Case Is＞2 b=a+1 Case Is＞3 b=a+2 Case Is＞4 b=a＋3 Case Is＞5 b＝a＋4 End Select Print a ＋ b End SubA．8B．7C．6D．9
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )A．123345B．468C．123D．345
在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： PrivateSubCommand1_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
在窗体上画一个名称为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
设有如下程序： 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 Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是A．6B．5C．4D．3
单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is ＜= 0 n=InputBox("错误!请重新输入日期!") Case Is＞7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End SubA．错误!请重新输入日期!B．江苏C．浙江D．双休日
设窗体上有一个名为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.输入错误
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是A．3B．4C．5D．6
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。A．3B．4C．5D．6
在窗体中添加一个命令按钮(其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
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputDox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为 ______。A．15B．14C．13D．12
在窗体上画一个名称为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．程序出错
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A)b=InputBox("请输入B的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。A．2B．3C．14D．15
执行以下程序段，如果在对话框中输入8，输出结果是"Hello"的是______。A．n = InputBox("请输入一个数") Select Case n Case 7 To 1 Print "Hello" End SelectB．n = InputBox("请输入一个数") Select Case n Case Is＞1, Is ＜ 6 Print "Hello" End SelectC．n = InputBox("请输入一个数") Select Case n Case Is ＞ 5, 1, 3 To 10 Print "Hello" End SelectD．n=InputBox("请输入一个数") Select Case n Case 1, 5, Is ＞ 9 Print "Hello" End Select
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．8B．2C．5D．11
有如下程序： x = InputBox("Input value of x") Select Case x Case Is ＞ 0 y=y+1 Case Is = 0 y=x + 2 Case Else y=x + 3 End Select Print x, y运行时，从键盘输入-5，输出的结果是( )。A．-7B．-9C．-8D．-10
下列程序段的执行结果为______。 Private Sub Command1_Click() a=1：b=1 Select Case a Case 1 Select Case b Case 0 Print "你好!" Case 1 Print "Hello!" End Select Case 2 Print"谢谢使用!" End Select End SubA．你好!B．谢谢使用!C．Hello!D．你好!谢谢使用!
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。A．3B．4C．5D．6
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a=0 Then x=x-1 Else If b＜＞0 Then End If End If If c＜＞0 Then x=3 Else x=4 End If Print x End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．34B．4C．35D．3
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x = -5If Sgn（x） Then y = Sgn（x ^ 2）Else y = Sgn（x）End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是（ ）。A．-5B．25C．1D．-1
（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）输入错误