网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
运行下列程序，窗体中的显示结果是：x= 。
Option Compare Database
Dim x As Integer
Private Sub Form_Load（）
x=3
End Sub
Private Sub Commandll_ Click()
Static a As Integer
Dim b As Integer
b=x^2
funl x，b
funl x，b
MsgBox〝x=〞&x
End Sub
Sub funl（ByRef y As Integer，ByVal z As nteger）
y=y+z
z=y-z
End Sub
参考答案
更多 “ 运行下列程序，窗体中的显示结果是：x= 。Option Compare DatabaseDim x As IntegerPrivate Sub Form_Load（）x=3End SubPrivate Sub Commandll_ Click()Static a As IntegerDim b As Integerb=x^2funl x，bfunl x，bMsgBox〝x=〞xEnd SubSub funl（ByRef y As Integer，ByVal z As nteger）y=y+zz=y-zEnd Sub ” 相关考题
考题
运行下列程序，窗体中的显示结果是：（ ）。 OptionCompare Database Dim X AsInteger PrivateSub Form_Load x=3 EndSubPrivate Sub Commandll_click Static aAs Integer Dim b AsInteger b=x^2 funl x，b funl x．b MsgBox”x=‘’x End Sub Subfunl(ByRef Y As Integer，ByVal z AS Integer) y=y+z z=y-z End SubA.x=3B.x=2C.x=21D.x=12
考题
运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345
考题
运行下列程序：Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.3 1B.1 3C.211D.显示出错信息
考题
运行下列程序：Private Sub form_Click( )x = 8: y = 2Call fun1((x), y)Print x, yEnd SubPrivate Sub fun1(x, y)s = xx = s / yy = s Mod yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.4 2B.8 2C.8 0D.2 4
考题
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x
运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
考题
运行下列程序：Private Sub Form_Click( )Dim a As Integera = 1For i = 1 To 5Call fun1(a)Next iPrint aEnd SubPrivate Sub fun1(x)y = 2Dox = x + yLoop Until x 10End Sub单击窗体后，则在窗体上显示的结果是( )。A.5B.1 2 3 4 5C.19D.7
考题
运行下列程序:Dim bPrivate Sub Form_Click( )a = 1: b = 1Call fun1(a)Print "X = X = ; a; ,Y = ; bEnd SubPrivate Sub fun1(a)b = 2 * aa = 3 * bEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.X = 1，Y = 1B.X = 2，Y = 6C.X = 6，Y = 2D.X = 6，Y = 1
考题
（11）运行下列程序，窗体中的显示结果是：x= 【11】 。Option Compare DatabaseDim x As IntegerPrivate Sub Form_Load()x=3End SubPrivate Sub Command11_Click()Static a As IntegerDim b As Integerb=x^2fun1 x,bfun1 x,bMsgBox "x="xEnd SubSub fun1(ByRef y As Integer,ByVal z As Integer）y=y+zz=y-zEnd Sub
热门标签
最新试卷
