更多“从键盘输入一个正整数,将该数的各位分离出来。 请在_________处填入适当的内容,完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数:")) …”相关的问题
第1题
从键盘输入一个正整数,将该数的各位分离出来。 请在_________处填入适当的内容,完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数:")) Do While s > 0 s1 = __________ s = s 10 MsgBox(s1) Loop
A.s / 10
B.s - 10
C.s * 10
D.s mod 10
E.s 100
点击查看答案
第2题
编写程序,从键盘输入一个4位正整数,输出该数的反序数。
点击查看答案
第3题
如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(数值),完善程序。 Private Sub Command1_Click() Dim a(9) As String, i% For i = 0 To 9 a(i) = Chr(Rnd * 26 + _________) Next End Sub
点击查看答案
第4题
如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(数值),完善程序。 Private Sub Command1_Click() Dim a(9) As String, i% For i = 0 To 9 a(i) = Chr(Rnd * 26 + _________) Next End Sub
点击查看答案
第5题
如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(不要空格),完善程序。 Private Sub Command1_Click() Dim a(9) As String, i% For i = 0 To 9 a(i) = Chr(Rnd * 26 + _________) Next End Sub
点击查看答案
第6题
如下程序的功能是随机产生10个大写字母保存到数组。请在_________处填入适当的内容(不要空格),完善程序。 Private Sub Command1_Click() Dim a(9) As String, i% For i = 0 To 9 a(i) = Chr(Rnd * 26 + _________) Next End Sub
点击查看答案