六、程序分析填空題

　　1、建立一個如圖所示的簡單編輯器。用戶在文本框(text1)中輸入正文后，選中某些文本時可進行“剪切”、“復制”和“粘貼”操作。假設在窗體聲明部分定義了一個變量str1，用于保存復制和剪切的內(nèi)容，請把剪切按鈕(btnCut)的Click事件補充完整。

　　程序運行界面：

　　Private Sub btnCut_Click()

　　‘請補充

　　End Sub

　　2、計算1 + 2 + 3 + …… + 100的和并輸出。請把下面用Do While ……Loop循環(huán)結構實現(xiàn)這一功能的代碼補充完整。

　　Private Sub Form_Load()

　　Dim sum,count as Integer

　　‘請補充

　　Do while count <=100

　　‘請補充

　　Loop

　　Text1.Text = sum

　　End Sub

　　3、列表框控件(ListBox)支持多項選擇，這項功能在對用戶的興趣愛好進行調(diào)查的時候顯得非常好用，在下圖所示的界面中列表框List1用于列出愛好選項，供用戶進行多項選擇。

　　請把下列代碼補充完整，能夠取得用戶的所選愛好選項：

　　Private Sub Command1_Click()

　　Dim i As Integer

　　Dim s As String

　　s = txtname.Text & "愛好"

　　For i = 0 To List1.ListCount - 1

　　‘請補充

　　Next

　　Label3.Caption = s

　　End Sub

　　4、要求利用計時器Timer1，在窗體Form1上每隔1秒鐘打印一個1到10的隨機整數(shù)，請把下列代碼補充完整：

　　Private Sub Form_Load()

　　Show

　　‘請補充

　　End Sub

　　Private Sub Timer1_Timer()

　　‘請補充

　　End Sub

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

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