填空题以下程序段的输出结果是 【7】 。 num=0 While hum＜=2 num=num+1 Print num Wend
填空题已知数组A(4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在______和______处填写所需的内容，使其产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如：
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
Private Sub Command1_Click()
Dim s(4,4)
For k=1 To 4
For j=1 To 4
a(k,j) =j
Print a(k,j)；
Next
Print
Next
For k=2 To 4
For j=1 To {{U}}[10] {{/U}}
t=a(j,k)
a(j,k)={{U}} [11] {{/U}}
a(k,j)=t
Next
Next
For k=1 To 4
Print a(k,1);a(k,2);a(k,3);a(k,4)
Next
End Sub
填空题滚动条的最小值属性是______，最大值属性是______。
填空题在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：如果存在，则在Label2中给出提示“输入项已在组合框中”。请在{{U}}【12】{{/U}}、{{U}}【13】{{/U}}和{{U}}【14】{{/U}}处将程序补充完整。PrivateSubCombo1{{U}}【12】{{/U}}(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0TOComb01.ListCount-1IfCombo1.Text={{U}}【13】{{/U}}ThenLabel2.Caption=“输入项已在组合框中”ExitSubEndIfNextiLabel2.Caption=“已成功添加输入项”Combo1.{{U}}【14】{{/U}}Combo1.TextEndIfEndSub
填空题下列语句的输出结果是【 】。
Print Format$(1258．6，"000，000．00")
填空题如果一个工人可管理多个设备，而一个设备只被一个工人管理，则实体“工人”与实体“设备”之间存在{{U}} 【4】 {{/U}}的联系
填空题下列程序段的执行结果为{{U}} 【13】 {{/U}}。
Dim A (10,10)
For i = 2 To 4
For j =4 To 5
A(i,j) =i*j
Next
Next
Print A (2,5) +A(3,4) +A(4,5)
填空题软件生命周期可分为多个阶段,一般分为定义阶段、开发阶段和维护阶段。编码和测试属于 【 】阶段。
填空题下列程序运行后，在窗体上打印的结果是 【14】 。 Private Sub test(a， b，c) a = a + 1： b = b + 2：C = C + 3 End Sub Private Sub Command1 Click() x = 1：v = 2：z = 3 Call test(x，y + 3， (z)) Print "Main:"；x；y；z End Sub
填空题一个队列的初始状态为空。现将元素A，B，C．D，E，F，5，4，3，2，1依次入队，然后再依次退队则元素退队的顺序为______。
填空题窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件(例如：G:/VB/2010-9/in.txt)并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。标题名称内缩索引可见文件File无无True打开mnuOpen…无True关闭mnuClose…无True-mnu…无True(空)FName…0False以下是单击“打开”菜单项的事件过程，请填空。DimmnuCounterAsIntegerPrivateSubmnuOpen_Click()CD1.ShowOpenIfCD1.FileName＜＞""ThenOpen______ForInputAs#1mnuCounter=mnuCounter+1Loadfname(mnuCounter)fname(mnuCounter).Caption=CD1.FileNamefname(mnuCounter).______=TrueClose#1EndIfEndSub
填空题一个控件在窗体上的位置由Top和Left属性决定，其大小由
______
和
______
属性决定。
填空题为了使标签能自动调整大小以显示全部文本内容，应将标签的 【10】 属性设置为True。
填空题通用过程可以放在标准模块中，也可以放在窗体模块中，而______ 只能放在窗体模块中，不同模块中的过程(包括事件过程和通用过程)可以互相调用。
填空题控件和窗体的Name属性只能通过属性窗口设置，不能在______期间设置。
填空题当运行下列程序，单击窗体后，分别输入72和24，信息框上显示的结果是 【13】 。 Private Sub Form_Click() Dim x As Integer，y As Integer x=Val(InputBox("输入整数72")) y=Val(InputBox("输入整数24")) z=fun1(x，y) MsgBox Str(Z) End Sub Private Function funl(ByVal a As Integer， ByVal b As Integer)As Integer Do r=a Mod b a = b b = r Loop Until r=0 funl=a End Function
填空题以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。
Dim arr(1 To 20)
For i=1 To 20
arr(i)={{U}} 【12】 {{/U}}
Next i
Sum=0
For Each X In{{U}} 【13】 {{/U}}
If X＞50 Then
Print Tab(20)；X
Sum=Sum+X
End If
Next X
Print Tab(20)；“Sum＝”；Sum
填空题下面程序运行后，输出的结果是如下矩阵：471058116912请在程序[6]处填入正确的内容。
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change)
Picture1. Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是{{U}} 【7】 {{/U}}，而在图片框中显示的内容是{{U}} 【8】 {{/U}}。
填空题执行下面的程序段后，b的值为{{U}} 【6】 {{/U}}。
a=300
b=20
a=a+ b
b=a-b
a=a-b