(7)在菜單編輯器中建立一個菜單，其主菜單項的名稱為nmuEdit，Visible屬性為False。 程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit對應(yīng)的菜單。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?BR> Private Sub Form_ 【7】 (Button As Integer,Shift As Integer,X As Single,Y As
Single)
If Button=2 Then
【8】 mnuEdit
End If
End Sub
答案：【7】MouseDown
【8】PopupMenu
評析：PopupMenu方法的使用形式如下：[對象]．PopupMenu菜單名，標(biāo)志，x，y。其中：x，y：是快捷菜單顯示的位置。標(biāo)志：指定快捷菜單的行為。當(dāng)標(biāo)志為0時，快捷菜單中的項只能對鼠標(biāo)左鍵起反應(yīng)。當(dāng)標(biāo)志為1時，快捷菜單中的項對鼠標(biāo)左鍵和右鍵都反應(yīng)。標(biāo)志為2時，PopupMenu方法只能用在MouseDown事件過程。
(8)與數(shù)學(xué)表達(dá)式COS2(a+b)／3x+5對應(yīng)的Visual Basic表達(dá)式是 【9】 。
答案：【9】(cos(a+b))^2／(3*x)+5
評析：在Visual Basic中，^表示指數(shù)運(yùn)算，+表示乘法，／表示除法。乘法運(yùn)算符不能象數(shù)學(xué)表達(dá)式那樣省略。
(9)在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1。程序運(yùn)行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。請?zhí)羁铡?BR> Private Sub Option1_Click(Index As Integer)
Select Case 【10】
Case 0
a="微軟雅黑"
Case l
a="黑體"
Case 2
a="楷體GB2312"
End Select
Textl． 【11】 =a
End Sub
答案：【10】Index
【11】Font
評析：本題中Optionl為控件數(shù)組名稱，故Optionl_Click事件過程中的參數(shù)Index代表被單擊的控件在數(shù)組中的下標(biāo)值；TextBox控件Textl的Font屬性用于設(shè)置文本框中顯示的文字的字體名稱。
(10)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
n=5
f=1
s=0
For i=l TO n
f= 【12】
s=s+f
Next
Print s
End Sub
該事件過程的功能是寸算s=l+1/2!1/3!+．．．+1/n!去的值。請?zhí)羁铡?BR> 答案：【12】f／i
評析：本題程序的功能是求和S=1+1/2!+1/3!+…+1/n!，而代碼中有語句s=s+f。故變量f中存儲的應(yīng)為1/n!(n=1..2…5)。即f=f*(1／i)。
Single)
If Button=2 Then
【8】 mnuEdit
End If
End Sub
答案：【7】MouseDown
【8】PopupMenu
評析：PopupMenu方法的使用形式如下：[對象]．PopupMenu菜單名，標(biāo)志，x，y。其中：x，y：是快捷菜單顯示的位置。標(biāo)志：指定快捷菜單的行為。當(dāng)標(biāo)志為0時，快捷菜單中的項只能對鼠標(biāo)左鍵起反應(yīng)。當(dāng)標(biāo)志為1時，快捷菜單中的項對鼠標(biāo)左鍵和右鍵都反應(yīng)。標(biāo)志為2時，PopupMenu方法只能用在MouseDown事件過程。
(8)與數(shù)學(xué)表達(dá)式COS2(a+b)／3x+5對應(yīng)的Visual Basic表達(dá)式是 【9】 。
答案：【9】(cos(a+b))^2／(3*x)+5
評析：在Visual Basic中，^表示指數(shù)運(yùn)算，+表示乘法，／表示除法。乘法運(yùn)算符不能象數(shù)學(xué)表達(dá)式那樣省略。
(9)在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1。程序運(yùn)行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。請?zhí)羁铡?BR> Private Sub Option1_Click(Index As Integer)
Select Case 【10】
Case 0
a="微軟雅黑"
Case l
a="黑體"
Case 2
a="楷體GB2312"
End Select
Textl． 【11】 =a
End Sub
答案：【10】Index
【11】Font
評析：本題中Optionl為控件數(shù)組名稱，故Optionl_Click事件過程中的參數(shù)Index代表被單擊的控件在數(shù)組中的下標(biāo)值；TextBox控件Textl的Font屬性用于設(shè)置文本框中顯示的文字的字體名稱。
(10)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
n=5
f=1
s=0
For i=l TO n
f= 【12】
s=s+f
Next
Print s
End Sub
該事件過程的功能是寸算s=l+1/2!1/3!+．．．+1/n!去的值。請?zhí)羁铡?BR> 答案：【12】f／i
評析：本題程序的功能是求和S=1+1/2!+1/3!+…+1/n!，而代碼中有語句s=s+f。故變量f中存儲的應(yīng)為1/n!(n=1..2…5)。即f=f*(1／i)。