单项选择题
下面有一段程序代码,如果从键盘上输入"Computer",则在文本框内显示的内容是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii>=65 And KeyAscii<=122 Then
KeyAscii=42
End If
End Sub
A) Computer B) 什么都没有
C) ******** D) 程序出错
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
单击命令按钮时,下列程序的执行结果是 Private Sub Command1_Click() BT 4 End Sub Private Sub BT(x As Integer) x=x*2+1 If x<6 Then Call BT(x) End If x=x*2 Print x; End Sub A) 15 B) 16 C) 17 D) 18
单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click()
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2+1
If x<6 Then
Call BT(x)
End If
x=x*2
Print x;
End Sub
A) 15 B) 16
C) 17 D) 18
点击查看答案&解析
单项选择题
有如下的程序: Private Sub Command1_Click() Dim k As Integer,m AB Integer Dim P As Integer k=4:m=1 P=Fun(k,m) =Print P; P=Fun(k,m) :Print P End Sub Private Function Fun(a As Integer,b As Integer) Static m As Integer,i As Integer m=5:i=2 i=i+m+1 m=i+a+b Fun=m 2 End Function 单击命令按钮后,输出结果为 A) 2 2 B) 4 4 C) 5 5 D) 6 6
有如下的程序:
Private Sub Command1_Click()
Dim k As Integer,m AB Integer
Dim P As Integer
k=4:m=1
P=Fun(k,m) =Print P;
P=Fun(k,m) :Print P
End Sub
Private Function Fun(a As Integer,b As Integer)
Static m As Integer,i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m\2
End Function
单击命令按钮后,输出结果为
A) 2 2 B) 4 4
C) 5 5 D) 6 6
点击查看答案&解析
相关试题
下列程序段的执行结果为______。 Di...
下列程序计算Sn的值。Sn=a+aa+aaa+…+...
长度为n的顺序存储线性表中,当在任何位置...
函数Str$(256.36)的值是____...
新建一个工程,内有两个窗体,名称分别为Fo...