填空题下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的data.txt文件中。请填空。 Private Sub Command1_Click() Dim a As Integer Open 【9】 For Output As #100 Randomize For i =1 To 10 a=100+Int(899*Rnd) 【10】 Next i Close #100 End Sub
填空题下列事件过程的功能是：通过Form_Load事件给数组赋初值35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。 Dim Arr() Private Sub Form_Load() (10) End Sub Private Sub Form_Click() For Each X In Arr If Int(x/3)=x/3 Then Print X End If Next X End Sub
填空题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是 【12】 。
填空题数据的逻辑结构有线性结构和{{U}} 【6】 {{/U}}两大类。
填空题如按功能划分，软件测试的方法通常分为白盒测试方法和______测试方法。
填空题请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。
Private Sub Command1 Click()
Dim s(6，6)
For i=1 To 6
For j=1 To 6
If i=j Then
【 】
Else
【 】
End If
Print 【 】
Next j
Print
Next i
End Sub
填空题下列程序段的执行结果为 (7) 。 Dim A(10,10) For i=2 To 4 For i=4 To 5 a(i，j)=i*j Next j Next i Print A(2,5)+A(3,4)+A(4,5)
填空题下列程序段在窗体上输出______，在立即窗口中输出______。
S1="software"
S2="hardware"
S3="computer"
Print Right(S1, 3)
Picture1.Print Mid(S2, 2, 4)
Debug.Print Left(S3, 2)
填空题Private Sub Form_Activate( )
For j = 1 to 3
x=3
For i = 1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后，窗体上显示的结果为{{U}} 【14】 {{/U}}。
填空题当用户画完一个控件后，在该控件的边框上有8个黑色的小方块。当用户单击某个控件时，该控件的四周就会出现8个小方块，这些小方块被称为______，用于调整控件的 ______。
填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1.Text="VB Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序运行后，单击命令按钮，Text1文本框中显示的内容为{{U}} 【7】 {{/U}}。
填空题在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。 PrivateSubOption1_Click(IndexAsInteger) SelectCase________ Case0 a="宋体" Case1 a="黑体" Case2 a="楷体＿GB2312" EndSelect text1.________=a EndSub
填空题以下程序段的输出结果是______。 num=0 While num＜=2 num=num+1 Wend Print num
填空题以下Prime过程，用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数，就是合数。用被测试的数除以从2开始到该数本身的数，如果能除尽(余数为0)，则为合数；如果都除不尽(余数均不为0)，则为素数。请在划线处将下面过程补充完整：
Function Prime(inputvar As Integer)As Integer
For i=2 To inputvar-1
If inputvar Mod i={{U}} 【13】 {{/U}}，Then
GoTo comfinish
End If
Next i
Prime=inputvar
Print "素数"
GoTo{{U}} 【14】 {{/U}}
comfinish:
Prime=inputvar
Print"合数"
finish:
End Function
填空题在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【12】和【13】、【14】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click( ) Dim a(100) For j=1 To 100 a(j)=Int ( 【12】 ) If a(j) 【13】 5=0 Then 【14】 Print a(j) Next j Print print k/100 End Sub
填空题为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为______。
填空题下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。
Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)
If{{U}} [14] {{/U}}Then Text2.{{U}} [15]
{{/U}} End If End Sub
填空题下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。
Option Base 1
Private Sub Form_Click()
m=InputBox(“输入行数”):n=InputBox(“输入列数”)
{{U}} {{U}} {{/U}} {{/U}}a(mn)As Integer,b(n,m)As Integer
For I=1 to m
For i=1 to n
a(I,j)=Int(Rnd*90)+10
Next:next
For I=1 to m
Forj=1 to n
b(j,I):{{U}} {{U}} {{/U}} {{/U}}
Next:Next
End Sub
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a+1 End If a=a+1 Next j Next i Print a End Sub 程序执行后，单击命令按钮，输出结果是 【7】 。
填空题表达式Fix(-32.68)+Int(-32.02)的值为{{U}} 【10】 {{/U}}。