更多"标准模块中有如下程序代码： Public x As Integer，y"的相关试题:
[单项选择]标准模块中有如下程序代码：
Public x As Integer,Y As Integer
Sub TempSub（ ）
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1 Click（ ）
Dim x As Integer
Call TempSub
x=x+100:y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是( )。
A. 110 100
B. 100 100
C. 100 120
D. 110 120
[单项选择]标准模块中有如下程序代码：
Public x As Integer,y As Integer
Sub var_pub（ ）
x=10：y=20
End Sub
在窗体上有一个命令按钮，并有如下事件过程：
Private Sub Command1_Click（ ）
Dim x As Integer
Call var_pub
x=x+10
y=y+10
Print x；y
End Sub
运行程序后单击命令按钮，窗体上显示的是______。
A. 10 10
B. 10 20
C. 10 30
D. 20 30
[填空题]有如下程序段。
Public Sub xy (a As Integer，b As Integer)
Dim t As Integer
Do
t=a Mod b
a=b:b=t
Loop While t
MsgBox a
End Sub
用Call xy(96，40)调用该通用过程后，输出结果是______。
[填空题]有如下程序段：
Public Sub xy (a As Integer,b As lnteger)
Dim t As Integer
Do
t=-a Mod b
a=b：b=t
Loop While t
Print a
End Sub
用Call xy(96,40)调用该通用过程后，输出结果是______。
[单项选择]设有如下通用过程： Public Sub Fun(a（ ）As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click（ ） Dim arr(5) As Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。
A. 30
B. 25
C. 20
D. 15
[单项选择]设有如下通用过程：
Public Sub Fun(a（ ） As Integer, x As Integer)
For i = 1 To 5
x = x + a(i) Next
End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如 下的事件过程：
Private Sub Command1_Click（ ）
Dim arr(5) As Integer, n As Integer
For i = 1 To 5
arr(i) = i + i
Next
Fun arr, n
Text1.Text = Str(n) End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是______。
A. 30
B. 25
C. 20
D. 15
[单项选择]
设有如下通用过程：
Public Sub Fun(a（ ）As Integer,x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程：
Private Sub Commandl_Click（ ）
Dim arr(5)As Integer,n As Integer
For i=1 To 5
arr(i)=i+i
Next
Fun arr,n
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（）。
A. 30
B. 25
C. 20
D. 15
[单项选择]设有如下通用过程：
Public Sub Fun(a（ ），ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click（ ）
Dim arr(5)As Variant
For i=1 To 5
arr(i)= i
Next
n=10
Call Fun(arr（ ），n)
Text1.Text=n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是 ______。
A. 10
B. 15
C. 25
D. 24
[单项选择]若在某窗体模块中有如下事件过程：
Private Sub Command1_Click(Index As Integer)
……
End Sub
则以下叙述中正确的是( )
A. 此事件过程与不带参数的事件过程没有区别
B. 有一个名称为Command1的窗体，单击此窗体则执行此事件过程
C. 有一个名称为Command1的控件数组，数组中有多个不同类型控件
D. 有一个名称为Command1的控件数组，数组中有多个相同类型控件
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：
Private Sub Command1_Click( )
k = 0
Do While k ＜ 70
k = k + 2
k = k * k + k
a = a + k
Loop
Text1.Text = a
End Sub
程序运行后，文本框中显示________。
(A) 20
(B) 32
(C) 44
(D) 78
[简答题][Vsual Basic 程序代码]
Private Sub CmdSelect_Cliek（ ）
For i = O To List2.ListCount - 1
If Listl.Text = List2.List(i) Then Exit Sub ’不要重复选择
Next i
List2.Addltem (1) ’在List2中增添List1中所选的项
End Sub
Private Sub CrndSelAll_Click（ ）
List2.Clear ’先删除List2中的已有项
For i = 0 To (2) ’对List1中所有各项做循环处理
List2.Addltem (3) ’将该项增添到 List2中
Next i
End Sub
Private Sub CmdDelete_Cliek（ ）
If List2.Listlndex ＞= O Then ’如果List2中有选中的项,
List2.Removeltem (4) ’则删除所选的项
End If
End Sub
Private Sub CmdDelAll_Cliek（ ）
(5)
End Sub
[单项选择]已知c:/1．txt是一个非空文件，其程序代码如下。 Private Sub Command1_Click（ ） Dim MaxSize，NextChar，MyChat Open"c:/1．txt"For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 Seek #1，NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为______。
A. True
B. Null
C. 0
D. False
