填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1. Text="VB程序设计"
End Sub
Private Sub Text1_Change()
Picturel. Print "VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是{{U}} 【6】 {{/U}}，在图片框中显示的内容是{{U}} 【7】 {{/U}}。
填空题在KeyDown和KeyUp事件过程中，当参数Shift的值为十进制数1，2，4时，分别代表Shift、 【8】 、 【9】 键。
填空题在窗体上画一个通用对话框，其名称为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
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 {{U}}【11】 {{/U}}；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是{{U}} 【12】 {{/U}}。
填空题在窗体上画一个命令按钮，然后编写如下程序： (假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) X=x+a End Sub Private Sub Camunand1_Click() inc 2 inc 3 inc 4 Print x; End Sub 程序执行后，单击Command1命令，按钮，输出的结果是 【11】 。
填空题有如下SUB过程：
Sub s(x As Single，y As Single)
t =x
x=t / y
Y=t Mod y
End Sub
在窗体上添加一个命令按纽，然后编写如下事件过程：
Private Sub Form_ Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a，b
Print a，b
End Sub
则程序运行后，单击命令按纽，输出的结果为：
________
。
填空题阅读如下程序；
Private Sub Form Click()
msg1$=“继续吗?”
msg2$=“操作对话框”
r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$)
End Sub
程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的{{U}} 【8】 {{/U}}按钮。
填空题以下程序用来计算由键盘输入的N个数中正数之和，负数之和，正数的个数，负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。 Privae Sub Commandl_Click N=10 C=0:IC=0:D=0:ID=0 For =1 To N A=Val(1nputBox(“请输入A”)) IFA＜0 Then C=C+A：IC=IC+1 lf A＞O Then D= Next K Print"负数的个数为：",IC Print"负数的和为：",C Print"正数的个数为："，ID Print"正数的和为：",D End Sub
填空题关系代数是以______为运算对象的一组高级运算的集合。
填空题以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输 入负数时结束输入，输出结果。请补充完整下列程序段。
Dim x，amax,amin As Single
x=InputBox("Enter a score")
amax=x
amin=x
Do While【 】
If x>amax Then
amax=x
End If
If【 】Then
amin=x
End If
x=InputBox("enter a score")
Loop
Print"max="；amax，"min="；amin
填空题________
(黑箱或白箱)测试方法完全不考虑程序的内部结构和内部特征。
填空题执行下列语句后，输出结果是______。
s$="ABCDEFG"
Print lnStr(s$,"efg")
Print LCase$(s$)
填空题下列事件过程的功能是：建立一个名为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
填空题在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 alt(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then Re Dim arr(4) arr(4)=x End If Me.Print(arr(4)-arr(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
填空题在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open"d:/temp/dat.txt"For Output As # 1 Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If______=13 Then If UCase(Text1.Text)=______Then Close 1 End Else Write # 1,______ Text1.Text=" " End If End If End Sub 以上程序的功能是，在D盘temp目录下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
填空题下列的For语句循环体要执行50次，请填空。 For k=______To -7 Step -3
填空题程序注释一般分为序言性注释和{{U}} 【3】 {{/U}}注释。
填空题在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = " " Text2.Text = " " End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入1234和4321，然后单击命令按钮，则输出结果为 【8】 。
填空题程序执行结果s的值是{{U}} 【7】 {{/U}}。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_Click()
Dim i As Integer
i=3
Call sub1(i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub
填空题下列程序是判断一个整数(>=3)是否为素数，请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3)")
k=Int(Sqr(n))
i=2
swit=0
While i<=k And swit=0
If n Mod i=0 Then
【 】
Else
【 】
End If
Wend
If swit=0 Then
Print n；"是一个素数。"
Else
Print n；"不是一个素数。"
End If
填空题窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向下、向右移动100twip。请填空。
Private Sub Form_Load()
Prcture1_Picture=LoadPicture("c/pic/mouth.ico")
______.Interva=2000
End Sub
Prinvate Sub Timer1_Timer()
Static x,y As Integer
x=x+100
y=y+100
Pictuer1.Move[x，y]
End Sub