填空题以下程序的输出结果是{{U}} 【11】 {{/U}}。
x=12.7
x=Int(x＋0.5)
Print X
填空题下列程序的输出结果为______。 num=2 While num＜=3 num=num+1 Print num Wend
填空题下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，
完成下列程序。
Private Sub Backward(a())
Dim i As Integer,Tmp As Integer
Fori=1 To5
Tmp=a(i)
{{U}} {{/U}}
a(5-i)=Tmp
Nexti
End Sub
填空题一个控件在窗体上的位置由______和______属性决定，其大小由______和______属性决定。
填空题设窗体上有一个名为CD1的通用对话框、一个名为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示“打开”文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter="文本文件|*.txt|Word文档|*.doc" CD1.FilterIndex=1 CD1.ShowOpen If CD1.FileName＜＞""Then Open______For Input As #1 Line Input #1,ch$ Close #1 Text1.Text=______ End If End Sub
填空题程序模块文件是一个______文件，它不属于任何窗体。
填空题某个菜单项设计为分割线，则该菜单项的标题应设置为{{U}} 【11】 {{/U}}。
填空题把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： Prirate 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键)，则在窗体上输出的字符分别是 【11】 和 【12】 。
填空题Visual Basic6.0的集成开发环境有两种方式，第一种方式是______，第二种方式是______。
填空题下列程序的功能是：将数据1,2…，10写入顺序文件Base.txt中，请填空。
Private Sub Form_Click( )
Dim i As Integer
Open "Base. txt" For Output As #1
For i=1 To 10
{{U}} 【15】 {{/U}}
Next
Close #1
End Sub
填空题在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下列程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。 Private Sub Command1_Click() Dim ch$,ascii As Integer Open"myfile.txt"For______AS#1 While NOt EOF(1) Line Input#1.ch ascii=toascii(______) Print ascii Wend Close#1 End Sub Private Function toascii(mystr$)As Integer n=0 For k=1 To______ n=n+Asc(Mid(mystr,k,1)) Next k toascii=n End Function
填空题将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是{{U}} 【7】 {{/U}} 。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer) M=пf(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 程序运行后，单击命令按钮，输出结果为 【15】 。
填空题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是{{U}} 【8】 {{/U}}。
填空题下列程序的功能是：将数据1,2,..,8写入顺序文件Num. txt中请补充完整。
Private Sub Form_Click ( )
Dim i As Integer
Open "Num. txt" For Output As #1
For i = 1 To 8
{{U}} 【13】 {{/U}}
Next
Close #1
End Sub
填空题在用Open语句打开文件时，如果省略“For方式”则打开的文件的存在方式是{{U}} 【13】 {{/U}}。
填空题在窗体上画—个命令按钮，其名称为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 程序运行后，单击命令按钮，输出结果为 【15】 。
填空题以下程序段的输出结果是{{U}} 【11】 {{/U}}。
num=0
While num＜=2
num=num+1
Print num；
Wend
填空题在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。PrivateSubCheck1_Click()IfCheck1．Value=【7】ThenText1．FontUnderline=TrueElseText1．FontUnderline=FalseEndIfEndSubPrivateSubOption2_Click()Text1．【8】EndSub
填空题下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1．txt复制到 D盘，并取名为a2,txt。 Private Sub Form_Click() Dim Ch As String Open "c：/a1．txt" For 【13】 As #10 Open "d：/a2．txt" For Output As #r20 Do While 【14】 Line Input #10,Ch 【15】 Loop Close 10 Close 20 End Sub