填空题

下面的程序执行时，可以从键盘输入一正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867；输入1000，则输出0 0 0 1。请填空。Private Sub Command1_ClickDim x As Integerx=InputBox("请输入一个正整数")While x＞（）Print x Mod 10;x=x\\10WendPrint（）End Sub

【参考答案】

10；x
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap （） For i=1 To 10 Print a(i); Next End Sub Sub swap(b() As Integer) n=Ubound(b) For i=1 To n 2 t=b(i) b(i)=b(n) b(n)=t （） Next End Sub上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。
填空题
窗体中有一个命令按钮，然后编写下列事件过程：Private Sub Command1_Click() x=0 Do Untilx=-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，输出的结果是（）。
相关试题