有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1显示的是__________。 Private Sub Command1_Click（) Dim min%, k%, a% For k = 1 To 4 a = Val（InputBox（"输入一个整数")) If a ＜ min Then min = a End If Next Label1.Caption = min End SubA．14B．23C．56D．88E．0
有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1显示的是__________。 Private Sub Command1_Click（) Dim min%, k%, a% For k = 1 To 4 a = Val（InputBox（"输入一个整数")) If a ＜ min Then min = a End If Next Label1.Caption = min End Sub
A．14
B．23
C．56
D．88
E．0
参考答案和解析
0
相关考题：
在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：Option Base 0Private Sub Command1_Click（）Dim A （4）As Integer,B（4） As IntegerFor k=0 To 2A（k+1）=InputBox（“ 请输入一个整数 ”）B（3-k）=A（k+1）Next kPrint B（k）End Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输入结果为（ ）。 A．0B．2C．3D．4
（ 23 ） 在窗体上画一个命令按钮，名称为 Command1 ，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A(4) As Integer,B(4) As IntegerFor k = 0 To 2A(k + 1) = InputBox(" 请输入一个整数 ")B(3 - k) = A(k + 1)Next kPrint B(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输出结果为A ） 0B ） 2C ） 3D ） 4
（ 9 ） 下面的程序执行时 ， 可以从键盘输入一个正整数 ， 然后把该数的每位数字按逆序输出 。 例如 ： 输入 7685 ，则输出 5867 ，输入 1000 ，则输出 0001 。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox( “ 请输入一个正整数 ” )While x_ _[11] ___Print x Mod 10;x=x\10WendPrint__ [12] __End Sub
设有如下程序： Private Sub Commandl_click() Dim c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0 If d＞c Then c=c+1 End If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、 0，则输出结果是A．12B．11C．10D．9
（21）窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End SubPrivate Sub Command2_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End Sub运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组a 中元素的个数是（ ）。A）5B）6C）10D）11
设有如下程序：Private Sub Command1_Click（）Dim c As Integer, d As Integerc = 4d = InputBox（"请输入一个整数"）Do While d 0If d c Then c = c + 1End If d = InputBox（"请输入一个整数"）LoopPrint c + dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。A．12B．11C．10D．9
（ 25 ）在窗体上面画一个命令按钮，名称为 Command1 ，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1(4) As Integer,A2(4) As IntegerFor k=0 To 2A1(k+1)=InputBox( “ 请输入一个整数 ” )A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入 2 、 4 、 6 ，则输出结果为A ） 0B ） 1C ） 2D ） 3
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)＝InputBox(“请输入一个整数”) B(3-k)＝A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为______。A．0B．2C．3D．4
在窗体上画一个命令按钮，命名为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
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入37和18，输出结果为A．3718B．55C．0D．a+b
某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。A．把Ifa(k)＞max Then 改为 If a(k)＜max ThenB．把max=a(k)改为a(k)=maxC．把第2个循环语句For k=1 To 10改为For k=2 To 10D．把max=O改为max=a(10)
下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式1+22+32+42+…+n2＜m的最大的n。请填空。Private Sub Command1_Click()Dim s,m,n As Integerm=Val(InputBox("请输入一个大于100的整数"))n=【 】s=0Do While s＜mn=n+1s=s+n*nLoopPrint "满足不等式的最大n是";【 】End Sub
有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为A．120B．60C．80D．100
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme 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
设有如下程序： Private Sub Command1_Click( ) Dim c As Integer，d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d＞0 If d＞c Then C=C+1 End lf d=InputBox(“请输入一个整数”) Loop Print c+d End sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是A．12B．11C．10D．9
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(B) a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。A．6000B．-10C．200D．-6000
单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S＞=0 If S＞max Then max=S End If If S ＜ min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End SubA．4:99,88B．4;99,73C．4:99,73D．4;99,88
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。A．0B．1C．2D．3
设有以下程序：Private Sub Form_ Click() x=50 For i=1 To 4 y=InputBox(“请输入—个整数”) y=Val(y) If y Mod 5=0 Then a=a+ y x=y Else a=a+ x End If Next i Print aEnd Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为 ______。A．100B．50C．120D．70
在窗体中添加一个命令按钮，然后编写如下代码：Private Sub Command1_Click()a＝InputBox("请输入一个整数")b＝InputBox("请输入一个整数")Print Val(a)+Val(b)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为【 】。
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，4) End Sub 程序运行后，如果在对话框中输入abcdefgh，则在标签中显示的内容是 ______。A．空B．abcdefC．abcdD．efgh
有如下事件过程： Private Sub Form. Click（ ） Dim n As Integcr x=0 n=InputBox("请输入一个整数") For i=1 To i for j =1 To j x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。A.13B.14C.15D.16
设有下列程序 Private Sub Form. Click（ ） X=50 For i=1 T0 4 y=InputBox("请输入一个整数") y=Val(v) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。A.100B.50C.120D.70
先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。A． 0B．100C．200D．300
在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum=Abs(Bum) Do While Bum k=k+(Bum Mod 10) Bum=Bum\10 Loop fun1=k End Function Private Sub Command1_Click() Dim n As Long n=InputBox("请输入一个数") Print fun1(n) End Sub 程序运行后，单击命令按钮，在对话框中输入234，输出的结果为A．3B．4C．9D．10
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为______。A．1B．2C．3D．4
在窗体上画一个命令按钮，名称为Command1，然后编写下列代码： Option Base 0 Private Sub Command1 Click（ ） Dim A1(4)As Integer，A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(”请输入一个整数”) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。A.0B.1C.2D.3
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(a)b = InputBox("请输入b值") b = Val(b)a=a*b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1后，输出结果为( )。A．6000B．-10C．200D．-6000