网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
设有下列程序 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.100
B.50
C.120
D.70
参考答案
更多 “ 设有下列程序 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 ” 相关考题
考题
（ 32 ）设有以下程序：Private Sub Form_Click()X=50For i=1 To 4Y=InputBox( “ 请输入一个整数 ” )Y=Val(y)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为A ） 100B ） 50C ） 120D ） 70
考题
下列程序的功能是:当x50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当x100时,没有意义。请填空。Private Sub Command1_Click()Dim x As Singlex=InputBox("请输入x的值!")Select Case xCase Is 50y=0.8 * xCase 50 To 100y=0.7 * x【 】Print "输入的数据出界!"End SelectPrint x, yEnd Sub
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()X=0Do While X＜＞-1X=Val(InputBox("请输入数据X:"))Y=Val(InputBox("请输入数据Y:"))If X*Y＜X+Y Then Print X，YLoopEnd Sub程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】
考题
下列程序的功能是:当x100时, Private Sub Command1_
下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,Private Sub Command1_Click()Dim x As Singlex = InputBox("请输入x的值" )Select Case xCase Is＜50y=0.8 * xCase 50 To 100y=0.7 * x【 】Print "输入数据出界!"End SelectPrint x, yEnd Sub
考题
设有如下程序： 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 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() 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
考题
下列程序的功能是:当x100时,没有意义。请填空。 Private
下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。Private Sub Command1_Click()Dim x AS Singlex=InputBox("请输入x的值!")________Case Is＜50y=0.8*xCase 50 To 100y=0.7*K__________Print"输入的数据出界!"End SelectPrint x，yEnd Sub
考题
以下程序段的作用是首先按降序输入10个数到数组Y的前10个元素中，又输入一个YO插入到数组Y中，插入YO后Y中的数据仍按降序排列。请补充完该程序______。Dim Y(1 To 11)For i =1 To 10Y(i) = Val(InputBox(“请输入Y(i)：”))Next iX = Val(InputBox (“请输入x：”))For i = 10 To 1 Step -1If【 】ThenY(i + 1) = XExit ForEnd IfY (i + 1) =Y(i)Next i'Print Y(10)For i =1 To 11Print Y(i)Next I
热门标签
最新试卷
