填空题表达式Asc(“A”)&Chr(65)的值为 【13】 。
填空题下列程序的执行结果是______。 m1=1 m2=1 Do Whilem2＜＞6 m1=m1*m2 m2=m2+1 Loop Printm1
填空题在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色 ……如此循环。单击“结束”按钮，程序运行结束。请填空。
Private Sub cmdChange_Click()
If Mark=0 Then
【 】
Mark=1
ElseIf【 】Then
Forml．BackColor=vbGreen
Mark=2
ElseIf Mark=2 Then
Form1．BackColor；vbBlue
【 】
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
填空题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load( ) Text1.Text="计算机" End Sub Private Sub Text1_Change( ) Picturel.Print"等级考试" End Sub 程序运行后，在文本框中显示的内容是 【10】 ，而在图片框中显示的内容是 【11】 。
填空题一个工程可以有______个MDI窗体，设置子窗体必须将该窗体的______属性设置为______。
填空题Visual Basic中，事件的名称是固定的，它们是Visual Basic的______。
填空题有如下Sub过程： Sub ind(a As Integer) Static x As Integer x= x + a Print x： End Sub 以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为 【14】 。 Private Sub Command1_Click() Ind 2 End Sub
填空题设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。
Private Sub Command1_Click()
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
{{U}} 【9】 {{/U}}
Text1.ForeColor=CommonDialog1.Color
End Sub
填空题窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。PfivateSubForm_Load()Fori=1To100IfiMod7=0Then[6]EndIfNextEndSubPrivateSubCommandl_Crick()Sum=0Fori=0ToList1.ListCount-1或14Sum=Sum+[7]NextTextl:Text=SumEndSub
填空题设有如下程序：
Option Base 1
Private Sub Commandl Click()
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12,435,76,-24,78,54,866,43)
Min=
______
For i=2 To 8
If arrl(i)＜Min Then
______
Next
Print"最小值是:";Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
填空题菜单编辑器可以分为3部分，即数据区、编辑区和______。
填空题在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdd) 和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId；InxId+1 【6】 mnuDyn(InxId) mnuDyn(Inxld) ，Calption=mnuc mauDyn(InxId) .Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If 【7】 Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxId) InxId=InxId-1 End If End Sub
填空题有一个事件过程，其功能是从已存在于磁盘D上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single,y As Single Open D:"NM1.txt" For Input As#1 Open D:"NM2.txt" For Input As#2 Do While Not EOF(1) (11) Print x y=x＾2 (12) Print y Loop Close#1, #2 End Sub
填空题类是具有共同属性、共同操作方法的对象的集合，所以类是对象的 【3】 。
填空题Jackson结构化程序设计方法是英国的M.Jackson捉出的，它是一种面向{{U}} 【3】 {{/U}}的设计方法。
填空题设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在{{U}}【11】{{/U}}、{{U}}【12】{{/U}}和{{U}}【13】{{/U}}处填入适当的内容，将程序补充完整。OptionExplicitDimiPrivateSubCommand1_Click()i＝0Timer1.Interval=1000Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubForm_Click(){{U}}【11】{{/U}}MeEndSubPrivateSubForm_Load()Timer1.Enabled=FalseText1.Text=0EndSubPrivateSubTimer1_{{U}}【12】{{/U}}()i=i+1Text1.Text={{U}}【13】{{/U}}EndSub
填空题工具栏的复制、剪切、粘贴按钮所对应的菜单命令放置于主菜单项______的下拉菜单中。
填空题要打印50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim b()
Randomize
11
Do
x=Rnd
If x＞0.5 Then y=1 Else y=-1
t=y*Int(Rnd*100)+1
12
Do While k＜j
If t＜＞b(k) Then
k=k+1
Else
Exit Do
End If
Loop
If k=j Then
ReDim Preserve b(k)
b(k)=t
Print b(k)；
j=j+1
End If
Loop Until j＞50
Print
13
Max=b(1)
For n=2 To 50
If b(n)＞Max Then
14
p=n
End If
Next n
Print"最大数是："；Max
Print"位置在第"；p；"个"
End Sub
填空题下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2，如3和5，11和13等，请填空。 Private Sub Form_Click() Dim i As Integer For i = 3 To 97 Step 2 If 【9】 Then Print i, i + 2 End If Next i End Sub Public Funtion Prime (ByVal n As Integer) As Boolean Dim i as Integer For i = 2 To n - 1 If 【10】 Then Exit For End If Next i If i = n Then Prime = True Else Prime = False End If End Function
填空题以下程序用于计算“1+1/3+1/5+…+1/(2n+1)”，直至“1/(2n+1)”小于10-4。阅读下面程序，请在【6】和【7】处填上正确内容。Private Sub Command1_Click() Sum = h: n = i do n= 【6】 term =1/ n Sum = Sum + term if term ＜0.0001 then 【7】 Loop Text1.Text = n Text2 *Text = SumEnd Sub