vb程序設計期末考試題

⑴ 高分替兄弟求VB編程題

一、打開VBTEST子目錄下的窗體文件Form1.frm，修改其中的程序，使能輸出如下圖形：
*
* *
* * *
* * * *
* * * * *
* * * * * *
程序如下：
Private Sub Command1_Click()
For i=1 to ____
For j=1 to ____
Print_____
Next j
Print
Next i
End Sub

二、下列程序的功能是從鍵盤上任意輸入一個數，判斷這個數是正數、負數、還是零，
並輸出判斷結果。
程序中有三處錯誤，請打開VBTEST子目錄下的窗體文件Form2.frm，調試更正。
程序如下：
Private Sub Command1_Click()
Dim a As Single
Dim py As String
a=Val(Text1)
If a>0 Then py="正數"
If a=0 Then py="零"
If a<=0 Then py="負數"
Label3.Caption=a
End Sub

三、打開VBTEST子目錄下的窗體文件Form3.frm，修改程序，使能輸出：
1-2+3-4+5-6+...+99-100的值
程序如下：
Private Sub Command1_Click()
s=_____
For i=1 To _____
s=s+(-1)^(______)*i
Next i
Print s
End Sub

四、打開VBTEST子目錄下的窗體文件Form4.frm。已知一元二次方程的二次項系數、一次
項系數、常數項
分別為a、b、c，其中a不等於0。修改程序，求方程的根。
要求：如果方程無實數根，則輸出「無實數根」，否則輸出兩個實數根。
Private Sub Command1_Click()
Dim a,b,c,d As Single
Dim x1,x2 As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
d=b^2-4*a*c
If d________ Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Label1.Caption=x1
Label2.Caption=x2
_______
Label3.Caption=______
End If
End Sub

五、下面的程序是求當r=2,JI=3.14，x=-3，y=1.2時代數式r*r*JI+[(64-6y)+3x]/5的值
，程序中有三處錯誤，
請打開VBTEXT子目錄下的窗體文件Form5.frm，調試更正。
Private Sub Command1_Click()
Dim a As Single
r=2:pi=3.14:x=-3:y=1.2
a1=r*r*JI
a2=(64-6y)+3*x
a3=a2/5
Print a1+a2+a3
End Sub

六、下面的程序是求7!（7!=1*2*3...*6*7)的值，並在默認窗口輸出這個值。程序中有
三處錯誤，請打開
VBTEST子目錄下的窗體文件Form6.frm，調試更正。
Private Sub Command1_Click()
Dim a As Single
a=0
For i=1 to n
a=a*i
Next i
Print i
End Sub

七、下面的程序是求100以內奇數和s的值（S=1+3+5+7...+99）。程序中有三處錯誤，請
打開VBTEST子目錄下
的窗體文件Form7.frm，調試更正。
Private Sub Command1_Click()
Dim s As Single
Dim i As Single
s=1
For i=1 to 100 Step 1
s=s*i
Next i
Print s
End Sub

八、下面的程序是當輸入的考試成績不低於60分時輸出「及格」，否則輸出「不及格」
。程序中有二處錯誤，
請打開VBTEST子目錄下的窗體文件Form8.frm，調試更正。
Private Sub Command1_Click()
Dim cj As Integer
Dim py As String
cj=Val(Text1.Text)
If cj>60 Then
py="及格"
Else
py="不及格"
End If
label3.Caption=py
End Sub

九、打開VBTEST子目錄下的窗體文件Form9.frm，完善其中的程序，使能輸出如下圖形。
--* * * * * *
----* * * * * *
------* * * * * *
--------* * * * * *
----------* * * * * *
------------* * * * * *

---表示空格
程序如下：
Private Sub Command1_Click()
For i=1 To 6
Print Tab(______);
For j=1 To_______
Print_______
Next j
Print
Next i
End Sub

十、打開VBTEST子目錄下的窗體文件Form10.frm，修改下面的程序，使運行後輸出如下
結果：
張大富 男 39歲
Private Sub Command1_Click()
Dim xm,xb,nl As String
xm=張大富 xb="男":nl="39歲"
Print xm
Print xb
Print nl
Print "歲"
End Sub

十一、打開VBTEST子目錄下的窗體文件Form2.frm，完善已寫在「計算」按鈕的Click事
件下的程序代碼，
將代碼段中的「常量」、「變數1」、「變數2」處分別換成正確的常量值、變數名（其
他不動），使得當
滑鼠單擊命令按鈕「計算」時，窗體上顯示1+2+3+...+99+100的值。
命令代碼如下：
Private Sub Command1_Click()
s=常量
For i=1 To 100 Step 1
s=s+變數1
Next i
Print 變數2
End Sub

十二、打開VBTEST子目錄下的窗體文件Form3.frm，完善已寫在「計算」按鈕的Click事
件下的程序代碼，
將代碼段中的「常量」、「運算符」、「變數」處分別換成正確的常量值、運算符、變
量名，使得當
滑鼠單擊命令按鈕「計算」時，窗體上顯示10!(10!=1*2*3*...*10)的值。
命令代碼如下：
Private Sub Command1_Click()
s=常量
For i=1 To 10
s=s 運算符 i
Next i
Print 變數
End Sub

十三、打開VBTEST子目錄下的窗體文件Form4.frm，完善已寫在「執行」按鈕的Click事
件下的程序代碼，
將代碼段中的「常量」、「變數」、「表達式」處分別換成正確的常量值、變數名和具
體的表達式，
使得當滑鼠單擊命令按鈕「執行」時，顯示出滿足條件2+4+6+...+x<80中最大的x的
值。
命令代碼如下：
Private Sub Command1_Click()
s=0
x=0
Do
x=x+常量
s=s+變數
Loop Until s>=80
Print 表達式
End Sub

十四、打開VBTEST子目錄下的窗體文件Form5.frm，在窗體適當的位置建立一個Command
1按鈕，然後編寫代碼，
使得當滑鼠單擊命令按鈕Command1時，窗體上的標簽文字「Lable1」變為「江蘇省信息
技術等級考試」。

十五、打開VBTEST子目錄下的窗體文件Form10.frm，完善程序，將代碼中的「常量」、
「關系運算符」、
「語句」、「變數」處分別換成正確的常量值、關系運算符、語句、變數名，使當點擊
「輸出」按鈕時，
屏幕顯示程序運行結果為：20-10=10
程序代碼如下：
Private Sub Command1_Click()
a=10
b=常量
if a 關系運算符 b Then
Print a;"-";b;"=";a-b
語句
Print 變數;"-";a;"=";10
End If
End Sub

答案：
1、6 i "*";
2、Val(Text1)改為Val(Text1.Text) a < =0改為a < 0 Label3.Caption =
a改為Label3.Caption = py
3、0 100 i + 1
4、> 0 Else "無實數根"
5、JI改為pi 6y改為6 * y a1 + a2+ a3改為a1+a3
6、a = 0改為a = 1 n改為7 Print i改為Print a
7、s = 1改為s = 0 Step 1改為Step 2 s = s * i改為s = s + i
8、cj > 60改為cj >= 60 另一錯誤請同學們自己找
9、2 + i 6 "*";
10、
Private Sub Command1_Click()
Dim xm, xb, nl As String
xm = "張大富": xb = "男": nl = "39歲"
Print xm,
Print xb,
Print nl
End Sub
11、
Private Sub Command1_Click()
s = 0
For i = 1 To 100 Step 1
s = s + i
Next i
Print s
End Sub
12、
Private Sub Command1_Click()
s = 1
For i = 1 To 10
s = s * i
Next i
Print s
End Sub
13、
Private Sub Command1_Click()
s = 0
x = 0
Do
x = x + 2
s = s + x
Loop Until s >= 80
Print "x="; x - 2
End Sub
15、
Private Sub Command1_Click()
a = 10
b = 20
If a > b Then
Print a; "-"; b; "="; a - b
Else
Print b; "-"; a; "="; 10
End If
End Sub

一、選擇題
1、 某一VB工程含F1、F2兩個窗體，執行「F1．Show:F2．Hide」語句後，F1、F2窗體顯示的結果為（ ）。
A、都顯示 B、都不顯示 C、僅顯示F1窗體 D、僅顯示
F2窗體
2、 在VB中，執行「Text1．Text= 「0551-2649670」 「Tel=0551-2649670」這行語句時，「，」後面的部分為（ ）。
A、注釋部分，不是可執行代碼 B、注釋部分，但是可以執行代碼
C、程序代碼的一部分 D、程序代碼的另一種寫法
3、 VB的數據類型分為（ ）
A、 數值型、字元型、布爾型、日期型 B、數值型、字元型、對象型、日期型
C、基本類型、擴展類型 D、整型、實型、字元型、日期型、布爾型
4、VB中的變數如果沒有顯示聲明其數據類型，則默認為（ ）
A、日期型 B、數據型 C、字元型 D、變體型
5在VB中，通過改變表框（ ）屬性的值 ，可以為列表框添加項目。
A、List B、（名稱） C、Caption D 、Text
6、在VB中，執行「A=5：A=A+5」語句後，變數A的值為（ ）
A、0 B、5 C、10 D、不一定
7、VB中運算符被分為四類，分別是（ ）
A、算術運算符、連接運算符、關系運算符、邏輯運算符
B、算術運算符、比較運算符、關系運算符、邏輯運算符
C、算術運算符、連接運算符、布爾運算符、邏輯運算符
D、連接運算符、比較運算符、邏輯運算符、關系運算符
8、在VB中，執行「A=18MOD4」語句後，A的值為（ ）。
A、2 B、4 C、6 D、8
9、A為True,B為False, 則 「AandB」和 「AOrB」的值分別是（ ）。
A、True,True B、True False C 、False,True D 、False,False
10、在VB中，執行 「DimA,B As String」 語句後，A，B的數據結構為（ ）。
A、整型數 B、實型數 C、字元型 D、位元組型
11、在VB中，執行 「A=123：B=Str$(A)」語句後，B的數據結構為（ ）。
A、整型數、 B、位元組型 C、實型數 D、字元型
12、在VB中，復寫框（Check）的Value值有三種，分別是（ ）。
A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0
13、在VB中，如要創建「年級」和「班級」兩組單選按鈕，具體的做法是（ ）
A、先創建「單選按鈕」，然後用「框架」分別框住
B、先分別創建「單選按鈕」和「框架」，然後將「單選按鈕」拖到相應的框架中
C、先創建「框架」，然後在「框架」中創建「單選按鈕」
D、以上方法均可
14、數學關系3〈= x〈10表示成正確的VB表達式為（ ）
A、3〈=x〈10 B、3〈=xANDx〈10 C、x〉=3ORx〈10 D、3〈=xAND〈10
15、Int（198.555*100+0.5）/100的值為（ ）
A、198 B、199.6 C、198.56 D、200
16、下面正確的賦值語句是（ ）
A、x+y=30 B、y= *r*r C、y=x+30 D、3y=x
17、為了給三個變數賦初值1，下面正確的賦值語句是（ ）
A、x=1：y=1：z=1 B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1
18、分支結構的程序在進行判斷後可分別控製程序有（ ）個以上的走向。
A、1 B、2 C、3 D、8
19、語句If x=1 Then y=1,下列說法正確的是（ ）。
A、x=1和 y=1 均為賦值語句 B、x=1和 y=1均為關系表達式
C、x=1為關系表達式，y=1為賦值語句D、x=1為賦值語句，y=1為關系表達
20、可用於設置系統當前時間的語句是（ ）。
A、Date B、Date$ C、Time D、Timer
21、若要退出For循環，可使用的語句為（ ）。
A、Exit B、Exit Do C、Time D、Exit For
22、利用VB設計程序的基本步驟可分四步：
（1） 設計用戶界；（2）（ ）；（3）運行調試程序；（4）生成執行文件。
A、編寫代碼 B、設計演算法 C、信息反饋 D、系統集成
23、在代碼窗口內將表單Form1的「Caption」屬性設置為「時鍾」,正確的書寫形式是( )
A Form.C aption「時鍾」 B Form.Caption=「時鍾」
C Caption=「時鍾」 D Fopm.Caption( 「時鍾」)
24 下列操作不能打開代碼窗口的是( )
A選中對象,單擊滑鼠右鍵,在彈出的快捷菜單中選擇「查看代碼」命令
B 選中對象,雙擊滑鼠左鍵 C 按F7鍵 D按F4鍵
25 保存文件時,窗體的所有數據存儲格式為( )
A *．PRG B *．FRM C.*．VBP D *．EXE
26窗體初始化程序應寫在( )事件中.
A Load B Unload C Activate D GotFocus
27 在一個語句內寫多條語句時,每個語句之間分隔符號是( )
A ， B ： C 、 D ；
28 一句語句要在下一行繼續寫,所用的續行符號為( ).
A ＋ B － C ＼―― D．．．X
29 下面是合法的變數名為( )
A x＿yz B 123abc C integer D X-Y
30 下面是合法的字元串常數為( )
A ABC $ B 「ABC」 C 『ABC' D ABC
二 判斷題
1、 VB 中的控制項都是用來設計用戶界面的。（ ）
2、在VB程序時,選中Form (窗體)上的某個控制項,如果控制項周圍出現8個白色小方塊,則表示該控制項未被鎖定。（ ）
4、 設計VB程序時，選中窗體上的「Text1」文本框控制項，將其「BackColor」屬性值設置為淡綠色，將「ForeColor」屬性值設置為紅色，則「Text1」文字為紅色。（ ）
5、 在VB中，「方法」是指在對象上起作用的過程，也就是說用來控制對象的功能及操作的內部程序。（ ）
6、 在編寫VB程序代碼時，對象屬性的表示方法為：方法名.對象名稱。（ ）
7、 Click事件，就是滑鼠單擊事件。（ ）
8、 在程序執行的過程中，變數的值始終保持不變，常量的值隨時改變。（ ）
程序代碼的基本結構有三種，分別是順序結構、選擇結構（分支結構）、循環結構。（ ）
9、 在VB中，有一名稱為LIST1的列表框，那麽執行「LIST1.ADDITEM「方周工作室」」語句後，即在LIST1列表框中添加「方周工作室」這個項目。（ ）
10、 在VB中，運算級從高到底的順序是：算數運算、連接運算、關系運算、邏輯運算。（ ）

一、 選擇題（（1）~（20）每小題2分，（21）~（30）每小題3分，共70分）

下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的。請將正確選項填塗在答題卡相應位置上，答在試卷上不得分。

（1）以下敘述中錯誤的是

A）Visual Basic 是事件驅動型可視化編程工具
B）Visual Basic應用程序不具有明顯的開始和結束語句
C）Visual Basic工具箱中的所有控制項都具有寬度（Width）和高度（Height）屬性
D）Visual Basic中控制項的某些屬性只能在運行時設置

（2）以下敘述中錯誤的是

A）在工程資源管理器窗口中只能包含一個工程文件及屬於該工程的其他文件
B）以.BAS為擴展名的文件是標准模塊文件
C）窗體文件包含該窗體及其控制項的屬性
D）一個工程中可以含有多個標准模塊文件

（3）以下敘述中錯誤的是

A）雙擊滑鼠可以觸發DblClick事件
B）窗體或控制項的事件的名稱可以由編程人員確定
C）移動滑鼠時，會觸發MouseMove事件
D）控制項的名稱可以由編程人員設定

（4）以下不屬於Visual Basic系統的文件類型是

A）.frm B）.bat C）.vbg D）.vbp

（5）以下敘述中錯誤的是

A）打開一個工程文件時，系統自動裝入與該工程有關的窗體、標准模塊等文件
B）保存Visual Basic程序時，應分別保存窗體文件及工程文件
C）Visual Basic應用程序只能以解釋方式執行
D）事件可以由用戶引發，也可以由系統引發

（6）以下能正確定義數據類型TelBook的代碼是

A）Type TelBook
B）Type TelBook
Name As String*10 Name As String*10
TelNum As Integer TelNum As Integer
End Type End TelBook

C）Type TelBook
D）Typedef TelBook
Name String*10 Name String*10
TelNum Integer TelNum Integer
End Type TelBook End Type

（7）以下聲明語句中錯誤的是

A）Const var1=123 B）Dim var2 = 'ABC' C）DefInt a-z D）Static var3 As Integer

（8）設窗體上有一個列表框控制項List1，且其中含有若干列表項。則以下能表示當前被選中的列表項內容的是

A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text

（9）程序運行後，在窗體上單擊滑鼠，此時窗體不會接收到的事件是

A）MouseDown B）MouseUp C）Load D）Click

（10）設a=10，b=5，c=1，執行語句Print a > b > c後，窗體上顯示的是

A）True B）False C）1 D）出錯信息

（11）如果要改變窗體的標題，則需要設置的屬性是

A）Caption B）Name C）BackColor D）BorderStyle

（12）以下能判斷是否到達文件尾的函數是

A）BOF B）LOC C）LOF D）EOF

（13）如果一個工程含有多個窗體及標准模塊，則以下敘述中錯誤的是

A）如果工程中含有Sub Main過程，則程序一定首先執行該過程
B）不能把標准模塊設置為啟動模塊
C）用Hide方法只是隱藏一個窗體，不能從內存中清除該窗體
D）任何時刻最多隻有一個窗體是活動窗體

（14）窗體的MouseDown事件過程
Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
有4個參數，關於這些參數，正確的描述是

A）通過Button參數判定當前按下的是哪一個滑鼠鍵
B）Shift參數只能用來確定是否按下Shift鍵
C）Shift參數只能用來確定是否按下Alt和Ctrl鍵
D）參數x,y用來設置滑鼠當前位置的坐標

（15）設組合框Combo1中有3個項目，則以下能刪除最後一項的語句是

A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.Listcount

（16）以下關於焦點的敘述中，錯誤的是

A）如果文本框的TabStop屬性為False，則不能接收從鍵盤上輸入的數據
B）當文本框失去焦點時，觸發LostFocus事件
C）當文本框的Enabled屬性為False時，其Tab順序不起作用
D）可以用TabIndex屬性改變Tab順序

（17）如果要在菜單中添加一個分隔線，則應將其Caption屬性設置為

A）= B）* C）& D）-

（18）執行語句Open "Tel.dat" For Random As #1 Len = 50後，對文件Tel.dat中的數據能夠執行的操作是

A）只能寫，不能讀 B）只能讀，不能寫 C）既可以讀，也可以寫 D）不能讀，不能寫

（19）在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然後編寫如下事件過程：

Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub

程序運行後，如果在文本框Text1中輸入10，然後單擊命令按鈕，則在Text2中顯示的內容是

A）10 B）20 C）30 D）40

（20）設有以下循環結構
Do
循環體
Loop While <條件>
則以下敘述中錯誤的是

A）若"條件"是一個為0的常數，則一次也不執行循環體
B）"條件"可以是關系表達式、邏輯表達式或常數
C）循環體中可以使用Exit Do語句
D）如果"條件"總是為True，則不停地執行循環體

（21）在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub

程序運行後，單擊命令按鈕，則窗體上顯示的內容是

A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）無數據輸出

（22）在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s; a
End Sub

程序運行後，單擊命令按鈕，則窗體上顯示的內容是

A） 7 9 B） 34 0 C） 9 7 D）死循環

（23）設有如下通用過程：

Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function

在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x; y
End Sub

程序運行後，如果單擊命令按鈕，則在窗體上顯示的內容是

A）10 5 B）20 5 C）20 40 D）10 40

（24）設有如下通用過程：

Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub

在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然後編寫如下的事件過程：

Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub

程序運行後，單擊命令按鈕，則在文本框中顯示的內容是

A）10 B）15 C）25 D）24

（25）在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下代碼：

Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub

程序運行後，如果單擊命令按鈕，則在窗體上輸出的內容為

A）89 B）99 C）23 D）77

（26）在窗體上畫兩個滾動條，名稱分別為Hscroll1 、Hscroll2；六個標簽，名稱分別為Label1、Label2、Label3、Label4、Label5、Label6，其中標簽Label 4~ Label6分別顯示"A"、"B"、"A*B"等文字信息，標簽Label1、Label2分別顯示其右側的滾動條的數值，Label3 顯示A*B的計算結果。如圖所示。當移動滾動框時，在相應的標簽中顯示滾動條的值。當單擊命令按鈕"計算"時，對標簽Label1、Label2中顯示的兩個值求積，並將結果顯示在Label3中。以下不能實現上述功能的事件過程是

A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D）Private Sub Command1_Click()
Label3.Caption = HScroll1. Text * HScroll2.Text
End Sub

（27）在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n \ 3
Next n
Print n
End Sub

程序運行後，如果單擊命令按鈕，則窗體上顯示的內容是

A）15 B）18 C）21 D）24

（28）在窗體上畫一個名稱為Text1的文本框，並編寫如下程序：

Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "程序設計"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub

程序運行後，如果按"A"鍵，然後單擊窗體，則在窗體上顯示的內容是

A）Visual Basic B）程序設計 C）A程序設計 D）Visual Basic程序設計

（29）設有如下程序：

Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub

該程序通過For循環計算一個表達式的值，這個表達式是

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

（30）以下有關數組定義的語句序列中，錯誤的是

A） Static arr1(3) B）Dim arr2() As Integer
arr1(1) = 100 Dim size As Integer
arr1(2) = "Hello" Private Sub Command2_Click()
arr1(3) = 123.45 size = InputBox("輸入：")
ReDim arr2(size)
．．．．．．
End Sub
C）Option Base 1 D）Dim n As Integer
Private Sub Command3_Click() Private Sub Command4_Click()
Dim arr3(3) As Integer Dim arr4(n) As Integer
．．．．．． ．．．．．．
End Sub End Sub

⑵ vb程序設計實例100

試題一.1

Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和與倒數
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
試題一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Print
Next i
End Sub
待續，未完...

⑶ vb 程序設計題 1.生成一個由1到9之間的隨機數構成的n階矩陣，輸出該矩陣及其轉置矩陣。求大佬幫忙QAQ

第1題

DimMatrix()AsInteger,OrderAsInteger
PrivateSubCommand1_Click()
Cls
Randomize
Order=InputBox("請輸入要生成方陣的階數N：","隨機生成N階矩陣",10)
ReDimMatrix(Order-1,Order-1)
Print"原矩陣："
Fori=LBound(Matrix,1)ToUBound(Matrix,1)
Forj=LBound(Matrix,2)ToUBound(Matrix,2)
Matrix(i,j)=Int(Rnd*9+1)
PrintMatrix(i,j);
Nextj
Print
Nexti
EndSub

PrivateSubCommand2_Click()
Print
Print"轉置矩陣："
Fori=LBound(Matrix,1)ToUBound(Matrix,1)
Forj=LBound(Matrix,2)ToUBound(Matrix,2)
PrintMatrix(j,i);
Nextj
Print
Nexti
EndSub

PrivateSubCommand3_Click()
DimTransposition()AsInteger
Print
ReDimTransposition(Order-1,Order-1)
Fori=LBound(Matrix,1)ToUBound(Matrix,1)
Forj=LBound(Matrix,2)ToUBound(Matrix,2)
Transposition(j,i)=Matrix(i,j)
Nextj
Nexti
Print"轉置矩陣："
Fori=LBound(Matrix,1)ToUBound(Matrix,1)
Forj=LBound(Matrix,2)ToUBound(Matrix,2)
PrintTransposition(i,j);
Nextj
Print
Nexti
EndSub