'-------------------------------------------------------
'功能： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的 ' 内容一个字符一个字符地读入文本框txtTest中 '------------------------------------------------------- Private Sub Form_Click()
Dim InputData As String * 1 txtTest.Text = \
'**********SPACE**********
Open App.Path & \【?】 As #1 '**********SPACE**********
Do While 【?】 EOF(1) ' Input #1, InputData
'**********SPACE********** txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub
(答案) Input Not InputData
七.杂项
'------------------------------------------------------- '功能：程序输出结果为：n=3 x=42 y=9 '------------------------------------------------------- Private Sub Command1_Click() Dim n, x, y As Integer
'**********SPACE********** n = 0: x =【?】: y = 0 Do While x < 20
'**********SPACE********** n = n 【?】 y = x + y
x = x * (x + 1)
'**********SPACE********** 【?】
Form1.Print \ Form1.Print \ Form1.Print \End Sub
(答案) 1 + 1 Loop
'------------------------------------------------------- '功能：利用下面的过程求m!和m*n
'------------------------------------------------------- Private Sub Form_Click()
Dim m As Integer, n As Integer
Do While Not 【?】 m = 2 n = 3
'**********SPACE********** 【?】 End Sub
Private Sub find(x As Integer, y As Integer) Dim s, i As Integer
'**********SPACE********** 【?】
For i = 1 To x s = s * i
'**********SPACE********** p=【?】 Next i Print s, p End Sub
(答案3) call find(m,n) s = 1 p + y
'-------------------------------------------------------
'功能：以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列互换 '------------------------------------------------------- Private Sub Form_Click()
Const n = 3 Const m = 4
Dim a(n, m), b(m, m) As Integer For I = 1 To n For j = 1 To m
a(I, j) = Int(Rnd * 90) + 10 Next j
'**********SPACE********** 【?】
For I = 1 To n For j = 1 To m
'**********SPACE********** 【?】 Next j Next I
Print \矩阵转置前\For I = 1 To n For j = 1 To m Print a(I, j); Next j
'**********SPACE********** 【?】 Next I
Print \矩阵转置后\For I = 1 To m For j = 1 To n
Print b(I, j); Next j Print Next I End Sub
(答案) Next I b(j, i) = a(i, j) Print
'功能：下面的程序段用于打印出以下图形 '
' * ' *** ' ***** ' ******* ' ***** ' *** ' *
''------------------------------------------------------- Private Sub Form_Click() Dim i%, j%, k%
For i = 3 To 0 Step -1 For j = 0 To 2 * i Print \ Next j
'**********SPACE********** For k = 5 To 【?】 Print \ Next k Print Next i
For i = 0 To 3
For j = 0 To 2 * i + 2
'**********SPACE********** 【?】 Next j
For k = 0 To 4 - 2 * i Print \ Next k
'**********SPACE********** 【?】 Next i End Sub
(答案) 2 * i - 1 Step -1 Print \
'------------------------------------------------------- '功能：单击窗体打印内容如图
'------------------------------------------------------- Private Sub Form_Click()
Dim i As Integer, j As Integer
Print Dim star As String
'**********SPACE********** 【?】 = \ For i = 0 To 6
'**********SPACE********** For j = 【?】 To 6
'**********SPACE********** Form1.Print star【?】 Next j
Form1.Print Next i End Sub
(答案) Star 6 – I ;
'功能：求X的N次方，x和n均用输入对话框输入 '------------------------------------------------------- Private Sub Form_Load()
Dim x As Single, n As Integer, y As Double x = InputBox(\求X的n次方\ n = InputBox(\求X的n次方\ '**********SPACE********** y = Power(【?】) Show
Print x; \的\次方=\End Sub
Function Power(x As Single, n As Integer) As Double If n > 1 Then
'**********SPACE********** Power = Power(x,【?】) * x Else
'**********SPACE********** Power = 【?】 End If End Function
(答案) x, n n – 1 x
'-------------------------------------------------------
'题目(题号:535)：有12个文本框代表12个位置。
程序为A-J 10个字母分配十个位置，并显示座位分配。 '------------------------------------------------------- Option Explicit
Private Sub Form_Load() Dim k, h, p As Integer Dim t(12) As String Randomize
'**********SPACE********** For k = 1 To 【?】
t(k) = \ Next k
'**********SPACE********** For 【?】 = 65 To 74 Do While True
p = Int(1 + 12 * Rnd)
'**********SPACE********** If t(p) = 【?】 Then t(p) = Chr(h) Exit Do End If Loop Next h
For k = 1 To 12
Text1(k - 1).Text = t(k) Next k End Sub
(答案) 12 H
\