计算机二级
下面程序的输出是______。Private Sub Command1_Click() Print 7\3End SubA．3.5B．7C．3D．2
题目
下面程序的输出是______。Private Sub Command1_Click() Print 7\3End Sub
A．3.5
B．7
C．3
D．2
相似问题和答案
第1题：
窗体上有两个按钮，则执行程序后按键盘Cance1键的输出结果是 【7】 。
Private Sub Command1_Click（）
Print "北京";
End Sub
Private Sub Command2_Click（）
Print "南京";
End Sub
Private Sub Form_Load（）
Command2.Cancel=True
Command1.Cancel=True
End Sub
正确答案: 1.(北京)
第2题：
（ 14 ）执行以下程序后输出的是
Private Sub Command1_Click()
Ch$= ” AABCDEFGH ”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub
A)CDEFGH
B)ABCD
C)FG
D)AB
第3题：
窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是（ ）。
A．Private Sub Command1_Click（）
Open “out.txt” For Inpit As#1
Print#1,Text1.Text
Close#1
End Sub
B．Private Sub Command1_Click（）
Open “out.txt” For Outpit As#1
Print#1,Text1.Text
Close#1
End Sub
C．Private Sub Command1_Click（）
Open “out.txt” For Append As#1
Print#1,Text1.Text
Close#1
End Sub
D．Private Sub Command1_Click（）
Open “out.txt” For Random As#1
Print#1,Text1.Text
Close#1
End Sub
第4题：
下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub
A．4
B．5
C．6
D．7
第5题：
下列程序输出的结果为【 】。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
VBVC 解析：Goto语句是指使程序无条件地转移到过程中指定的语句处执行。其后面必须有指定的行标签，否则程序会出错。
第6题：
执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub
A．1
B．2
C．8
D．0
解析：此题的功能是统计字母。在字符串中出现的次数。注意两个字符串函数的使用：Len()求字符中中字符的个数，Mid()是取子串。此题即依次取串中的字符，逐个与字母。进行比较，如果相等，则对计数变量m加1。
第7题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第8题：
下面程序运行后，窗体中显示【 】。
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操作是换行。
第9题：
以下能够正确计算n!的程序是
A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub
B．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End Sub
C．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End Sub
D．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub
解析：A中i一开始末被赋值，默认为0；B项中由于“in”的条件使得Do循环比应有循环次数少循环一次；选项D由于“i＞n”这一条件，使得控制语句只能循环一次。
第10题：
以下能够正确计算n!的程序是
A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub
B．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub
C．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub
D．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub
解析：n!=1×2×3×…×(n-1)×n，由于是累乘，因此x和i的初值都必须为1；其次就是循环执行条件的确定，由于使用的是While型循环，表示在满足条件时执行循环体中的代码，这里满足执行循环的条件应该是i=n。