VB_填空练习答案(3)

'-------------------------------------------------------

'功能： 本程序实现功能：将顺序文本文件 “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

\

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB_填空练习答案(3)在线全文阅读。