题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-10-21 15:23:22

[单项选择]有如下程序:   Private Sub Commandl_Click( )    Dim a As Integer    a=2    For i=1 To 3      Print Gad (a)      Next i   End Sub   Function Gad (a As Integer)    b=0    Static c    b=b + 1    c= c + 1    Gad= a + b + C   End Function   运行上面的程序后,单击命令按钮,输出结果为( )。

更多"有如下程序:   Private Sub Commandl_Clic"的相关试题:

[单项选择]有如下程序:   Private Sub Commandl_Click( )    Dim a As Integer    a=2    For i=1 To 3      Print Gad (a)      Next i   End Sub   Function Gad (a As Integer)    b=0    Static c    b=b + 1    c= c + 1    Gad= a + b + C   End Function   运行上面的程序后,单击命令按钮,输出结果为( )。
[单项选择]有如下程序:   Private Sub Commandl_Click( )     Dim i As Integer     For i=1 To 2       DS     Next i    End Sub    Sub DS( )     Dim x As Integer,m As String     Static y,n     X=X + 1     y=y + 1     m=m &"*”:n=n&"#"     Print x,y,m,n   End Sub   程序运行后,输出的结果是( )。
[填空题]设有如下程序 Private Sub Form Click( ) Dim a As Integer, b As Integer a=20: b=50 p1 a, b p2 a, b p3 a, b Print "a="; a, "b="; b End Sub Sub p1(x As Integer, ByVal y As Integer) x = x+10 y = Y+20 End Sub Sub p2(ByVal x As Integer, y As Integer) x = x+10 y = y+20 End Sub Sub p3(ByVal x As Integer, ByVal y As Integer) x = x+10 y = y+20 End Sub 该程序运行后,单击窗体,则在窗体上显示的内容是:a==______和b=______。
[填空题]设有如下程序
Private Sub Form Click( )
Dim a As Integer, b As Integer
a=20: b=50
p1 a, b
p2 a, b
p3 a, b
Print "a="; a, "b="; b
End Sub
Sub p1(x As Integer, ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer, y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer, ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后,单击窗体,则在窗体上显示的内容是:a==______和b=______。
[单项选择]有如下程序:
Private Sub Form Click( )
Dim i As Integer,sum As Integer
sum=0
For i=2 To 10
If i Mod 2<>0 And i Mod 3=0 Then
sum=sum+i
End If
Next i
Print sum
End Sub
程序运行后,单击窗体,输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序: Private Sub Form Click( ) Dim Check,Counter Check=True Counter=0 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,Check End Sub 程序运行后,单击窗体,输出结果为
A. 15 0
B. 20 -1
C. 10 Tree
D. 10 False
[单项选择]有如下程序:
  Private Sub Commandl_Click( )
    Dim i As Integer
    For i=1 To 2
      DS
    Next i
   End Sub
   Sub DS( )
    Dim x As Integer,m As String
    Static y,n
    X=X + 1
    y=y + 1
    m=m &"*”:n=n&"#"
    Print x,y,m,n
  End Sub
  程序运行后,输出的结果是
A. 1 1 * #
B. 1 1 * #
C. 1 1 * #
D. 1 1 * #
[单项选择]有如下程序:  Private Sub Command1 Click( )    Dim a As Single    Dim b As Single    a=5:b=4    Call S(a,B)   End Sub  Sub S(x As Single,y As Single)    t=x    x=t/y    y=t Mod y  End Sub  在调用运行上述程序后,a和b的值分别为

A. 0 0
B. 1 1
C. 2 2
D. 1 2
[填空题]设有如下程序: Private Sub Form_Click( ) Dim a As Integer,s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n>0 Print S End Sub 以上程序的功能是 【10】 。程序进行后,单击窗体,输出结果为 【11】
[单项选择]有如下程序。 Private Sub Commandl_Click( ) Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a, b) End Sub Sub Subl(x As Single, y As Single) t=x x=t/y y = t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A. 0 0
B. 1 1
C. 2
D. 1 2

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码