填空题

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

【参考答案】

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

填空题
设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter= 文本文件1*.txt(Word文档)*.doc CD1.Filterinder=1 CD1.ShowOpen If CD1.FileName＜＞ Then Open______For Input As # 1 Line Input #1,ch$ Close #1 Text1.Text=______ End If End Sub
填空题
设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。 Dim______As Integer Private Sub Form_Load() pos=HScroIII.Value End Sub Private Sub HScroIII_Change() Print______-pos pos=HScroIII.Value End Sub
相关试题