Main: 2 6 4 Main: 1 6 4 Main: 1 2 3 Main: 2 2 3
? 以下语句用于打开一个顺序文件Open\但是该语句的一个重要错误是没有
___(28)_____。
(A) 指定打开方式 (B) 指定文件号 (C) 指定打开文件名 (D) 指定文件类型
? 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、
标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500。编写如下程序： Private Sub Form_Load() Timer1.Enabled=False End Sub
Private Sub Command1_Click() Timer1.Enabled=True End Sub
Private Sub Timer1_Timer() If Label1.Left Label1.Left=0 End If End Sub 程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是___(29)___ (A) 标签的移动方向为自右向左 (B)单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动 (C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动 (D)标签按指定的时间时隔移动 ? 设有如下程序，通过For循环计算一个表达式的值，这个表达式是___(30)____： Private Sub Command1_Click() Dim sum As Double, x As Double 6 sum = 0: n = 0 For i = 1 To 5 x = n / i: n = n + 1: sum = sum + x Next End Sub (A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4 (C)1/2+2/3+3/4+4/5 (D)1+1/2+1/3+1/4+1/5 二、填空题 ? Visual Basic中有三种类型的模块文件，即类模块、标准模块和___[1]___模块。 ? 将数学式y3?3写成VB表达式，应该是___[2]____。 |ab|? 赋值语句：a=123 + MID(\执行后，a变量中的值__[3]____ 。 ? Visual Basic提供的对数据文件的三种访问方式为顺序访问方式、___[4]____ 和二进制访问方式。 ? 执行下列语句序列，显示的结果是___[5]___。 a = 2: b = 3: c = 4: d = 5 Print 3 > 2 * b Or a = c And b <> c Or c > d ? 运行下列程序，单击命令按钮，则Text1中显示___[6]___，窗体中显示___[7]___。Private Sub Command1_Click() Dim i As Integer, j As Integer, a(5, 4) As Integer For i = 2 To 3 For j = 2 To 4 a(i, j) = i + j Next j Next i 7 Text1.Text = a(3, 2) Print a(3, 1) End Sub ? 如下图，窗体上有两个命令按扭C1, C2及一个文本框Text1，当按下C1时，将C2的标题与Text1中的内容交换。 C1 C2 Private Sub C1_Click() Dim a As String Form1.Caption = \交换后\a = ___[8]____ Text1.Text = ___[9]____ C2.Caption = a End Sub ? 请完善以下判断完数的程序。一个数如果恰好等于它的因之和，这个数 被称为“完数”。一个数的因子是指除了该数本身以外能够被其整除的数。如6是一个完数，因为6=1+2+3。 Private Sub CmdJudge_Click() Dim a() m = Val(Text1.Text) ReDim a(1) If ___[13]____ Then Picture1.Print m & \是完数\a(1) = 1 Picture1.Print m; \ For i = 1 To UBound(a) - 1 Picture1.Print a(i); \ Next i 就例 8 k = ___[10]___ j = 1 For i = 2 To m - 1 If m Mod i = 0 Then k = k + i ' 因数和 j = j + 1 ' 因数个数 ReDim ___[11]___ a(j) a(j) = ___[12]____ End If Next I(转右) ? 编写程序。在窗体上显示如下图所示的“九九加法表”。 ___[15]___ Explicit Private Sub Form_Click() Dim i%, j% Print \ For i = 1 To ___[16]____ Print i; For j = 1 To ___[17]____ If i + j < 10 ___[18]__ Print \ Print _[19]__; Next j ___[20]____ Next i End Sub ? 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序, 通过调用过程Swap，调换数组中数值的存放 9 位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，??，a(5)与a(6)的值互换。请填空 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call Swap(___[21]___) For i = 1 To 10 Print a(i); Next End Sub ? 设当前文件夹已有文件t1.txt和t2.txt，其中各有若干文字。现要将t2.txt的内容合并到t1.txt 中。例如 t1.txt原来内容为\原来内容为\，合并后t1.txt的内容将成为“ABCD1234” Private Sub Command1_Click() Open \ Open \ Do While Not EOF(2) Line Input #2, s ____[25]____ Loop Close End Sub Sub Swap(b() As Integer) n = ___[22]___ For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t ___[23]___ Next End Sub 三、编程题 1． 编写一个自定义函数Gcd(m,n),实现求m和n两个正整数的最大公约数。 10