四、讀程序題

　　1、對窗體編寫如下代碼：

　　Option Base 1

　　Private Sub Form_KeyPress(KeyAscii As Integer)

　　a = Array(237,126,87,48,498)

　　m1 = a(1)

　　m2 = 1

　　If KeyAscii = 13 Then

　　For i =2 To 5

　　If a(i)>ml Then

　　m1 =a(j)

　　m2 =i

　　End If

　　Next i

　　End If

　　Print m1

　　Print m2

　　End Sub

　　程序運行后，按回車鍵，輸出結(jié)果是什么?

　　2、閱讀下面的程序，寫出執(zhí)行結(jié)果。

　　Private Sub Form_load()

　　Form1.show

　　d = 0

　　For a = 1 To 2

　　For b = 1 To a

　　For c = b To 5

　　d = d + 1

　　Next c

　　Next b

　　Next a

　　Print d

　　End Sub

　　五、編程題

　　1、在窗體上有一個文本框控件，名稱為TxtTime;一個計時器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當前的時間，請編程實現(xiàn)。

　　2、在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。

　　3、編寫一個程序，能夠?qū)崿F(xiàn)任意個整數(shù)的排序。

　　4、編程實現(xiàn)以下功能：用戶首先分別在兩個文本框中輸入兩個數(shù)，然后在具有“加、減、乘、除”等四個菜單項的“計算”菜單中單擊某一項，即可在標簽中顯示出相應(yīng)的結(jié)果或者錯誤提示。

　　5、編程實現(xiàn)任意兩個數(shù)的“加、減、乘、除”。

　　6、編寫一個程序，能夠求任意個正整數(shù)的最大值和最小值。

　　7、編程求任意兩個正整數(shù)的最大公約數(shù)。

　　　　　　　2011年計算機等級考試二級VB基礎(chǔ)教程匯總

　　　　　　　2011計算機等級考試二級VB綜合練習(xí)題匯總