填空题有一个过程如下： Sub Sub1(m As Integer,total As Long) Dim i AS Integer total=1 For i=1 To m total=total*i Next End Sub 调用它的事件过程如下： Private Sub Command1_Click() Dim tot As Long,a As Integer a:Val(InputBox("请输入数据”)) Call Sub1(a,tot) Print tot End Sub 则输入数据5，运行结果为 (11)
填空题表达式“12+34”的值是{{U}} 【6】 {{/U}}，表达式“12”&“34”的值是{{U}} 【7】 {{/U}}。
填空题假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为 【7】 。
填空题建立随机文件F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在{{U}} 【14】 {{/U}}和{{U}} 【15】 {{/U}}处将程序补充完整。
Type worker
name As String*10
pay As Single
End Type
Dim workl AS worker
Open"F1.dat"For Random As#1 Len=Len(workl)
Work1.name="LiuMin"：work1.pay=400#
{{U}}【14】 {{/U}}
Close#1
Open"F1.dat"For Random As#1 Len=Len(work1)
{{U}}【15】 {{/U}}
Print"work1："，workl.name
Print"work1："，workl.pay
C10se#1
填空题在面象对象程序设计中，从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法，这称为对象的______。
填空题以下程序段执行后y的值是{{U}} 【1】 {{/U}}。
x=3.7
y=Int(x+0.6)
Print y
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为nmuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form
________
(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 2 Then
________
mnuEdit
End If
End Sub
填空题在对象的MouseDown和MouseUp事件过程中，参数Button的值为1、2、4时，分别代表按下鼠标的左键、{{U}} [5]
{{/U}}和{{U}} [6] {{/U}}按钮。
填空题下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。
Option Explicit
Dim a As Integer, b As Integer, n As Integer, c As Integer
Private Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer
do
c=a Mod b: a=b=c
Loop {{U}}【13】 {{/U}}
Gcd=a
End Function
Private Sub form_ Click()
n=0
for a= 1 To 49
b={{U}} 【14】 {{/U}}
c= Gcd (a, b)
if c Mod 3= 0 then
{{U}} 【15】 {{/U}}
Print a, b, c
End if
Next a
Print n
End Sub
填空题设有整型变量s，取值范围为0～100，表示学生的成绩。有如下程序段： If s＞=90 Then Level="A" Else If S＞=75 Then Level="B" Elself S＞=60 Then Level="C" Else Level="D" End If 下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同。请填空。 Select Case s Case (9) ＞=90 Level="A" Case 75 To 89 Level="B" Case 60 To 74 Level="C" Case (10) Level="D" End Select
填空题用户可以用
________
语句定义自己的数据类型。
填空题设a=sqr(2)*sqr(3)，下列语句的输出结果分别是{{U}} 【12】 {{/U}}、{{U}} 【13】 {{/U}}、{{U}} 【14】 {{/U}}、{{U}} 【15】 {{/U}}。
Print format$(a，"000.00")
Print formats(a，"###.#00")
Print format$(a，"00.00e＋00")
Print format$(a，"-#.####")
填空题函数Str$( 256.36)的值是 (12) 。
填空题下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a() a=Array(678，45，324，528，439，387，87，875，273，823) Fori＝ 【10】 Forj= 【11】 If a(j) 【12】 a(j+1)Then a1=a(j) a(j)＝a(j+1) a(j+1)=al End lf Nextj Next i For i＝1 To 10 Print a(i) Next i End Sub
填空题在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35，48，15，22，67。Form_Click事件过程对数组元素进行处理。 DimA rr(1 To 5) Private Sub Form_Load() [11] End Sub Private Form_Click() [12] If Int(x/3)=x/3 Then PrintX End If Next X End Sub
填空题下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Commandl_Click() x=Val(Textl.Text) If______Then Print x Else _______ Textl.Text="" End If End Sub
填空题为了在运行时把图形文件piefile.jpg装入图片框对象Picture1之中，应该使用的语句为{{U}} 【7】 {{/U}}。
填空题菜单项(Find)，其访问键为Alt+F，则在设计时应将______。
填空题在窗体上画一个文本框和—个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print"VB programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。
填空题请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1 To 6 For i=1 To 6 If i=j Then (13) Else (14) End If Print (15) Next j Print Next i End Sub