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

[填空题]某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为
Private Sub Form_Click( )
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub

更多"某个窗体己编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果"的相关试题:

[单项选择]以下程序运行后,消息框的输出结果是( )。
OPTION BASE 1
PRIVATE SUB COMMAND1_CLICK( )
DIM A(10) , P(3) AS INTEGER
K=5
FOR I=1 TO 10
A(I) = I
NEXT I
FOR I=1 TO 3
P(I)=A(I*I)
NEXT I
FOR I=1 TO 3
K=K+P(I) ~ 2
NEXT I
MSGBOX K
END SUB
A. 33
B. 28
C. 35
D. 37
[填空题]下列程序段运行后消息框的输出结果为______。
s="Access"
Dim Str As String
For i=1 To Len(s)
str=UCase(Mid(S,i,1) ) +str
Next i
MsgBox str
[填空题]某个窗体已编写如下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。 Private Sub Form_Click( ) Dim K as Integer,n as Integer,m as Integer n=10:m=1:k=1 DoWhileK<=n m=m*2 k=k+1 Loop MsgBox m End Sub
[单项选择]以下程序段运行后,消息框的输出结果是( )。

a=10

b=20

c=a<b

MsgBox c+1
A. -1
B. 0
C. 1
D. 2
[单项选择]以下程序运行后,消息框的输出结果是( )。
a=sqr(3)
b=sqr(2)
c=a>b
MsgBox c+2
A. -1
B. 1
C. 2
D. 出错
[单项选择]以下程序运行后,消息框的输出结果是______。
a=sqr (3)
b=sqr (2)
c=a>b
MsgBox c+2
A. -1
B. 1
C. 2
D. 出错
[单项选择]以下程序段运行后,消息框的输出结果是__________。
a=sqr(3)
b=sqr(2)
c=a>b
Msgbox c+2
A. -1
B. 1
C. 2
D. 出错
[单项选择]以下程序段运行后,消息框的输出结果是( )。
a=sqr(3)
b=sqr(2)
c=a>b
Msgbox c+2
A. -1
B. 1
C. 2
D. 出错
[单项选择]单击按钮时,以下程序运行后的输出结果是 Private Sub Commandl_Click( )   Dim X As Integer,y As Integer,z As Integer   x=1:y=2: Z=3   Call God(x,x,z)   Print x;x;z   Call God(x,y,y)   Print X;y;y End Sub Private Sub God(x As Integer,y As Integer,z As Integer)   x=3 * Z + 1   y=2 * Z   z=x + y End Sub
A. 6 6 12   7 11 11
B. 8 5 10  5 11 11
C. 9 6 12  9 10 15
D. 8 10 10  5 9 10
[单项选择]以下程序运行后,单击按钮输出结果是( )。   Private Sub Commandl_Click( )     Dim x As Integer,y As Integer,z As Integer     X=4:y=2: Z=3     Call Gopd(x,x,z)     Print x;X;Z     Call Gopd(x,y,y)     Print x;y;y   End Sub   Private Sub Gopd(x As Integer,y As Integer,z As Integer)     X=3 * Z + 1     y=2 * z     z=x + y   End Sub
[单项选择]单击按钮时,以下列程序运行后的输出结果是
Private Sub proc1(x As Integer,y As Integer,z As Integer)
x=3*z
y=2*z
z=X+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
x=1:y=2:z=3
Call proc1(x,x,2)
Print x;x;z
Call proc1(x,y,y)
Print x;y;y
End Sub
A. 6 6 12
B. 9 5 10
C. 9 6 12
D. 9 5 10
[单项选择]以下程序运行后输出的结果是 ______。
Option Base 1
Private Sub Form_Click( )
Dim A(20)
For K=1 To 20
A(K)=K^2
Next K
Print A(K)
End Sub
A. 20
B. 441
C. 400
D. 出错信息
[单项选择]在窗体中画一个命令按钮,然后编写以下事件过程:
Private Sub Command1_Click( )
For i=1 To 4
x=4
For j=1 To 3
x = 3
For k=1 To 2
x = x + 6
Next k
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,输出结果是
A. 7
B. 15
C. 157
D. 538
[单项选择]执行下面的程序,单击窗体后窗体消息框内显示结果是( )。
PRIVATE SUB FORM_CLICK( )
DIM STR AS STRING, K AS INTEGER
STR="AB"
FOR K = LEN(STR) TO 1 STEP -1
STR=STR&CHR(ASC(MID(STR, K, 1)) +K)
NEXT K
MSGBOX STR
END SUB
A. ABCE
B. ABCD
C. ABDB
D. ABFB
[单项选择]设有如下窗体单击事件过程:
打开窗体运行后,单击窗体,则消息框的输出的结果是______。
Private Sub Form_Click( )
a=1
For i = 1 To 3
Select Case i
Case 1, 3
a=a+1
Case 2, 4
a=a+2
End Select
Next i
MsgBox a
End Sub
A. 3
B. 4
C. 5
D. 6
[单项选择]

在窗体上画一个名为Command1的命令按钮,然后编写以下程序:
Private Sub Command1_Click( )
Dim a(10)As Integer
For k=10 To 1 Step-1
a(k)=20-2*k
Next k
k=k+7
Print a(k-a(k))
End Sub
运行程序,单击命令按钮,输出结果是()。


A. 18
B. 12
C. 8
D. 6
[单项选择]在窗体上画一个名称为Command1的命令按钮,并编写以下程序:
Private Sub Command1_Click( )
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=" "
For k=1 To stlen/2
temp=temp+Mid(st,k,1)+Mid(st, stlen-k+1 ,1)
Next k
fun=temp
End Function
程序运行时,单击命令按钮,则在窗体上显示的是______。
A. ABCDEFG
B. AGBFCED
C. AGBFCE
D. GAFBEC

我来回答:

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

订单号:

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