更多"执行下列程序段
a$='visual Basic Prog"的相关试题:
[单项选择]执行以下程序段：
a$="Visual Basic Programming"
b$="C++"
c$=UCase(Left$(a$, 7)) & b$ & Right$(a$, 12)
变量c$的值为( )。
A. Visual BASIC Programming
B. VISUAL C++ Programming
C. Visual C++ Programming D) VISUAL BASIC Programming
[单项选择]
下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是（）
Private Sub Comand1_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 To 25
If m< p>
m=count(k)
End If
Next k
Print m
End Sub
A. 0
B. 1
C. 2
D. 3
[单项选择]下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是( )。
Private 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 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
[填空题]执行下列程序段后，变量c的值为______。
a＝"Visual Basic Programming"
b＝"Quick"
c＝b&UCase(Mid(a,7,6) &Right(a,12) )
[填空题]执行下列程序段后，变量c的值为______。
a＝"Visual Basic Programming"
b＝"Quick"
c＝b&UCase(Mid(a,7,6) &Right(a,12) )
[填空题]执行以下程序段后，变量c的值为______。
a＝"Visual Basic Programming"
b＝"Quick"
c＝b & UCase(Mid(a,7,6)& Right(a,12))
[填空题]执行以下程序段后，变量c的值为______。
a＝"Visual Basic Programming"
b＝"Quick"
c＝b & UCase(Mid(a,7,6)& Right(a,12))
[填空题]执行下列程序段后，变量c的值为______。
a="Visual Basic Programming"
b="Quick"
c=b& Ucase(Mid(a,7,6)& Right(a,12))
[填空题]已知如下程序段：
Dim MyNumber
MyNumber=2+2
执行以上程序段后，MyNumber为______。
[填空题]已知如下程序段：
Dim MyChar
MyChar=Chr(97)
执行以上程序段后，MyChar=______。
[填空题]已知如下程序段：
Dim MyChar
MyChar=Chr(37)
执行以上程序段后，MyChar=______。
[填空题]分析下面程序段，试回答：
(1)该程序段是什么结构的程序；
(2)该程序段执行后，(DL)=______，屏幕上显示的字符是______。
Buffer DB 0CH
┇
MOV AL,Buffer
CALLFAR PTR SUBROUT
┇
SUBROUT PROC FAR
CM PAL, 10
JC K1
ADD AL,7
K1: ADD AL,30H
MOV DL,AL
MOV AH,2
INT 21H
RET
SUBROUT ENDP
