用户输入一个1-100之间的数字。打印1-1000中，所有可以被这个数字整除的数字，并打印序号。序号从1开始，依次加1. 例如，用户输入20，的运行情况： 请输入一个1-100之间的整数：20 1 20 2 40 3 60 4 80 5 100 ...... 46 920 47 940 48 960 49 980 50 1000 要求： 1. 请写出完整的程序（2分） 2. 写出程序运行结果（1分） 3. 程序应能够正常运行，并按要求输出结果（2分）
用户输入一个1-100之间的数字。打印1-1000中，所有可以被这个数字整除的数字，并打印序号。序号从1开始，依次加1. 例如，用户输入20，的运行情况： 请输入一个1-100之间的整数：20 1 20 2 40 3 60 4 80 5 100 ...... 46 920 47 940 48 960 49 980 50 1000 要求： 1. 请写出完整的程序（2分） 2. 写出程序运行结果（1分） 3. 程序应能够正常运行，并按要求输出结果（2分）
参考答案和解析
1*+1*+1*+1*+1*=205
相关考题：
在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Cliek()Dim arr()As IntegerRe Dim arr(3)For i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字：")IfVal(x)＞4 ThenRc Dim arr(4)arr(4)=xEnd IfMe.Print(arr(4)-arr(3))End Sub程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_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，8，5，8，-1，输出结果为 【9】 。
下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是【 】。Dim a,b As Integera=InputBox("请输入第一个整数")b=InputBox("请输入第二整数")Print a+b
（ 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
设有如下程序：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
（ 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
在窗体中添加一个命令按钮Command1，并有以下程序：Functionretnum()nl=Chr(13)+Chr(10)msg$=1.运行VB应用程序+nl+2.计算器msg$=msg$+nl+请输入数字选择retnum=InputBox(msg$,Title,Default)EndFunctionPrivateSubCommand1_Click()r=retnumIfr=1Thenx=Shell(c:\vbp\vbexam.exe,1)ElseIfr=2Thenz=Shell(calc.exe,1)ElseMsgBox请输入1-2的数EndIfEndSub程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )A.请输入1-2的数B.Windows的计算器C.调用C:\vbp\vbexam.exe程序并运行D.出错
（14）窗体中有一个命令按钮，然后编写下列事件过程： 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,8,5,8，-1，输出的结果是。
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click()a= Val(InputBox(“请输入一个整数”))b=Val(InputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
运行下面的程序，单击命令按钮后，当输入分别为123和456时，输出结果为 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") b=Val(InputBox("请再输入一个数字：")) PrInt a+b End SubA．123B．456C．123123D．579
有如下程序，运行时从键盘输入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 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()a＝InputBox("请输入一个整数")b＝InputBox("请输入一个整数")Print Val(a)+Val(b)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为【 】。
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Do While b＞=0a=Val(InputBox("请输入a的值"))b=Val(InputBox("请输入b的值"))c=a+bLoopMsgBox cEnd Sub程序运行后，依次输入3,2,1,0,-1,-2，则输出结果是______。
下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5 8 6 7；输人1000，则输出0 0 0 1。请填空。 Private Sub Command1_Click Dim x As Integer X=InputBox(“请输入一个正整数”) While x 【11】 Print x Mod 10； x=x＼10 Wend Print 【12】 End Sub
设有下列程序 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
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )a=Val(1nputBox(“请输入一个整数”))b=Val(1nputBox(“请输入一个整数”))Print a+bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为【 】
一个计算问题的程序分成3个可以独立执行的程序模块：输入程序、处理程序和打印程序，每批数据都需顺序执行这三个模块。对于多批数据，这三个程序在单CPU机器中可能运行的顺序是（）A、 输入程序与处理程序顺序运行B、 输入程序和处理程序能并行运行C、 处理程序和打印程序顺序运行D、 处理程序和打印程序能并行运行E、 打印程序和输入程序能并行运行
一个计算问题的程序分成三个可以独立执行的程序模块：输入程序、处理程序和打印程序，每一批数据都需顺序被这些模块执行。当有多批数据时，这三个程序模块中可以并行运行的是（）A、 输入程序、处理程序和打印程序B、 输入程序和处理程序C、 处理程序和打印程序D、 打印程序和输入程序
看以下JavaScript程序：varx=prompt（“请输入1-5的数字！”）；switch（x）{case“1”：alert（“one”）；case“2”：alert（“two”）；case“3”：alert（“three”）；case“4”：alert（“four”）；case“5”：alert（“five”）；default：alert（“none”）；}运行以上程序，在提示对话框中输入“4”，依次弹出的对话框将输出（）。A、four，five，noneB、four，noneC、fiveD、five，none
单选题一个计算问题的程序分成三个可以独立执行的程序模块：输入程序、处理程序和打印程序，每一批数据都需顺序被这些模块执行。当有多批数据时，这三个程序模块中可以并行运行的是（）A 输入程序、处理程序和打印程序B 输入程序和处理程序C 处理程序和打印程序D 打印程序和输入程序