计算机程序设计
下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）A、96B、97C、65D、64
题目
下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）
- A、96
- B、97
- C、65
- D、64
相似问题和答案
第1题：
在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDow
A．Visual Basic
B．程序设计
C．A程序设计
D．VisualBasic程序设计
第2题：
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。
A．Private Sub Form_Click() PopupMenu cut End Sub
B．Private Sub Command1_Click() PopupMenu edit End Sub
C．Private Sub Form_Click() PopupMenu edit End Sub
D．Private Sub Form_Click() PopupMenu cut End Sub
解析：PopupMenu方法用来显示弹出式菜单，其格式为：[对象．]。PopupMenu菜单名[，Flags] [，X，Y，][BoldCommand]。根据题意，为了显示菜单，所以要把PopupMenu方法放到Form. Click事件中，菜单名为edit，所以选c。
第3题：
下面程序运行后，窗体中显示【 】。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
End Sub
$$$$$$$$$ 解析：本题的难点是了解生成字符函数String$()和计算字符函数Len()，a $="*"的作用只是被用来计算字符串的长度，没有被打印出来。打印分隔符为“；”时，字符串之间没有空格。空打印Print操作是换行。
第4题：
下面程序的输出结果是【 】。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub
20 解析：For Each... Next语句是针对数组和集合中的每一个元素进行一次操作的语句组合。本题定义了一个数组，然后利用For循环将1-20赋给数组元素，又利用For Each... Next语句将数组的每一个元素定义为20，故输出结果为20。
第5题：
在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_Click()
x=1
Do While 【 】
x=x+2
Loop
End Sub
x8 或 x＝7 解析：第—次循环x＝x+2＝1+2=3，第二次循环x=x+2=3+2=5，第三次循环x=x+2=5+2=7，第四次循环 x=x+2=7+2=9，题目要求循环执行四次跳出，所以应在判断处添加x8或x＝7或x9。
第6题：
阅读下面的程序：
Private Sub Form_Click（）
Dim Check As Boolean, Counter As Integer
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter + 1
If Counter = 10 Then
Check = False
Exit Do
End If
Loop
Loop Until Check = False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为______。
10
第7题：
下面程序运行的结果为
1
11 12
21 22 23
31 32 33 34
请在画线处填上适当的内容使程序完整。
Private Sub Form_Click()
Call [13]
End Sub
Private Sub Pl6()
End Sub
Private Sub p16()
ForI=1 to 4
Forj=1 to I
a= [14]
Print Tab(j-
p16,(I-1)*10+j
第8题：
执行下面的程序段，x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
10 解析：在程序中For…Next语句之后并没有对i的值改变，此时i为10，故运行后结果为10。
第9题：
设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。
A.Private Sub p(a As Integer)
B.Private Sub p(a（ ）As Integer)
C.Private Sub p(a(10)As Integer)
D.Private Sub p(a(n)As Integer)
B。【解析】本题考查的是过程的调用，根据题干在定义中不许定义一个a数组，其中a数组不能定长，所以答案为B。
第10题：
执行下面的程序，消息框里显示的结果是_______。
Private Sub Form_Click()
Dim Str As String
Str=""
S="Access"
Fori=Len(S)To 1 Step-l
Str=Str&Mid(S，i，1)
Next i
MsgBox Str
End Sub
sseccA 解析：本题考查VBA中字符串的知识。本题中循环次数等于字符串的长度，每次在Str后面连接上一个字符，该字符取自字符串 S的第i位。由于i反向循环，实际上完成的是字符串倒序的功能。