更多"假定在工程文件中有一个标准模块,其中定义了如下记录类型:Type Bo"的相关试题:
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型: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.TelNum=InputBox("请输入电话号码")
write #1,______
Close #1
End Sub
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型: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.TelNum=InputBox("请输入电话号码")
write #1,______
Close #1
End Sub
[填空题]假定在工程文件中有一个标准模块,其中定义了如下记录类型
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
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()
[填空题]设在工程中有一个标准模块,其中定义了如下记录类型:
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中写入一条记录。请在横线中填入适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Dim B As ______
Open."c:/Person.txt" For Output As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入学号”)
Write#1, 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中写入一条记录。请在横线中填入适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Dim B As ______
Open."c:/Person.txt" For Output As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入学号”)
Write#1, B.Name, B.TelNum
Close #1
End Sub
[简答题]在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请在程序中的横线处填写正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Dim stepy As Integer ’纵向移动增量
Dim stepx As Integer ’横向移动增量
Const LEFT_BUTTON=1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer
radius=Shape1.Width/2 ’圆的半径
If Button=LEFT_BUTTON Then
x0=Shape1.Left+radius ’圆心的x坐标
y0=Shape1.Top+radius ’圆心的y坐标
If x=x0 Then
stepy=Sgn(y-y0)*50
stepx= (1)
Else
a=(y-y0)/(x-x0) ’斜率
stepx=Sgn(x-y0)*50
(2) =a * stepx
If Abs(stepy)>Abs(stepx) Then
stepy=Sgn(y-y0)*50
stepx=stepy/a
End If
End If
(3) =True
Else
(4) =False
End If
End Sub
Private Sub Timer1_Timer( )
Shape1.Move Shape1
[单项选择]假定在一个宫颈癌与生育关系的病例对照研究中,100例宫颈患者中有25人生育,100例对照中有10例未生育,故生育使妇女患宫颈癌的危险增大
A. 2.0倍
B. 3.0倍
C. 2.5倍
D. 1.0倍
E. 1.5倍
[多项选择]在考生文件夹下有一个工程文件sjt5.vbp,在其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的改为正确的内容,使其能正确运行,不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
[单项选择]一个工程中包含两个名称分别为Forml、Form2的窗体,一个名称为mdlFunc的标准模块。假定在Forml、Form2和md1Func中分别建立了自定义过程,其定义格式为:
Form1中定义的过程:
Private Sub frmFunctionl( )
...
End Sub
Form2中定义的过程:
Public Sub frmFunction2( )
...
End Sub
md1Func中定义的过程:
Public Sub mdlFunction( )
...
End Sub
在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有mdlFunction过程能够被工程中各个窗体或模块调用
[单项选择]一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFune的标准模块。假定在 Forml、Form2和mdlFunc中分别建立了自定义过程,其定义格式为: Forml中定义的过程: Privme Sub frmFunction1( ) …… End Sub Form2中定义的过程: Public Sub frmFunction2( ) End Sub mdlFunc 中定义的过程: PubHc Sub mdl Function( ) End Sub 在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有mdlFunction过程能够被工程中各个窗体或模块调用