填空题程序执行结果s的值是{{U}} {{/U}}。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_ Click( ) Dim i As Integer i=3 Call sub 1 (i) if i＞4 then i=i mod 2 Print cstr(i) End Sub
填空题下列语句的输出结果为
________
。
Print Format$(10009.36，"000，000.000")
填空题下列程序段的运行结果是______。 Dimt As Single，S As Single Dimn As Integer S=0:t=1 Forn=1 To 5 t=t*n s=s+1 Nextn Debug.Print S
填空题在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为"城市名称"和空白的标签。程序运行后，在组合框中输入一个新项目并按Enter键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示"已成功添加新输入项。"，如下图所示。如果输入的项目已存在，则在Label2中给出提示"输入项已在组合框中。"。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=(7)ThenLabel2.Caption="输入项已在组合框中。"ExitSubEndIfNextiLabel2.Caption="已成功添加新输入项。"Combo1.(8)Combo1.TextEndIfEndSub
填空题某顶级菜单项的快捷键字符为F，______操作等同于单击该菜单项。
填空题设有程序： Option Base 1 Private Sub
Command1_Click() Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43) {{U}} {{U}}
15 {{/U}} {{/U}}=arr1(1) For i=1 To 8
If arr1(i)＞Max Then{{U}} {{U}} 16 {{/U}} {{/U}}
Next i Print"最大值是：";Max End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题表达式2*4^2-2*6/3+3/2的值是 【6】 。
填空题在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果的原因是这些属性______。
填空题如下程序段的输出结果是【6】。
i=1
DO WHILE i<10
i=i+2
ENDDO
?i
填空题下列程序段的执行结果为______。 Dim A(10，10) For i=2 To 4 For j=4 To 5 A(i,j) =i*j Next Next Print A(2,5) +A(3,4) +A(4,5)
填空题 【5】 是从二维表列的方向进行的运算。
填空题在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click()
Open"c：/test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub
填空题R∩S用基本的关系代数运算可以表示为 【5】 。
填空题下面程序运行后，单击命令按钮，输出的结果是______。 Private Sub Command1_Click() Dim a%(1 To 5)，i%，s# For i=1 To 5 a(i)=i Next s=Fun(A) Print "s=";s; End Sub Function Fun(a()As Integer) Dim t#．i% t=1 For i=LBound(A) To UBound(A) t=t*a(i) Next Fun=t End Function
填空题建立随机文件TEST.DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。请在{{U}} 【10】 {{/U}}和{{U}} 【11】 {{/U}}处填适当的内容，将程序补充完整，
Type Record
Student As String*20
Score As Single
End Type
Dim Class As Record
Open"TEXT.DAT"For{{U}} 【10】 {{/U}}As #1 Len=Len(Class)
Class.Student=“LiuMin”：Class.Score=596
Put #1，1，Class
Close #1
Open"TEXT.DAT"For Random As #1 Len(Class)
{{U}} 【11】 {{/U}}
Print"STUDENT："，Class.Student
Print"SCORE："，Class.Score
Close #1
End
填空题以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。
Sub RecArea(L，W)
Dim S As Double
S=L*W
MsgBox"Total Area is"& Str(S)
End Sub
Private Sub Command1_Click()
Dim M，N
M=InputBox("What is the L?")
M=Val(M)
【 】
N=Val(N)
【 】
End Sub
填空题栈的3种基本运算是：入栈、退栈和______。
填空题窗体中有两个命令按钮：“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。根据题意，请完善下列程序。 Private Sub CmdTest_Click() Answer= 【6】 ("隐藏按钮") IF Answer=vbOK then CmdDisplay. visible= 【7】 Else End End IF End Sub
填空题在窗体上画一个文本框和一个图片框，然后编写口下两个事件过程： Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picture1. Print"VB programming" End Sub 程序运行后，单击窗体，则在本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。
填空题菜单编辑器的“索引”选项对应于菜单控件的______属性。