更多"执行以下程序段： a$='Visual Basic Programm"的相关试题:
[单项选择]执行下列程序段
a$="visual Basic Programming"
b$="C++"
C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2)
后，变量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))
[单项选择]有如下程序段，该程序段执行完后，共执行循环的次数是
Private Sub Command1_Click( )
Tota1=0
Counter=1
Do
Print Counter
Tota1=tota1+Counter
Print total
Counter=Counter+1
If total>=10 Then
Exit Do
End lf
Loop While Counter＜=10
End Sub
A. 5
B. 10
C. 12 D。20
[填空题]分析下面程序段，试回答：
(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
[填空题]以下程序段执行后y的值是 【1】 。
x=3.7
y=Int(x+0.6)
Print y
[填空题]以下程序段执行后y的值是 【7】 。
x=8.6
y=int(x+0.5)
print y
