1. 窗体上有一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。 命令按钮的单击事件过程如下： Private Sub Command1_Click() CD1. showOpen Open CD1. FileName For Input As#1 MsgBox CD1. FileName Line Input#1, s Text1. Text=s Close#1 End Sub 单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中，以下叙述中正确的是______。
[解析] 打开文件语句——Open语句的格式为：Open文件名[For模式][Access存取类型][锁定]As[#]文件号[Len=记录长度]。其中，模式(Mode)参数用以说明访问文件的格式。可以是：Output——设定为顺序输出模式。Input——设定为顺序输入模式。Append——设定为添加模式。Random——设定为随机访问模式。因此打开随机文件的一般格式为：Open“文件名称”For Random As#文件号[Len=记录长度]，且记录长度不可少。
3. 设有如下程序段： x=2 For i=1 to 10 Step 2 x=x+i Next 运行以上程序后，X的值是______。
5. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Function Fun(x) y=0 If x＜10 Then y=x Else y=y+10 End If Fun=y End Function Private Sub Command1_Click() n=InputBox("请输入一个数"):n=Val(n) P=Fun(n):Print P End Sub 运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100，并单击“确定”按钮，则输出结果为
11. 在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text 1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是
14. 有如下程序： Private Sub Form_Click() Dim s As Integer, p As Integer p=1 For i=1 To 4 For j=1 To i s=s±j Next j p=p*s Next i Print p End Sub 程序运行后，单击窗体，则输出结果是
21. 在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$，8) c$=Mid(a$，1，8) MsgBox a$，b$，c$，1 End Sub 则在弹出的信息框标题栏中显示的标题是
28. 设窗体上有2个文本框Text1和Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"＜=Chr(KeyAscii)And Chr(KeyAscii)＜="Z" Then n=n+1 End If If KeyAscii=13 Then Text2.Text=n End If End Sub 程序运行时，在文本框Text1中输入“Visual Basic 6.0”并按同车键后，在文本框Text2中显示的是______。
33. 在窗体上画一个文本框，其名称为Text1，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10) As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是
36. 在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为______。
37. 有如下的一个函数过程： Function fn(ByVal num As Long) Dim k As Long k=1:num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fn=k End Function 通过以下事件过程调用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为______。 Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox("请输入一个数值") n=CLng(n):r=fn(n) Print r End Sub
38. 下列程序的运行结果是______。 Private Function myfun(m,n) Do While m＞n Do While m＞n: m=m-n: Loop Do While n＞m: n=n-m: Loop Loop myfun=m End Function Private Sub Command1_Click() print myfun(9, 8) End Sub
39. 窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程： Private Sub Text1_Change(Index As Integer) Select Case Index Case 0 Text1(1).FontSize=Text1(0).FontSize*2 Text1(1).Text=Text1(0).Text Case 1 Text1(0).FontSize=Text1(1).FontSize/2 Text1(0).Text=Text1(1).Text Case Else MsgBox"执行Else分支" End Select End Sub 关于上述程序，以下叙述中错误的是______。
深色：已答题 浅色：未答题