填空题设有代码如下，当双击窗体内的某个位置时，命令按钮Command1和命令按钮Command2的标题分别为11、{{U}} 【9】 {{/U}}。
Private SubForm_Load()
Command1. Caption = "1"
Command2. Caption = "2"
End Sub
Private Sub Form_Click()
Command1. Caption = "11"
End Sub
Private Sub Form_DblC1ick( )
Command2. caption = 22
End Sub
填空题将代数式转换成程序设计中的表达式为 【2】 。
填空题下列程序段在窗体上输出______，在立即窗口上输出______。 S1="software" S2="hardware" S3="computer" Print Right(S1, 3) Picture 1. Print Mid(S2，2，4) Debug. Prim Left(S3，2)
填空题如果单选按钮是“选中”的，即单选按钮中间有一个圆点，那么该单选按钮的Value属性值等于 【8】 ；反之，如果单选按钮没有被选中，其Value属性值等于 【9】 。
填空题在用Open语句打开文件时，如果省略“For方式”则打开的文件的存在方式是 【13】 。
填空题在窗体上画一个名为Command1的命令按钮，编写如下程序： Private Sub Command1_Click() Dim M(10)As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后，单击命令按钮，输出的结果是______。
填空题为了改变计时器控件的时间间隔，应该修改该控件的______属性。
填空题下面是一个体操评分程序，20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。请在空白处填入适当的代码。 Max=0 Min=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If______Then Max=n If______Then Min=n s=s+n Next i s=______ p=s/18 Print"最高分："; Max，"最低分："; Min Print"最后得分："; p
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在(n-r)!r!Text1、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的个数，并显示在Text3文本框中。请填空。PrivateSubCommandl_Click()DimrAsInteger，nAshtegern=Text1r=Text2Text3=fun(n)/fun([14])/fun(r)EndSubFuncionfun(nAsInteger)aslongDimtAsLong[15]Fork=1Tont=t*kNextfun=tEndFunction
填空题下列程序的输出结果是______。 Sub Prin() Dim B As String A=1 B=A & Space(4)& A Print A Print Trim(B) End Sub
填空题高度为h(h＞O)的二叉树最少有{{U}} 【3】 {{/U}}个结点。
填空题建立一个通讯录的随机文件phonBook.txt，内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String * 11 Address As String * 10 Posted As String * 6 End Type ___________________________'定义PerData类型的变量xData Private Sub Form_Load() Open "C:/phonBook.txt"For Random As 1 End Sub Private Sub Command1_Click() xData. Name1=Text1.Text xData. Phon=Text2.Text ________=Text3.Text '地址 xData. PostCd=Text4.Text Put #1, 1, xData Text1.Text=" ":Text2.Text="" Text3.Text="":Text4.Text="" End Sub Private Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 Do While i＜= reno Get #1, i, xData Debug.Print xData.Name 1,______, xData. Address, xData. PostCd i=i+1 Loop End Sub
填空题在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。 PrivateSubCombo1_Click( ) CallShowItem(Combo1,Label1) EndSub PrivateSubCombo2_Click________ CallShowItem(Combo2,Label2) EndSub PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel) 【10】 .Caption= 【11】 .Text EndSub
填空题阅读程序： Private Sub Form_Click() msg 1$＝"继续吗?" msg 2$="操作对话框" r＝MsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按Enter键，则相当于用鼠标单击信息框中的 【10】 按钮。
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是 【15】 。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer, y As Integer)
M=IIf(x＞y, x, y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=100
b=200
Print M(a, B)
End Sub
程序运行后，单击命令按钮，输出结果为
________
。
填空题在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click( ) CommonDialog1．Filter= 【13】 CommonDialog1．FilterIndex= 【14】 CommonDialog1．ShowSave Info．Text= 【15】 End Sub
填空题在窗体上设计如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在程序运行后，按“a”键(不按住Shift键)，则窗体上输出的结果是______。
填空题表达式Fix(-32.68)+Int(-23.02)的值{{U}} 【10】 {{/U}}。
填空题在窗体上有三个控件：名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1，并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所示。PrivateSubform_Load()HScroll1.Max=form1.WidthHScroll1.Min=0HScroll1.LargeChange=50HScroll1.smallChange=10Text1.Text=HScroll1.ValueHScroll1,Value=0Label1.Left=HScroll1.ValueEndSubPrivateSubHScroll1【11】Text1.Text=NScroll1.【12】Label1.Left=HScroll1.ValueEndSub