题目内容
（请给出正确答案）
（30 ）下面程序运行时，若输入 395 ，则输出结果是
Private Sub Comand1_Click （）
Dim x%
x=InputBox (" 请输入一个 3 位整数 ")
Print x Mod 10,x\100, (x Mod 100 ) \10
End Sub
A ） 3 9 5
B ） 5 3 9
C ） 5 9 3
D ） 3 5 9
如果结果不匹配，请 联系老师 获取答案
更多“（30 ）下面程序运行时，若输入 395 ，则输出结果是Pr…”相关的问题
下面程序运行时，若输入395，则输出结果是
Prirate sub commandl_Click()
Dim x％
x=InputBox(“请输入一个3位整数”)
Print x Mod 10，x＼100，(x Mod 100)＼10
End Sub
A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9
A.产生错误信息
B.10
C.12
D.10 20 30 20 00 00 30
（24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序
Private Sub Commandl_Click （）
Dim n
If Text1.Text＜＞ " 23456 " Then
n=n ＋ 1
Print " 口令输入错误 " & n & " 次 "
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是
A ）在 Dim n 语句的下面添加一句： n=O
B ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " +n+ " 次 "
C ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " &Str (n ) & " 次 "
D ）把 Dim n 改为 Static n
Private Sub Text1_KeyPress （KeyAscii As Integer ）
If KeyAscii=13 Then
If Text1.Text= " Teacher " Then
Form2.input.visible=True
Else
Form2.input.visible=False
End If
End If
Form1.Hide
Form2.Show
End S u b
程序运行时发现刚输入口令时就隐藏了 Form1 ，显示了 Form2 ，程序需要修改。下面修改方案中正确的是
A ）把 Form1 中 Text1 文本框及相关程序放到 Form2 窗体中
B ）把 Form1.Hide 、 Form2.Show 两行移到 2 个 End If 之间
C ）把 If KeyAscii=13 Then 改为 If KeyAscii= " Teaeher " Then
D ）把 2 个 Form2.input.Visible 中的 “ Form2 ” 删去
有以下程序
运行时，‘若输入l 2 34 50＜回车＞，则输出结果是()。
A.6566456
B.66656
C.66666
D.6666656
有以下程序：
运行时，若输入1 2 3 4 5 0<回车>，则输出结果是（）。
A.66656
B.6566456
C.66666
D.6666656
下列程序运行时，若输入labced12df＜回车＞ 输出结果为【10】
#include ＜stdio.h＞
main()
{char a =0,ch;
while((ch=getchar())!=’\n’)
{if(a&2!=0&&(ch＞’a’&&ch＜=’z’)) ch=ch-‘a’+’A’;
a++;putchar(ch);
}
printf(“\n”);
}
有以下程序：
若运行时输入：1 2 3＜回车＞，则输出结果是（）。
A.编译错误 2 0 0 0
B.1 0 2 0 0 0
C.1 2 2 0 3 0
D.1 0
