填空题当对象得到焦点时，会触发 [10] 事件，当对象失去焦点时将触发 [11] 事件。
填空题逻辑常量值为True或______。
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读 出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。
Private Sub Form_Click()
Dim x As Single，y As Single
Open "NMl.txt" For Input As #1
Open "NM2.txt" For Input As #2
Do While Not EOF(1)
【 】
Print x
y=x^2
【 】
Print x
Loop
Close #1，#2
End Sub
填空题某人编写如下函数来判断a是否为素数,若是,则函数返回True；否则返回False。
Function prime(a As Integer)As Boolean Dim k As Integer,isprime As Boolean
If a<2 Then
isprime=False
E1se
isprime=True
k=2
Do While k
填空题下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用TAB键来切换。请填空。 Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode [12] vbKeyRetum Then Text2.SetFocus End If End Sub
填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
SubPR()
Randomize
Dim a(10)
For j=1 To 10
a(i)=Int(
15
)
If
16
Then k=k+1
Print a(j)
Next j
Print
Print k/10
Fnd Sub
填空题将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【 】。
填空题在窗体上加上一个富文本控件RichTextBox，画一个命令按钮，当单击命令按钮的时候，将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认文件类型)和Word文档，然后将富文本控件中显示的内容以指定的文件名保存，完成程序。
Private SubCommand1_Click()
CommonDialogl.Filter={{U}} 【6】 {{/U}}
CommonDialogl.FilterIndex={{U}} 【7】 {{/U}}
CommonDialogl.ShowSave
RichTextBoxl.SaveFile{{U}} 【8】 {{/U}}
End Sub
填空题创建一个命令单击事件，该事件在单击命令按钮后，打开Form 2窗体，并要求Form 2窗体打开后，Form 1窗体既不清除也不显示，程序代码如下，请补充完整。
Private Sub Command1_ Click()
Form2. ______
Form1. ______
End Sub
填空题在窗体上有一个命令按钮，然后编如下事件过程：
Function SR( x As Double)As Double
Select Case Sgn(x)
Case 1
SR=Sqr(x)
Exit Function
Case 0
SR=0
Case-1
SR=-1
End Select
End Function
Private Sub Command1 _ Click( )
Dim Msg，SRN
Dim N AS Double
N=InputBox("请输入要计算平方根的数")
Msg=N&"的平方根"
Select Case SR(N)
Case 0
Msg=Msg &"是0"
Case-1
Msg=Msg&"是一个虚数"
Case ElSe
Msg=Msg &"是"& SR(N)
End Select
MsgBox Msg
End Sub
程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是{{U}} 【15】 {{/U}}。
填空题数据库系统阶段的数据具有较高独立性，数据独立性包括物理独立性和{{U}} 【4】 {{/U}}两个含义。
填空题在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写下列事件过程：
Private Sub Command1_Click()
CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"_
&"(*.txt)|*.txt|Batch Files(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是【 】；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是【 】。
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：
Private Sub Form_ Lead()
Show
Text1.Text = " "
Text2.Text = " "
Text2.SetFocus
End Sub
Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text + Chr (KeyCode - 4)
End Sub
程序运行后，如果在Text2文本框中输入efghi，则Text1文本框中的内容是______。
填空题程序如下： Private Sub Form_Click( ) Const PI = 3.14159 Dim r As Single， S As Single R = InputBox("请输入圆的半径"，"输入数据"，"50") S = PI*r*r Print "S = "; Format(S，"###，###.##") End Sub 程序运行后，单击窗体，将显示一个输入对话框，输入35，则单击"确定"按钮后，输出结果为______。
填空题以下程序运行后的输出结果是 【11】 。 Private Sub Form _ Click() i=10 ：j=0 Do j=j+1 i=i-1 Loop while i＞2 Print j； End Sub
填空题下列语句的输出结果是{{U}} 【7】 {{/U}}。
Print Format$(1258.6，"000，000.00")
填空题数据流图的类型有______和事务型。
填空题在窗体上画一个名称为Labell的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如下图所示。请在______和______处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"河北"EndSubPrivateSubList______()Labe1.Caption=______EndSub
填空题下列程序的作用是：打开顺序文件C:/stuData.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。 Private Sub Form_Click() 【15】 Do While Not EOF(1) Input # 1，StrNo，StuName，StuEng Print StuNo；Tab(10)；StuName；Tab(20)；StuEng Loop Close #1End Sub
填空题在Visual Basic的中断模式下，要想“逐语句”调试程序，可按______键；要想“逐过程”调试程序，可按______键。