填空题Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向{{U}} 【3】 {{/U}}的设计方祛。
填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。
Private Sub Command1_Click
____
Dim inData As String
Open "./mText1.txt"
________
As 1
Do While Not EOF(1)
Input #i，inData
Picture1.Print inData
Loop
Close#1
End Sub
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时，在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommand1_Click()DimrAsInteger，nAsInteger n=Text1 r=Text2 Text3=fun(n)/fun(______)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLong x=1 Fork=1Ton t=t*k Next fun=tEndFunction
填空题菜单项的唯一事件是{{U}} {{U}} {{/U}} {{/U}}。
填空题以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。在【12】和【13】处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single，amax As Single，amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While{{U}} 【12】 {{/U}}
If x＞amax Then
amax=x
End If
If{{U}} 【13】 {{/U}}Then
amin=x
End If
x=InputBox("Enter a score")
Loop
Print"Max="；amax，"Min="；amin
End Sub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer，y As Integer)As Integer M=IIf(x＞y，x，y) End Function Private Sub Command1_Click( ) Dim a As Integer，b As Integer a=100 b=200 Print M(a，b) End Sub 程序运行后，单击命令按钮，输出结果为 【12】 。
填空题在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
For k=1 To 10
If Art(k)＞0 Then
{{U}}【10】 {{/U}}
Else
{{U}}【11】 {{/U}}
End If
Next k
Print pos,neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
填空题下列程序运行后，在窗体上打印的结果是______。 Private Sub test(a， b， c) a = a + 1: b = b + 2: c = c + 3 End Sub Private Sub Command1_Click( ) x = 1: y = 2: z = 3 Call test(x， y + 3， (z)) Print "Main:"; x; y; z End Sub
填空题在将设计好的表单存盘时，系统将生成扩展名分别是SCX和【12】的两个文件。
填空题代码窗口分为左右两栏，左边一栏称为______，右边一栏称为过程框。
填空题设有如下程序：
Option Base 1
Pfivme Sub Command1_Click( )
Dim arr1
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54，866，43)
Min={{U}} 【12】 {{/U}}
For i=2 TO 8
If arr1(i)＜Min Then{{U}} 【13】 {{/U}}
Next i
Print“最小值是：”；Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。
填空题数据库系统中实现各种数据管理功能的核心软件称为{{U}} 【5】 {{/U}}。
填空题为了选择多个控件，可以按住 【6】 键，然后逐个单击每个控件。
填空题下列事件过程的功能是：在C盘根目录下，建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Ptivate Sub Form_Click() DimY As Single Open (14) Y=3.14159 /180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) (15) Next i Close #2 End Sub
填空题为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图片框的 Stretch属性设置为 【8】 。
填空题在窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
R_ID As Integer
R_Name As String * 20
Ene Type
Private Sub Commandl_Click( )
Dim M _Sise, N_Char, M_Char
Open" c: /file. txt" For Input As #1
M_sise=LOF(1)
For N_Char = M_Sise To 1 Step - 1
Seek#1, Next Char
M_char = Input(1 ,#1)
Next
Print EOF(1)
Close#1
End Sub
程序运行后，单击命令按钮，其输出结果为{{U}} 【15】 {{/U}}。
填空题在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和 CommonDialogl，然后编写如下事件过程： Private Sub Commandl_CUck() CommonDialog1.______="打开文件" CommonDialog1.Filter="All Files(*.*)|*.*" CommonDialog1.InitDir="C:/" CommonDialog1.ShowOpen End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AllFiles(*.*)”，并显示C盘根目录下的所有件，请填空。
填空题Visual Basic6.0的集成开发环境有两种方式，第一种方式是{{U}} 【6】 {{/U}}，第二种方式是{{U}} 【7】 {{/U}}。
填空题有时候需要暂时关闭计时器，这可以通过{{U}} 【11】 {{/U}}属性来实现。
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/fun(【13】)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongx=1Fork=1Tont=t*kNextfun=tEndFunction