【正文】 2）設(shè)置適當(dāng)?shù)膶傩?，使Form2標(biāo)題欄上的所有按鈕消失（如圖2所示）； 3）去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。單擊‘確認(rèn)’按鈕則程序結(jié)束，單擊‘重輸’按鈕，則對話框消失，回到Form1窗體。兩個(gè)窗體上的控件如圖1所示。注意：存盤時(shí)必須存放在考生文件夾下。第02套 簡單應(yīng)用題（新模8）（1）在名稱為Form1的窗體上畫一個(gè)名稱為Text1的文本框，再建立一個(gè)名稱為Format的彈出式菜單，含三個(gè)菜單項(xiàng)，標(biāo)題分別為‘加粗’、‘斜體’、‘下劃線’，名稱分別為MMM3。要求程序中不得使用變量，事件過程中只能寫一條語句。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，每單擊命令按鈕一次（假定單擊次數(shù)少于10次），滾動(dòng)框向右移動(dòng)10個(gè)刻度。注意：存盤時(shí)必須存放在考生文件夾下。 ElseIf Trim$(Text2) users( ? ) Then ***** n,2 ***** MsgBox (口令錯(cuò)誤！) Else = 登錄成功！ End IfEnd Sub第02套 基本操作題（1）在名稱為Form1標(biāo)題為“選題”的窗體上畫一個(gè)復(fù)選框數(shù)組，名稱為CH1，共有四個(gè)復(fù)選框，按順序其標(biāo)題分別是“數(shù)學(xué)”、“語文”、“外語”、“計(jì)算機(jī)”，其中“語文”、“計(jì)算機(jī)”復(fù)選框在選中狀態(tài)下，運(yùn)行時(shí)的窗體如圖所示。 ? = 注冊成功！ ***** ***** End IfEnd Sub―――――――――Form3―――――――――――――――――――――――――Private Sub Command1_Click() k = finduser(Trim$(Text1))39。 n = n + ? ***** 1 ***** users(n, 1) = Text1 users(n, 2) = Text2End SubPrivate Sub Command2_Click() If Text1 = Then MsgBox (必須輸入用戶名！) 39。已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把FormForm3窗體文件中的？改為正確的內(nèi)容。登錄時(shí)，檢驗(yàn)用戶名和口令，若正確，則在‘啟動(dòng)’窗體的標(biāo)簽上顯示‘登錄成功’，否則顯示相應(yīng)錯(cuò)誤信息。注冊信息放在全局?jǐn)?shù)組users中，注冊用戶數(shù)（最多10個(gè)）放在全局變量n中（均已在標(biāo)準(zhǔn)模塊中定義）。 f = ? ***** s *****End FunctionPrivate Sub Command3_Click() Open amp?？忌鷳?yīng)編寫的程序*****S=1For k=2 to nS=s+f(k)Next k=s*****End Sub*****Function f(n As Integer) As Long39。Dim n As IntegerPrivate Sub Command1_Click() n = Val(InputBox(請輸入整數(shù)（812）, 輸入))39。注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，在結(jié)束程序運(yùn)行之前，必須用“存盤”按鈕存儲(chǔ)計(jì)算結(jié)果，否則無成績。其功能是單擊“輸入數(shù)據(jù)”按鈕，則可輸入一個(gè)整數(shù)n（要求：8=n=12）；單擊“計(jì)算”按鈕，則計(jì)算1!+2!+3!+…….+n!，并將計(jì)算結(jié)果顯示在文本框中；單擊“存盤”按鈕。 = y0 ? ***** radius ***** End If = Else39。 = ? ***** Y ***** Else39。 = 1100, radiusamp。Const y0amp。注意：不能修改程序中的其他部分和各控件的屬性。程序中的oncircle函數(shù)的作用是判斷鼠標(biāo)單擊的位置是否在圓的邊線上（判斷結(jié)果略有誤差），是則返回True，否則返回False。在運(yùn)行時(shí)，若用鼠標(biāo)左鍵單擊圓的邊線，則指針指向鼠標(biāo)單擊的位置（如圖2所示）；若用鼠標(biāo)右鍵單擊圓的邊線，則指針恢復(fù)到起始位置（如圖1所示）；若鼠標(biāo)左鍵或右鍵單擊其他位置，則在標(biāo)簽上顯示“鼠標(biāo)位置不對”。第01套 簡單應(yīng)用題（新模14）（1）。注意：要求程序中不能使用變量，每個(gè)事件過程中只能寫一條語句。（2）在名稱為Form1的窗體上畫一個(gè)名稱為Command標(biāo)題為“保存文件”的命令按鈕，再畫一個(gè)名稱為CommonDialog1的通用對話框。并通過屬性窗口把考生目錄下的圖標(biāo)文件Point11（香蕉圖標(biāo)）裝入圖像框Image1中，如圖所示。第01套 基本操作題（新模14） （1）在名稱為Form1的窗體上畫一個(gè)名稱為Picture1的圖片框（PictureBox），高、寬均為1000。在圖片框內(nèi)再畫一個(gè)有邊框的名稱為Image1的圖像框（Image）。注意：存盤時(shí)必須存放在考生文件夾下。要求： 1）通過屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使得運(yùn)行時(shí)對話框的標(biāo)題為“保存文件”，且默認(rèn)文件名為out2； 2）運(yùn)行時(shí)單擊“保存文件”命令按鈕，則以“保存對話框”方式打開該通用對話框，如圖所示。保存時(shí)必須存放在考生文件夾下。窗體上有個(gè)鐘表圖案，其中代表指針的直線的名稱是Line1，還有一個(gè)名稱為Label1的標(biāo)簽，和其他一些控件（如圖1所示）。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。符號(hào)常量x0、y0是圓心距窗體左上角的距離；符號(hào)常量radius是圓的半徑。最后把修改后的文件按原文件名存盤。 = 1110, x0amp。 = 750Private Function oncircle(X As Single, Y As Single) As Boolean precision = 55000 If Abs((X x0) * (X x0) + (y0 Y) * (y0 Y) radius * radius) precision Then oncircle = True Else oncircle = False End IfEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Const LEFT_BUTTON = 1 If oncircle(X, Y) Then = x0 = y0 If Button = LEFT_BUTTON Then = X39。 = Line1.? ***** X1 *****39。 ? = 鼠標(biāo)位置不對 ***** ***** End IfEnd Sub（2），窗體如圖所示。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容，并編寫“計(jì)算”按鈕的Click事件過程。最后把修改后的文件按原文件名存盤。 If n ? Or n 8 Then ***** 12 ***** MsgBox (數(shù)據(jù)錯(cuò)誤，請重新輸入) = False = False Else = True = True End IfEnd SubPrivate Sub Command2_Click() Dim s As Long, k As Integer*****39。 s = ? ***** 1 ***** For k = 2 To n s = s * k Next39。 \ For Output As 1 Print 1, n, Text1 Close 1End Sub第01套 綜合應(yīng)用題（新模14），含三個(gè)窗體，標(biāo)題分別為‘啟動(dòng)’、‘注冊’、‘登錄’，運(yùn)行時(shí)顯示‘啟動(dòng)’窗體，單擊其上按鈕時(shí)彈出對應(yīng)窗體進(jìn)行注冊或登錄。注冊時(shí)用戶名不能重復(fù)，且‘口令’與‘驗(yàn)證口令’須相同，注冊成功則在‘啟動(dòng)’窗體的標(biāo)簽中顯示‘注冊成功’，否則顯示相應(yīng)錯(cuò)誤信息。標(biāo)準(zhǔn)模塊中函數(shù)finduser的功能是：在users數(shù)組中搜索用戶名（即參數(shù)ch），找到則返回該用戶名在user中的位置，否則返回0。―――――――――Form2―――――――――――――――――――――――――Private Sub Command1_Click() Text1 = Text2 = Text3 = End SubSub writeusers()39。 ElseIf finduser(Trim$(Text1)) ? Then ***** 0 ***** MsgBox (此用戶名已經(jīng)存在!) ElseIf Text2 Text3 Then MsgBox (口令驗(yàn)證錯(cuò)誤!) Else writeusers39。 If k = ? Then ***** 0 ***** MsgBox (沒有注冊！)39。請畫控件并設(shè)置相應(yīng)屬性。（2）在名稱為Form1的窗體上畫一個(gè)名稱為HS1的水平滾動(dòng)條，其刻度值范圍為1~100；畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為“移動(dòng)滾動(dòng)框”。運(yùn)行時(shí)的窗體如圖所示。注意：存盤時(shí)必須存放在考生文件夾下。請編寫適當(dāng)?shù)氖录^程，在運(yùn)行時(shí)當(dāng)用鼠標(biāo)右鍵單擊文本框時(shí)，彈出此菜單，選中一個(gè)菜單項(xiàng)后，則進(jìn)行菜單標(biāo)題所描述的操作，如圖所示。M1_click( ) =trueM2_click( ) =trueM3_click( ) =trueText1_MouseDown( ) If button=2 then Popupmenu format（2），含有Form1和Form2兩個(gè)窗體，F(xiàn)orm1為啟動(dòng)窗體。程序運(yùn)行后，在Form1窗體的文本框中輸入有關(guān)信息（‘密碼’框中顯示‘*’字符），然后單擊‘提交’按鈕則彈出‘確認(rèn)’對話框（即Form2窗體），并在對話框中顯示輸入的信息，如圖2所示。在給出的窗體文件中已經(jīng)給出了程序，但不完整。注意：不能修改程序中的其他部分，標(biāo)題等屬性的修改只能在屬性窗口中的進(jìn)行。Private Sub C1_Click() Dim k As Integer39。 。 39。 ：。 If ( ? ).Value Then ***** k ***** (k).Caption End If Next kEnd SubPrivate Sub Form_Load()39。其中Text1用來輸入口令（輸入時(shí)，顯示‘*’），無初始內(nèi)容；Text2的初始內(nèi)容為3。Private Sub C1_Click()39。 Text1.? = ***** passwordchar ***** Else = 139。 (3 ) amp。 = ? ***** false ***** End If End IfEnd Sub第03套 基本操作題（新模18）（1）在名稱為Form1，標(biāo)題為“框架”的窗體上畫一個(gè)名稱為Frame1，且沒有標(biāo)題的框架。注意：存盤時(shí)必須存放在考生文件夾下。再畫二個(gè)命令按鈕，名稱分別是CmdCmd2，標(biāo)題分別為“顯示高”、“隱藏高”，如圖所示。注意：要求程序中不能使用變量，每個(gè)事件過程中只能寫一條語句。第03套 簡單應(yīng)用題（新模18）（1），其功能是：1）單擊‘讀數(shù)據(jù)’按鈕，；2）單擊‘計(jì)算’按鈕，則對這100個(gè)整數(shù)中的所有水仙花數(shù)（當(dāng)一個(gè)數(shù)的值等于該數(shù)中各位數(shù)字的立方和時(shí)，此數(shù)被稱為水仙花數(shù)。窗體中給出了所有控件（如圖所示），以及‘讀數(shù)據(jù)’按鈕的Click事件過程，請為‘計(jì)算’按鈕編寫適當(dāng)?shù)氖录^程實(shí)現(xiàn)上述功能。最后，程序按原文件名存盤。 \ For Input As 1 For k = 1 To 100 Input 1, a(k) Next k Close 1End SubPrivate Sub Command2_Click()39。 \ For Output As 1 Print 1, Close 1End