填空题

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

【参考答案】

(14)10 (15)x
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next i Call swap( (10) ) For i=1 To 10 Print a(i); Next End Sub Sub swap(b() As Integer) n= (11) For i=1 To n 2 t=b(i):b(i)=b(n):b(n)=t (12) Next End Sub 上述程序的功能是：通过调用过程swap调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。
填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a= National Computer Rank Examination n=Len(a):s=0 For i=1 To n b=Mid(a,i,1) If b= n Then s=s+1 End If Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是______。
相关试题