填空题一个模块被多个模块调用，调用这个模块的模块个数称为 【4】 。
填空题在Visual FoxPro中，使用SQL的SELECT语句将查询结果存储在一个临时表中，应该使用【11】子句。
填空题下列程序用IIf函数改写为______。 x=b If a＞b Then x=a
填空题当对命令按钮的Picture属性装入bmp图形文件后，这项按钮上并没有显示所需的图形，原因是没有对______属性设置为1(Graphical)。
填空题Visual Basic 6.0分为3种版本，这3种版本是______、______和______。其中，最完整的是______。
填空题在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。
Sub dlys(ByVal n As Single)
Dim tl As Single
Dim t2 As Single
t1 = Timer
Do
t2 = Timer
If t2 ＜ t1 Then t2 = t2 + 86400
If t2 - tl ＞ n Then Exit Do
________
Loop
End Sub
Sub main( )
Form2. Show
dlys
________
________
Form1. Show
End Sub
填空题在窗体上建立一个含有3个命令按钮的控件数组，当单击某个命令按钮时，分别执行不同的操作。请填写以下空白处，使程序完整。PrivateSubCommand2_Click(IndexAsInteger)FontSize=12If______ThenPrint"单击第一个命令按钮"ElseIf______ThenPrint"单击第二个命令按钮"ElseIf______ThenEndEndIfEndSub
填空题在数据库技术中，使用数据模型的概念描述数据库的语义和结构，一般可分为两类：概念数据模型和{{U}} 【4】 {{/U}}。
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click()
Dim Y As Single
Open ______
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i * Y)
Ksc.Cosx=Cos(i * Y)
Put #2，i，KSC
Next i
Close #2
End Sub
填空题窗体中有两个命令按钮：“显示”(控件名为CmdDisplay)和“测试”(控件名为cmdTest)．单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮，否则退出。请填空。 Private Sub cmdTest_ lick() answer=MsgBox (“隐藏按钮”，65) If answer=vbOK Then cmdDisplay. 【8】 Else End End If End Sub
填空题设有s(学号，姓名，性别)和sc(学号，课程号，成绩)两个表，下面SQL的SELECT语句检索选修的每门课程的成绩都高于或等于85分的学生的学号、姓名和性别。
SELECT 学号，性别 FROM s
WHERE【15】 (SELECT * FROM sc WHERE sc.学号=s.学号 AND 成绩 <85)。
填空题下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同，则只保留一个)写入文件file2.txt。请填空。 Private Sub Command1_Click() Dim inchar AS String, temp AS String, outchar AS String Outchar="" Open "file1.txt" For Input AS #1 Open "file2.txt" For Output AS (7) n=LOF( (8) ) inchar=Input$(n,1) For k=1 To n temp=Mid(inchar,k,1) If InStr(outchar, temp)= (9) Then outchar=outchar & temp End If Next k print #2, (10) close #2 close #1 End Sub
填空题窗体中有图片框(Pieture1)和计时器(Timer1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左，向右移动100twip。请填空。
Private Sub Form_ Load()
Picture1_icture=LoadPicture(“c:/pic/mouth.ico”)
{{U}} 【6】 {{/U}}.Interval=2000
End Sub
Private Sub Timer1_ Timer()
Static x，y As Integer
x=x+100
y=y+100
Pictuer1.Move [x, y]
End Sub
填空题下面的程序用冒泡法将数组a中的10个整数按升序排列，请在三处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i=______ For j=______ If a(i)______a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub
填空题结构化程序设计原则和方法中要求对语言中所没有的控制结构，应该采用______的方法来模拟。
填空题在Visual FoxPro中，数据库表S中的通用型字段的内容将存储在【7】文件中。
填空题下列函数过程的作用是计算x和y的最大公约数。请填空。
Private Sub Command1_ Click()
Dim x As Integer, y As Integer, Result As Integer
x = InputBox (“请输入第一个数”)
y = InputBox (“请输入第二个数”)
Result =______
Print x; "和"; y; "的最大公约数为: "; Result
End Sub
Private Function GYS (ByVal A As Integer, ByVal B As Integer)
Dim T As Integer
T = A Mod B
Do While ______
A = B
B = T
T = A Mod B
Loop
______
End Function
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form Click() Dim Y As Single Open (6) Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx：Cos(i*Y) (7) Next i Close #2 End Sub
填空题在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条(Max属性为10，Min属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。PrivateSubHScolll______()If(HScrolll.Value=50)ThenTextl.Text="适中"ElseIfHScrolll.Value______ThenText1.Text="慢"ElseText1.Text="快"EndIfEndIfEndSub
填空题下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dim a(10) For i=1 To 10 a(i) =Int( [14] ) If [15] Then k=k+1 Print a(j) Next j Print Print k/10 End Sub