更多"标准模块中有如下程序代码： Public x As Integer,"的相关试题:
[单项选择]标准模块中有如下程序代码： Public x As Integer，y As Integer Sub var_pub（ ） x=10:y=20 End Sub 在窗体上有1个命令按钮，并有如下事件过程： Private Sub Command1_Click（ ） Dim x As Integer Call var_pub x=x+100 y=y+100 Print x;y End Sub 运行程序后单击命令按钮，窗体上显示的是（）
A. 100 100
B. 100 120
C. 110 100
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)调用该通用过程后，输出结果是______。
[单项选择]设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String* 10
TelNum As String * 20
End Type
在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程Command1 Click时,
在顺序文件Person.txt中写入一条记录。 下列能够完成该操作的事件过程是 ______。
A. Private Sub Command1_Click( )
B. Private Sub Command1_Click( )
C. Private Sub Command1_Click( )
D. Private Sub Command1_Click( )
[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将经下程序补充完整。
Private Sub Command1_Clickk( )
Dim B As Books
open "c: /person. txt" For output As #1
B. Name = InputBox ("请输入姓名t" )
B. TelNum = InputBox("请输入电话号码" )
write #1, 【15】
close #1
End Sub
[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型。
Private Type Books
Name As String*10
TelNum As String#20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click（ ）
DimB As Books
open“C/person.txt”For output As#1
B.Name=InputBox(“请输入姓名”)
B.TeINum=InputBox(“请输入电话号码”)
write#1， (9)
close#1
End Sub
[填空题]设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As string*20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，
在顺序文件Person.txt中写入一条记录。该操作的事件过程是 【15】 。
[填空题]设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String*10
telNum As String*20
End Type
在窗体上添加一个名为Command1的命名按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。请在 【14】 中填入适当的内容，将程序被补充完整。
Private Sub Command1_Click( )
Dim B As 【14】
Open"c：/person.txt"For Output As #1
B.Name=Input Box(“输入姓名”)
B.TelNum=InputBox(“输入学号”)
Write#I，B，Name，B.TelNum
Close #1
End Sub
[单项选择]设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String*20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]设在工程中有一个标准模块，其中定义了如下类型：
Type stutype
ino As Integer
strname As String*20
strsex As String*1
smark As Single
End Type
在窗体上画一个名为Connnand1的命令按钮，要求当执行事件过程Command1_Click时，在c:/的随机文件student..dat写入一条记录。下列能够完成该操作的事件过程是( )。
A. Sub Command1_C1ick()
B. Sub Command1_Click( )
C. Sub Command1_Click()
D. Sub Command1_Click()
[单项选择]设在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TeINum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 10： y = 5
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Static x As Integer
x = 2：y = 6
y = f(x)
Print x； y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 2 6
B. 10 5
C. 10 50
D. 6 10
[填空题]假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String*10
TelNum As String*20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click（ ）
Dim B As Books
open "c:/person.txt"For output As#1
B.Name=InputBox(“请输入姓名”)
B.TeINum=InputBoxt“请输入电话号码“)
write#1， (13)
close#1
End Sub
