网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
当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
参考答案
更多 “ 当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” 相关考题
考题
●试题四阅读下面的要求，在填入适当的语句。要求执行该段程序后能弹出一个对话框，对话框中有"确定"和"取消"按钮，以及一个带问号的图标，并要求第一个按钮为默认按钮。Private Sub Form_Load( )MsgBox"要重新输入吗？"，"询问"End Sub
考题
下列过程定义语句中，形参个数为不确定数量的过程是（ ）。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（ ））
考题
执行下面的程序段，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
考题
下列程序输出的结果为【 】。Private Sub Commandl_Click( )Dim a As Booleana = TrueIf a Then GoTo 11 Else GoTo 2211:Print "VB";22:Print "VC"End Sub
考题
设程序中有如下数组定义和过程调用语句： 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)
考题
数组A在子过程或函数中定义为形参,正确的语句是( )。
A、Private Sub sele(ByVal A( ) As integer)B、Private Function sale(A() As Integer) As StringC、Private Sub sale(A() As Integer) As IntegerD、Private Sub sale(A(i) As Integer)
考题
在下面程序的横线处填上适当的语句,使该程序执行结果为10。 include using namespace
在下面程序的横线处填上适当的语句，使该程序执行结果为10。include ＜iostream＞using namespace std；class MyClass{public：MyClasS(int A){X=a；}【 】//取x的值private：int x；}；int main(){MyClass my(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 SUBA．25B．26C．27D．28
考题
窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。A． Private Sub HScroll 1_Change() Print HScroll1.Value End SubB．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End SubC．Private Sub HScroll1 Scroll() Print HScroll1.Value End SubD．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub
考题
执行下面的程序段，x的值为 Private Sub Commandl_Click() For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End SubA．5B．6C．7D．8
考题
以下程序段中Do...Loop 循环执行的次数为【 】。程序执行完毕后，n的值为【 】。Private Sub Command1_Click()n =5DoIf n Mod 2= 0 Thenn =n \2Elsen =n* 3 + 1End IfLoop Until n=1End Sub
考题
设程序中有如下数组定义和过程调用语句：Dim a(10) as integer……Call p(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)
考题
为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click a％=10：b％=20 Call swap(a，B．：Print a，b End Sub Private Sub swap(ByVal aAs Integer，ByVal bAs Integer) c=a：a=b：b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是。 A．调用swap过程的语句错误，应改为：Call swap a，b B．输出语句错误，应改为：Print “a”，“b” C．过程的形式参数有错，应改为：swap(ByRef a As Integer，ByRef b As Integer) D．swap中3条赋值语句的顺序是错误的，应改为a=b：b=c：c=a
考题
设窗体有上一个名称为HScroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。 Dim 【7】 AsInteger Private Sub Form_Load Pos＝HScrol1．Value End Sub Private Sub HScroll1_Change Print 【8】 - pos Pos＝HScrolll．Value End Sub
考题
下列过程定义语句中，形参个数为不确定数量的过程是( )。A．Private Sub Pr03(XAsDouble，y As Single)B．Private Sub Pr03(Arr(3)；Optionx，Optiony)C．Private Sub Pr03(ByRefx，ByValy，Art())D．Private Sub Pr03(Param Array Arr())
考题
执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Up" End SubA．DownUpClickB．CfickDownUpC．DownClickUpD．UpDownClick
考题
当执行以下过程时，在窗体上将显示( )。Private Sub Command1_Click( )Print "VB";Print "Hello! ";Print "VB"End SubA、 VBHello!VBB、 VBHello!VBC、 VBD、 VBHello! VB Hello!VB
考题
以下是子过程或函数过程定义中的开始语句，错误的为（）。A、Private Function f（ x As String ） As SingleB、Private Function f（ x As String ）C、Private Sub f（ x As String ） As SingleD、Private Sub f（ x As String ）
考题
单选题在VB中，执行"A=18 MOD4"语句后，A的值为（）A
2B
4C
6D
8
热门标签
最新试卷
