2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB綜合練習(xí)題(4)

　　六、程序分析填空題

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

　　程序運(yùn)行界面：

　　Private Sub btnCut_Click()

　　‘請(qǐng)補(bǔ)充

　　End Sub

　　2、計(jì)算1 + 2 + 3 + …… + 100的和并輸出。請(qǐng)把下面用Do While ……Loop循環(huán)結(jié)構(gòu)實(shí)現(xiàn)這一功能的代碼補(bǔ)充完整。

　　Private Sub Form_Load()

　　Dim sum,count as Integer

　　‘請(qǐng)補(bǔ)充

　　Do while count <=100

　　‘請(qǐng)補(bǔ)充

　　Loop

　　Text1.Text = sum

　　End Sub

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

　　請(qǐng)把下列代碼補(bǔ)充完整，能夠取得用戶的所選愛好選項(xiàng)：

　　Private Sub Command1_Click()

　　Dim i As Integer

　　Dim s As String

　　s = txtname.Text & "愛好"

　　For i = 0 To List1.ListCount - 1

　　‘請(qǐng)補(bǔ)充

　　Next

　　Label3.Caption = s

　　End Sub

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

　　Private Sub Form_Load()

　　Show

　　‘請(qǐng)補(bǔ)充

　　End Sub

　　Private Sub Timer1_Timer()

　　‘請(qǐng)補(bǔ)充

　　End Sub

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

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