题目
下面程序运行时,若输入“Visual Basic Prograrmming”,则在窗体上输出的是()。
Dim cout(25)As Integer,ch As String
ch=Ucase(Int,utBox("请输入字母字符串"))
For k=1 To i en(ch).
n=ASC(Mid(ch,k,1))-Asc("A")
If n>=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m<count(k)Then
m=count(k)
End If
Next k
Print m
End Sub
A.0
B.1
C.2
D.3
第1题
下面程序运行时,若输入“Visual Basic Programming”,则在面体上输出的是()。
A. 3
B. 2
C. 1
D. 0
第3题
下面程序运行时,若输入“Visual Basic Programming”。则在窗体上输出的是
Prirate Sub Command1_Click()
Dim count(25)As Integer,ch As String
ch=UCase(InputBox(”请输入字母字符串”))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc(”A”)
If n>=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 T0 25
IfIn<count(k)Then
Ill=count(k)
End If
Next k
Print m
End sub
A.0
B.1
C.2
D.3
第4题
(35 )下面程序运行时,若输入 “ Visual Basic Programming ” ,则在窗体上输出的是
Private Sub Comand1_Click ()
Dim count (25 ) As Integer, ch As String
ch=U c ase (InputBox (" 请输入字母字符串 " ) )
For k=1 To Len (ch )
n=Asc (Mid (ch,k,1 ) ) -Asc (" A " )
If n>=0 Then
Count (n ) =Count (n ) + 1
End If
Next k
m=count (0 )
For k=1 To 25
If m<count (k ) Then
m=count (k )
End If
Next k
Print m
End Sub
A ) 0
B ) 1
C ) 2
D ) 3
第5题
A.0
B.1
C.2
D.3
第6题
下面程序运行时,若输入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
第7题
下面程序运行时,若输入395,则输出结果是()。
A. 5 9 3
B. 3 5 9
C. 5 3 9
D. 3 9 5
第8题
(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
第10题
下面程序运行时,若输入395,则输出结果是()。
Private Sub Command1_Click()
Dim X%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x\100,(x Mod 100)\10
End Sub
A.3 9 j
B.5 3 9
C.5 9 3
D.3 5 9
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!