填空题表达式(Fix(32.4)+Int(-32.4)+Sgn(32.4))的值为______。
填空题函数Int(Rnd*10)+10的值的范围是
________
。
填空题在算法正确的前提下，评价一个算法的两个标准是{{U}} 【1】 {{/U}}。
填空题下面的程序执行时，将把当前目录上的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open "./smtext1.txt"______As#1 Do While______ Input #1,inData Text1.Text=Text1.Text & inData Loop Close #1 End Sub
填空题下列程序的功能是：当x100时，没有意义。请填空。Private Sub Command1_Click() Dim x As Single x=InputBox("请输入x的值!") 【10】 Case Is y=0．8 * x Case 50 To 100 y=0．7 * x 【11】 Print"输入的数据出界!" End Select Print x，yEnd Sub
填空题软件的{{U}} 【2】 {{/U}}设计又称为总体结构设计，其主要任务是建立软件系统的总体结构。
填空题Visual Basic有三种运行模式，分别是{{U}} 【6】 {{/U}}、运行模式和中断模式，其中{{/U}} 【7】 {{/U}}模式可以监视表达式和变量的值。
填空题以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1 _Click( )
For i = 1 To 20
x=Int({{U}} 【11】 {{/U}}*200+ 100)
If{{U}} 【12】 {{/U}}= 0 Then
Print x
S = S +{{U}} 【13】 {{/U}}
End If
Next I
Print "Sum = "; S
End Sub
填空题下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。 Private Sub Command1_Click() Max=0 Min=10 For I=1 To 20 N=Val(InputBox("请输入分数")) If (12) Then Max=N If N＜Min Then Min=N S=S+N Next I S= (13) P=S/18 Print"最高分"；Max"最低分"；Min Print"最后得分："；P End Sub
填空题窗体上命令按钮Command1的事件过程如下： Private Sub Command1_Click() Dim total As Integer total=s(1)+s(2) Print total End Sub Private Function s(m As Integer) As Integer Static x As Integer For i=1 To m x=x+1 Next i s=x End Function 运行程序，第三次单击命令按钮Command1时，输出结果为______。
填空题以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。PrivateSubformClick()Dims(5,5)AsIntegerforN=1To5forM=1To5if______Or______thenS(N,M)=1ElseS(N.M)=0EndifNextMNextNforN=1To5for______Picture1.PrintTab(M*3);s(N,M);NextMPrintNextNEndSub
填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click( ) Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后，单击命令按钮，两个文本框(Text1和Text2)内容分别为 (6) 和 (7) 。
填空题在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
填空题有如下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
则程序运行后，单击命令按纽，输出的结果为：{{U}} 【13】 {{/U}}。
填空题数据库系统其内部分为3级模式，即概念模式、内模式和外模式。其中，______是用户的数据视图，也就是用户所见到的数据模式。
填空题在对象名与事件名之间用______符号连接。窗体的对象名用______表示。
填空题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是 【10】 。
填空题记时器控件能有规律的以一定时间间隔触发______事件，并执行该事件过程中的程序代码。
填空题在Visual Basic 中，要将一个窗体装载到内存进行预处理，但不显示，应该使用 【14】 语句，要将一个窗体从内存中释放，应使用 【15】 语句。
填空题我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡5元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。
Private Sub Commandl_Click()
Dim Cock As Integer
Dim Hen As Integer
Dim Chick As Integer
Forml．Print“公鸡数”，“母鸡数”，“雏鸡数”
For Cock；0 To 20
For Hen=0 To 33
For Chick=0 To 100
If ______Then
Form1．Print Cock，Hen，Chick
End If
Next Chick
Next Hen
Next Cock
End Sub