填空题在Visual FoxPro中如下程序的运行结果(即执行命令DO main后)是【15】。
*程序文件名：main.prg
SET TALK OFF
CLOSE ALL
CLEAR ALL
mX=″Visual FoxPro″
mY=″二级″
DO s1
?xY+mX
RETURN
*子程序文件名：s1.prg
PROCEDURE s1
LOCAL mX
mX=″Visual FoxPro DBMS 考试″
mY=″计算机等级″+mY
RETURN
填空题在程序执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句，这样用户可以在获得系统的控制权后进行其他操作，这个语句是{{U}} 【7】 {{/U}}。
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single，y As Single Open "NM1.txt" For Input As #1 Open "NM2.txt "For Input As #2 Do While Not EOF(1) 【10】 Print x y=x^2 【11】 Print y Loop Close #1, S2 End Sub
填空题为了防止用户随意将光标置于控件上，应将控件的______属性设置为False。
填空题设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有 (1) 个元素。
填空题在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击—个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第三季度”单选按钮所产生的结果。请填空。Dimsales(12)AsLongPrivateSubForm_load()Open"sales.txt"ForInputAs#1Fork=1To12Input#1,sales(k)NextkClose#1EndSubPrivateSub{{U}}【12】{{/U}}(IndexAsInteger)DimsumAsLong,kAsInteger,monthAsIntegersum=0month=Index*{{U}}【13】{{/U}}Fork=1To3month=month+1sum=sum+sales(month)NextKLabel1.Caption=Op1(Index).{{U}}【14】{{/U}}&"销售总额"Text1=sumEndSub
填空题一个程序最多可以有{{U}} 【7】 {{/U}}窗体。
填空题执行如下程序段后，intsum的值为______。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Modj)＜＞0 Then sum=sum+j Next Next Print sum End Sub
填空题属性窗口分为4个部分，这4个部分分别是______。
填空题设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Commnd1_Click() Dim a(1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For i=1 To 10 a(i)=i Next i For j=1 To 5 【9】 【10】 【11】 Next j For i=1 To 10 Print a(i) Next i End Sub
填空题随机文件使用Put语句写数据，使用{{U}} 【15】 {{/U}}语句读数据。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_ Click()
Dim art(1 To 10) As Integer
For i = 1 To 10
Art(i) = Int (Rnd * 100)
Next i
Max = arr(1)
Min = arr(1)
For i = 2 To 10
If arr(i)＞ Max Then
______
End If
If arr(i) ＜ Min Then
______
End If
Next i
Print "Max = "; Max, "Min = "; Min
End Sub
以上程序的功能是，由程序产生10个100以内的随机整数，放入数组arr中，然后输出这10个数的最大值Max和最小值Min，请填空。
填空题建立随机文件Workers．dat。存取职工的姓名和职工号，然后把该文件中的数据读出显示。请在空白处填入适当的语句。
Type Worker
name As String*8
number As Integer
End Type
Open"e:/Workers．dat"For Random As #1 Len=Len(Workerl)
Workerl．name="zn"：Worker1．number=100#
{{U}} 【8】 {{/U}}
Close #1
Open"Workers．dat"For Random As #1 Len=Len(Worker1)
{{U}} 【9】 {{/U}}
Print"Worker1："，Worker1．name
Print "Worker1："，Worker1．number
Close #1
填空题在窗体上画两个组合框，其名称分别为Combo1、Comb02，然后画两个标签，名称分别为Label1、Label2，如图所示。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。PrivteSubCombo1_Click()CallShowltem(Comb01.Label1)EndSubPrivateSubCombo2_Click()CallShowltem(Combo2.Labe12)EndSubPublicSubShowhem(tmpComboAsComboBox，tmpLabdAsLabel)，{{U}}【10】{{/U}}Caption={{U}}【11】{{/U}}.TextEndSub
填空题在一个窗体上有一个命令按钮，CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。 Private Sub Form_Load() Form1.Caption=“字体变化示范” CmdMax.Caption=“字体变大” End Sub Private Sub CmdMax_Click() 【8】 Form1.Print“字体由小变大” End Sub
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load( )
Text1.Text="计算机"
End Sub
Private Sub Text1_Change( )
Picturel.Print"等级考试"
End Sub
程序运行后，在文本框中显示的内容是{{U}} 【10】 {{/U}}，而在图片框中显示的内容是{{U}} 【11】 {{/U}}。
填空题在Visual FoxPro中项目文件的扩展名是【2】。
填空题以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。 Private Sub Command1_click() Dim A(4，4) For I=1 To 4 For J= 1 To 4 【12】 =1 Next I 【13】 【14】 Next J For i=1 To 4 For j=1 To 4 Print A(i，j)： Next j Print Next I End Sub
填空题下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示 【10】 行数据，其中第2行和第3行的数据分别是 【11】 和 【12】 。 Option Base 1 Private Sub Command1_Click() Dim a， s As String，i As Integer a=Array(1，3，5，7，2，4，6，8) s=" " For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub
填空题以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和，请补充完该程序。
Dim n As Integer
Dim i As Integer
Dim j As Long
Dim s As Long
n=100
j=0
s=0
For i=1 To{{U}} 【12】 {{/U}}
J={{U}} 【13】 {{/U}}
s={{U}} 【14】 {{/U}}
Next i
Print s