题目内容

下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入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

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体上有一个名为Textl的文本框。当光标在文本框中时，如果按下字母“A”，则可被调用的事件过程是。

关于Windows 2000 Server的活动目录服务，下列说法中正确的是

A. 从Windows NT Server中继承而来 B．过分强调了安全性，可用性不够C．是一个目录服务，存储有关网络对象的信息 D．具有单一网络登录能力

为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click a％=10：b％=20 Call swap(a，B．：Print a，b End Sub Private Sub swap(ByVal aAs Integer，ByVal bAs Integer) c=a：a=b：b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是。 A．调用swap过程的语句错误，应改为：Call swap a，b B．输出语句错误，应改为：Print “a”，“b” C．过程的形式参数有错，应改为：swap(ByRef a As Integer，ByRef b As Integer) D．swap中3条赋值语句的顺序是错误的，应改为a=b：b=c：c=a

某人设计了如下程序用于计算并输出7!(7的阶乘)： Private Sub Command1_Click t = 0 For k = 7 To 2 Step -1 t = t * k Next Print t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是。 A．把t=0改为t=1 B．把For k=7 TO 2 Step -1改为For k=7 TO 1 Step -1 C．把For k=7 TO 2 Step -1改为For k=1 TO 7 D．把Next改为Next k