填空题执行语句Print”25+32＝”，25+32的输出结果是{{U}} 【6】 {{/U}}。
填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR( )
Randomize
Dim a
For j=1 To 10
a(i)=Int( 【 】 )
If 【 】Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAseii As Integer)
Print KeyAscii
End Sub
程序运行后，如果将CapsLock 键锁定在大写的状态，这时按下A键时，则：在窗体上输出的输出结果为{{U}} 【10】 {{/U}}和{{U}} 【11】 {{/U}}。
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form{{U}} 【7】 {{/U}}(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
{{U}} 【8】 {{/U}}mnuEdit
End If
End Sub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() x=1 Result=1 While x＜=10 Result=______ x=x+1 Wend Print Result End Sub 上述事件过程用来计算10的阶乘。请填空。
填空题数学不等式a≤x＜b的VB表达式为{{U}} 【9】 {{/U}}。条件4＜|x|≤6的VB表达式为{{U}} 【10】 {{/U}}。
填空题假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Fonn2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click() ______Form1 Form2.______ End Sub
填空题算法的基本特征是可行性、确定性、{{U}} 【1】 {{/U}}和拥有足够的‘隋报。
填空题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1. Text="" Open "d: /myfile. txt "For______As #1 Do While ______ Input # 1，inData Text1. Text=Text1. Text+inData Loop Close #1 End Sub 程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。
填空题有如下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 则程序运行后，单击命令按钮，输出的结果为______。
填空题在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。 PrivateSubCombo1_Click( ) CallShowItem(Combo1,Label1) EndSub PrivateSubCombo2_Click________ CallShowItem(Combo2,Label2) EndSub PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel) ________.Caption=________.Text EndSub
填空题下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。
Function SumF(n As Integer)As Single
s = 0
For i=1 To n
s={{U}} 【12】 {{/U}}
Next i
SumF=s
End Function
Private Sub Form_Click()
Sum1=SumF(100)
Print
Print"sum1="； sum1
End Sub
填空题假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，所使用的语句为{{U}} 【6】 {{/U}}。
填空题阅读下面的程序： Private Sub Form_Click( ) Dim Check As Boolean，Counter As Integer Check=Tree Counter=5 DO DO While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End if Loop Loop Until Check=False Print Counter End Sub 程序运行后，单击窗体，输出结果为 【9】 。
填空题在代码窗口对窗体的BorderStyle、MaxBuaon属性进行了设置，但运行后没有效果的原因是这些属性______。
填空题在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change()
Picturel.Print"VB Programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是 ______，而在图片框中显示的内容是 ______。
填空题软件设计模块化的目的是______。
填空题以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。 Dim arr(1 To 20) For i=1 To 20 arr(i)= 【12】 Next i Sum=0 For Each X In 【13】 If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；“Sum＝”；Sum
填空题把“Visual Basic程序设计”添加到列表框lstBooks的语句为______。
填空题为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的{{U}} 【6】 {{/U}}属性设置为{{U}} 【7】 {{/U}}。