计算机程序设计
当VB执行下面语句后，A的值为（） Private Sub Command1_Click（） Dim a As Integer a=10 If a＞0Then a=a+1 If a＞1Then a=0 Print a End SubA、0B、1C、2D、3
题目
当VB执行下面语句后，A的值为（） Private Sub Command1_Click（） Dim a As Integer a=10 If a＞0Then a=a+1 If a＞1Then a=0 Print a End Sub
- A、0
- B、1
- C、2
- D、3
相似问题和答案
第1题：
下列过程定义语句中，形参个数为不确定数量的过程是（ ）。
A．Private Sub Pro3（x As Double,y As Single）
B．Private Sub Pro3（Arr（3）,Option x,Option y）
C．Private Sub Pro3（ByRef x,ByVal y,Arr（ ））
D．Private Sub Pro3（ParamArray Arr（ ））
第2题：
执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8
【解析】本题考查For循环控制语句，做好此题的关键是掌握For循环语句的执行过程。For循环首先把初值赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就停止执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把循环变量+步长的值赋给循环变量，重复上述过程。据此如果For循环的终值等于初值，For循环也会执行一次循环。本题中当For执行第五次循环后，i的值为5，此时系统还会返回，令i=5+1并判断此时i值是否大于5，大于5，故退出循环体。所以此时的i值为6，故选B。本题一般考试很容易选择A，值得关注。
第3题：
●试题四
阅读下面的要求，在填入适当的语句。
要求执行该段程序后能弹出一个对话框，对话框中有"确定"和"取消"按钮，以及一个带问号的图标，并要求第一个按钮为默认按钮。
Private Sub Form_Load( )
MsgBox"要重新输入吗？"，"询问"
End Sub
●试题四
【答案】VbOkCancel+VbQuestion+VbDefaultButton1
【解析】该题考查的是输出消息函数MsgBox()的知识，要求考生熟练运用该函数中的参数。
在Visual Basic程序设计中，输出消息函数MsgBox()的格式是：
Msgbox［(提示［，按钮］［，标题］)］
"提示"项是必选项，是消息框中出现的文字说明，如该程序中的"要重新输入吗？"字样。"按钮"项是可选项。这个值可以决定消息框中按钮数目及形式、图标的样式以及默认按钮等内容。表1列出了消息框上内容及符号常数的对应关系。
第4题：
在下面程序的横线处填上适当的语句，使该程序执行结果为10。
include ＜iostream＞
using namespace std；
class MyClass
{
public：
MyClasS(int A)
{
X=a；
}
【 】//取x的值
private：
int x；
}；
int main()
{
MyClass my(10)；
int GetNum(){return x；} 解析：由主函数中调用对象my成员函数GetNum()可得到，成员函数GetNum()的功能是返回其私有数据成员x的值。
第5题：
设程序中有如下数组定义和过程调用语句： 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。
第6题：
程序执行结果s的值是【 】.
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I ＞=4
End Sub
6 解析：第一次循环结束的时候：s=0，I =l
第二次循环结束的时候：s=l，I =2
第三次循环结束的时候：s=3，I =3
第四次循环结束的时候：s=6，I =4
第四次循环结束后整个循环也就结束了，所以s的最终值为6。
第7题：
下列程序输出的结果为【 】。
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语句是指使程序无条件地转移到过程中指定的语句处执行。其后面必须有指定的行标签，否则程序会出错。
第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题：
A、Private Sub sele(ByVal A( ) As integer)
B、Private Function sale(A() As Integer) As String
C、Private Sub sale(A() As Integer) As Integer
D、Private Sub sale(A(i) As Integer)
第10题：
下面过程运行后，变量N的值为( )。 PRIVATE SUB MAINSUB( ) DIM N AS INTEGER N=9 CALL GET. DATA(N) END SUB PRIVATE SUB GETDATA(BYREF M AS INTEGER) M=M*3+SC-N(-9) END SUB
A．25
B．26
C．27
D．28
解析：通过参数传递CALLGETDATA(N)语句，将N值赋予M，所以M=N=9。而SGN函数为返回参数的正负号，SGN(-9)=-1。因而M=M*3+SGN(-9)=9*3+(-1)=27-1=26。