填空题在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【12】和【13】、【14】处填入适当的内容，将程序补充完整。
Private Sub Command1_Click( )
Dim a(100)
For j=1 To 100
a(j)=Int ({{U}} 【12】 {{/U}})
If a(j){{U}} 【13】 {{/U}}5=0 Then{{U}} 【14】 {{/U}}
Print a(j)
Next j
Print
print k/100
End Sub
填空题实现算法所需的存储单元多少和算法的工作量大小分别称为算法的{{U}} 【2】 {{/U}}。
填空题假设有以下程序段： For i= 1 To 3 For j=5 To 1 Step -1 Print i * j Next jNext i 则语句Print i*j的执行次数是______，i的值为______，j的值为______。
填空题数据库语言由{{U}} 【4】 {{/U}}和数据操纵语言(DML)组成，它为用户提供了交互使用数据库的方法。
填空题下列程序段运行后，a的值为______。 a=600 b=50 a=a+b b=a-b a=a-b
填空题执行下面的程序段，x的值为 【7】 。 Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub
填空题以下程序段在窗体上输出 [12] ，在图片框中输出name，在立即窗口中输出 [13] 。 A="your" B="aname" C="iscr" PrintRight(A,3) Picturel.PrintMid(B，2，4) Debug.PrintLeft(C，2)
填空题运行下列程序：
Dim t As Integer
Private Sub Form_C1ick{{U}} {{/U}}
t=2
x=Val(InputBox("输入一个整数5"))
Print funl(x)；t
End Sub
Private Function funl(v)
If y＞0 Then
fun1=1:t=10
Else If y=0 Then
fun1=0:t=20
Else
fun1=-1:t=30
End If
End Function
从键盘为变量x输入数据5，输出的结果是______。
填空题假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将经下程序补充完整。
Private Sub Command1_Clickk( )
Dim B As Books
open "c: /person. txt" For output As #1
B. Name = InputBox ("请输入姓名t" )
B. TelNum = InputBox("请输入电话号码" )
write #1,{{U}} 【15】 {{/U}}
close #1
End Sub
填空题在窗体上画一个命令按钮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 arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为{{U}} 【10】 {{/U}}。
填空题执行下面的语句后，所产生的信息框的标题是 【13】 。 a=msgbox ("AAAA",,"BBBB","",5)
填空题多分支选择结构的SelectCase＜测试表达式＞语句中，＜测试表达式＞可以是______。
填空题有如下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 call s(a,B) Print a,b End Sub 则程序运行后，单击命令按钮，输出的结果为 (7) 。
填空题在修改列表框内容时，RemoveItem方法的作用是{{U}} 【6】 {{/U}}。
填空题以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示： ·当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。 ·当a=0，b＜＞0时，有一个根。 ·当a=0、b=0时，方程无意义。Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single Dim sb As Single Dim xb As Single Dim re As Single a = InputBox (“请输入a的值”) c = InputBox(“请输入c的值”) if 【10】 then delta = b ^2- 4 * a * c re = -b/(2 * a) if 【11】 then sb = Sqr (delta)/(2 * a) Print “方程有两个实根” Elseif delta = 0 then Print “方程有两个相等实根” Else xb = Sqr( - delta)/(2 * a) Print “方程有两个虚要” End if Else if 【12】 then ygz = - b / c Print “方程仅有一个根” Else print “方程无意义” End if End if End Sub
填空题执行下列程序后输出如下所示矩阵，填空将程序补充完整。 1 0 0 2 0 3 4 0 0 5 6 0 7 0 0 8 Private SubCommand1_Click() Dim a(4，4) For i=1 To 4 For i=1 To 4 If 【9】 Then 【10】 a(i，j)=k Else a(i，j)=0 End If Print a(i，j)； Next i Print Next i End Sub
填空题执行语句Print”25+32＝”，25+32的输出结果是 【6】 。
填空题在窗体上画一个文本框和—个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Textl Change()
Picture1.Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是{{U}} 【7】 {{/U}}，而在图片框中显示的内容是{{U}} 【8】 {{/U}}。
填空题编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。
option Explicit
Private Sub Form C1ick()
Dim chl As String, fn As Integer
Dim Str As String
fn={{U}} 【13】 {{/U}}
Open "C:/Config. sys" For Input As fn
Do While Not EOF({{U}} 【14】 {{/U}})
Line Input #fn, chl
Str=Str+chl+vbCrLf
Loop
Text1. Text={{U}} 【15】 {{/U}}
End Sub