计算机二级
单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As S
题目
单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End Sub
A．abcdef
B．afbecd
C．fedcba
D．defabc
相似问题和答案
第1题：
下列程序执行后的输出结果是 #include＜string.h＞ main() { char arr[2][4]; strcpy(arr, "you"); strcpy(arr[1], "me"); arr[0][3]＝'&'; cout＜＜arr＜＜endl; }
A．you&me
B．you
C．me
D．err
解析：本题考察二维数组的标识方式。Arr作为数组名单独使用时表示一个指向数组首部的指针，故you放在数组第一行的前三列arr[0][0]、arr[0][1]、arr[0][2]中。Arr[1]表示指向第二行的指针，因此me放在数组第二行的前两列arr[1][0]、arr[1][1]中。而&则直接按照两维下标放到第一行的第四列中。那么输出的时候默认按照从左到右，先上后下的顺序。因此本题的正确答案为A。
第2题：
下列程序的输出结果是( )。 #include＜iostream.h＞ #include"string.h" void main() {char a[]="Hello Test",b[]="Test"; strcpy(a,b); cout＜＜a＜＜end1; }
A．Hello
B．Test
C．Hello Test
D．Hello Test HelloTest
解析：程序中首先定义字符数a和b，其值分别为“Hello Test”和“Test”。然后利用strcpy复制函数，将b的值复制给a，所以输出a的结果为Test。
第3题：
假定程序中有以下语句： answer=MsgBox("String1",,"String2","String31",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为______。
A．String1
B．String2
C．String3
D．1
解析：MszBox函数；在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
返回值
常数 值 描述
vboK 1 OK
vbCaneel2 Cancel
vbAbort 3 Abert
vbRetry 4 Retry
vblgnore 5 1gnore
vbYes 6 Yes
vbNo 7 NO
本题单击的是“确定”按钮，及vboK，所以MsgBox返回1。
第4题：
假定程序中有以下语句： answer=MsgBox("Stringl",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为： ______。
A．String1
B．String2
C．String3
D．1
解析：MsgBox函数：在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
返回值
常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vblgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
本题单击的是“确定”按钮，及vbOK，所以MsgBox返回1。
第5题：
假定程序中有以下语句：_______。 answer=MsgBox("Stringl",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为：_______。
A．String1
B．String2
C．String3
D．1
解析：MsgBox函数：在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。返回值常数值描述vbOK1OKvbCancel2CancelvbAbort3AbortvbRetry4Retryvblgnore5IgnorevbYes6YesvbNo7No本题单击的是“确定”按钮，及vbOK，所以MsgBox返回1。
第6题：
假定程序中有以下语句： answer=MsgBox("Stringl",,"String2"，"String3"，2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为： ______。
A．String1
B．String2
C．String3
D．1
解析：MsgBox函数：在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
返回值
常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
本题单击的是“确定”按钮，及vbOK，所以MsgBox返回1。
第7题：
假定程序中有以下语句： answer=MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为 ______。
A．String1
B．String2
C．String3
D．1
解析：MsgBox函数：在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
返回值
常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
本题单击的是“确定”按钮，及vbOK，所以MsgBox返回1。
第8题：
单击窗体时，下列程序的执行结果是
Private Sub Invert（ByVal xstr As String, ystr As String）
Dim tempstr As String
Dim I As Integer
I=Len（xstr）
Do While I >=1
tempstr=tempstr + Mid（xstr, I, 1）
I=I - 1
Loop
ystr=tempstr
End Sub
Private Sub Form_Click（）
Dim s1 As String, s2 As String
s1= "abcdef"
Invert s1, s2
Print s2
End Sub（ ）。
A．abcdef
B．afbecd
C．fedcba
D．defabc
第9题：
下列程序执行后，输入结果是（）。 For n = 3 To 1 Step - 1 x$ = String$(n,＂#＂） Print x$ Next inA. 1# 2# 3# B. ### ## #C. # ## ### D. 3# 2# 1#
【解析】本题中for循环的作用是每次输出n个“#”，n的值从初值3每次递减1，终值是1，所以程序运作后，输出的图形正确的事选项B。