填空题在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click( )
num=Val(Text1．Text)
If{{U}} 【8】 {{/U}}Then
Print num
Else
Text1．Text=" "
{{U}} 【9】 {{/U}}
End If
End Sub
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请将程序补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt"For Output As#1
For i=1 To 8
________
Next
Close#1
End Sub
填空题在窗体上设计如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在程序运行后，按“a”键(不按住Shift键)，则窗体上输出的结果是______。
填空题设有如下程序：
Private Sub Form_Click()
Dim a As Integer，s As Integer
n=8：s=0
Do
s=s+n：n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是计算1-8的和。程序运行后，单击窗体，输出结果为______。
填空题在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click() Dim str As String,s As
String,c As String str=UCase(Text1) s="
" c="Z" While c＞="A" If
Instr(str，c)=0 Then s={{U}} {{U}} 1
{{/U}} {{/U}} End If c=Chr $ (Asc(c)
{{U}} {{U}} 2 {{/U}} {{/U}}) Wend
If s＜＞""Then Text1=s End
If End Sub
填空题设有命令按钮Command1的单击事件过程，代码如下，请填空。
Private Sub Command1_Click()
Dim a(30) As Integer
For i=1 To 30
a(i) =i
Next
For Each arrItem______a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem＞90 Then Exit For
Next
End Sub
填空题一棵二叉树的结点数为33，其最大的深度为{{U}} 【1】 {{/U}}，最小的深度为{{U}} 【2】 {{/U}}。
填空题一个控件在窗体上的位置由______和______属性决定，而其大小则由______和______属性决定。
填空题对窗体编写如下两个事件过程：
Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr (KeyCode)
End Sub
Private Sub Form_ KeyPress (KeyAscii As Integer)
Print Chr (KeyAscii)
End Sub
程序运行后，如果直接按键盘上的a键(即不按住shift键)，则在窗体上输出的字符分别为______ 和______ 。
填空题在Visual Basic的立即窗口内输入以下语句 X=65 ? Chr$(X) 在窗口中显示的结果是{{U}} 【6】 {{/U}}。
填空题Visual Basic中的对话框分为3类，即______、______、______。
填空题设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8：s=0 Do s=s+n：n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是计算1-8的和。程序运行后，单击窗体，输出结果为______。
填空题在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在【8】、【9】和【10】处将程序补充完整。PrivateSubCombo1【8】(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1；ListCount-1IfCombo1．Text=【9】ThenLabe12．Caption="输入项已在组合框中"ExitSubEndIfNextiLabe12．Caption="已成功添加输入项"Combo1．【10】Combo1．TextEndIfEndSub
填空题执行命令A=2005/4/2之后，内存变量A的数据类型是【7】型。
填空题下列程序执行时，要求输入一个密码，如果密码不正确，则显示出非法用户的对话框。请填空。
Const PassWord="12345678"
Dim inpass As String
inpass=______("请输入你的密码"，"输入密码")
If inpass=PassWord Then Exit Sub
Else
______"对不起!你是非法用户。"，vbOKOnly＋vbCritical，"拒绝"
Unload Me
End If
填空题假定有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框(Picture1)，应执行的语句是______。
填空题语句Print"125＋35"；125＋32的执行结果是{{U}} 【8】 {{/U}}。
填空题下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an (10) As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)=______ Next i% max=an(1) For i%=2 To 10 if______then max=an(i%) End If Next i% print max End Sub End Sub
填空题变量未赋值时，数值型变量的值为______，字符串变量的值为______。
填空题软件工程研究的内容主要包括：软件开发技术和{{U}} 【4】 {{/U}}。