版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、問題 15.56 分 保存 單擊窗體，根據(jù)輸入框所輸入的百分制成績score，在窗體上顯示相應(yīng)的等級，即“優(yōu)秀”(score>=90)、“良好”(80<=score<90)、“中”(70<=score<80)、“及格”(60<=score<70)、“不及格”(score<60)。 Private Sub Form_click() (1)
2、60; score = Val(InputBox("請輸入成績") If (2) Then Print "優(yōu)秀" &
3、#160;ElseIf score >= 80 Then Print "良好" ElseIf score >= 70 Then Print "中" (3)
4、60; (4) Else Print "不及格" (5)&#
5、160; End Sub &
6、#160;
7、0; (1)
8、0;
9、 (2)
10、 &#
11、160; (3) &#
12、160;
13、; (4)
14、; (
15、5) 1.Print "及格"2.score >= 903.Dim score As Integer4.End If5.ElseIf score >= 60 Then 問題 25.56 分 保存 單擊窗體，從輸入框InputBox輸入一個(gè)整數(shù)，判斷其是否為素?cái)?shù)。例如輸入7，則屏幕上顯示“7是素?cái)?shù)”；如果輸入的是9則屏幕上顯示“9不是素?cái)?shù)”。Private Sub Form_Click() Dim i As Integer, n A
16、s Integer, Prime As String n = Val(InputBox("n=") If n < 2 Then (1) Else
17、60; (2) If n Mod i = 0 Then Exit For &#
18、160; Next i (3)
19、; (4) Else Prime = "不是素?cái)?shù)" End If End
20、If (5) End Sub
21、
22、60; (1)
23、60;
24、; (2)
25、; &
26、#160; (3) &
27、#160;
28、0; (4)
29、0;
30、 (5) 1.If i > n-1 Then2.Prime = "是素?cái)?shù)"3.Print n & Prime4.Prime = "不是素?cái)?shù)"5.For i = 2 To n-1 問題 35.56 分 保存 設(shè)計(jì)一個(gè)用戶身份驗(yàn)證程序， 具體要求如下：
31、; 在文本框Text1中輸入密碼，單擊“確定”按鈕Command1對密碼進(jìn)行檢驗(yàn)。若密碼正確(默認(rèn)密碼為123456)，在窗體上顯示“歡迎進(jìn)入！”，并隱藏文本框和“確定”按鈕。如果輸入的密碼不對，彈出消息框顯示“密碼不符，請?jiān)佥斎胍槐?！”，同時(shí)清空文本框的內(nèi)容，允許再次輸入；如果第三次輸入的密碼仍然不對，消息框顯示“非法用戶，請退出程序！”，文本框和命令按鈕不能再使用。 (1)
32、0; Private Sub Command1_Click() (2) Print "歡迎進(jìn)入！" Text1.Visible = False C
33、ommand1.Visible = False Else (3) If n <= 2 Then MsgBox "
34、密碼不符，請?jiān)佥斎胍槐椋?quot; (4) Else MsgBox "非法用戶
35、，請退出程序！" Text1.Text = "" Text1.Enabled = False Command1.Enabled = False End If&
36、#160; (5) End Sub
37、60;
38、; (1)
39、; &
40、#160; (2) &
41、#160;
42、0; (3)
43、0;
44、 (4)
45、
46、60; (5) 1.End If2.Text1.Text = ""3.Dim n As Integer4.If Text1.Text = "123456" Then5.n = n + 1 問題 45.56 分 保存 單擊窗體，從輸入框InputBox輸入x和n，并計(jì)算下列表達(dá)式的值，直至末項(xiàng)小于 為止，結(jié)果
47、顯示在窗體。Private Sub Form_Click() Dim s As Single, x As Single, a As Single x = Val(InputBox("輸入x") (1) s = 1i = 0 Do&
48、#160; (2) (3) &
49、#160; s = s + a Loop (4)
50、60;(5) End Sub
51、
52、60; (1)
53、60;
54、; (2)
55、; &
56、#160; (3) &
57、#160;
58、0; (4)
59、0;
60、 (5) 1.Print "s=" s2.a = a * x / i3.i = i + 14.a = 15.While a >= 0.00001 問題 55.56 分 保存 編制Form_Click過程，用近似公式求自然對數(shù)的底數(shù)e的值，直到末項(xiàng)小于10-4為止，結(jié)果顯示在窗體上。Private Sub Form_Click() Dim s As Single, x As Single, a
61、 As Single a = 1 (1) i = 1 Do
62、;(2) (3)
63、; (4) i = i + 1 Loop (5) End Sub&#
64、160;
65、; (1)
66、; &
67、#160; (2) &
68、#160;
69、0; (3)
70、0;
71、 (4)
72、 &#
73、160; (5) 1.s = 12.s = s + a3.While a >= 0.00014
74、.Print "e=" s5.a = a / i 問題 65.56 分 保存 實(shí)現(xiàn)文本框的復(fù)制、剪切、粘貼、刪除功能Private Sub Command1_Click() (1) Clipboard.SetText Text1.SelTextEnd SubPriv
75、ate Sub Command2_Click()Clipboard.Clear (2) (3) End SubPrivate Sub Command3_Click
76、() (4) End SubPrivate Sub Command4_Click() (5) End Sub &#
77、160;
78、; (1)
79、; &
80、#160; (2) &
81、#160;
82、60; (3)
83、60;
84、 (4)
85、 &#
86、160; (5) 1.Text1.SelText = ""2.Text1.SelText = ""3.Clipboard.C
87、lear4.Text1.SelText = Clipboard.GetText5.Clipboard.SetText Text1.SelText 問題 75.56 分 保存 單擊窗體，實(shí)現(xiàn)以下的分段函數(shù)，其中x從輸入框輸入，求出y顯示在窗體上。Private Sub Form_Click() (1)
88、0; (2) If x < -5 Then y = 3 * x 2 + 2 * x - 1 (3)
89、 y = x * Sin(x) + 2 x Else y = Sqr(x - 5) + Log(x) / Log(10) (4)
90、 (5) End Sub &#
91、160;
92、0; (1)
93、0;
94、 (2)
95、
96、60; (3)
97、60;
98、 (4)
99、 &#
100、160; (5) 1.ElseIf x <= 5 Then2.Dim x As Single, y As Single3.x = Val(InputBox("請輸入x")4.Print y5.End If 問題 85.56 分 保存 單擊窗體，產(chǎn)生20個(gè)從1到600之間的隨機(jī)整數(shù)，并以每行5個(gè)把數(shù)據(jù)顯示在窗體上，并在窗體上顯示20
101、個(gè)數(shù)據(jù)中的所有偶數(shù)之和。Private Sub Form_Click() (1) s = 0 For i = 1 To 20 Randomize
102、0; (2) Print x; (3) &#
103、160; If (4) Then s = s + x Next i &
104、#160; (5) End Sub
105、; &
106、#160; (1) &
107、#160;
108、60; (2)
109、60;
110、 (3)
111、 &#
112、160; (4) &#
113、160;
114、0; (5) 1.Print "s=" s2.Dim i As Integer, x As Integer, s as Long3.x = Int(600*Rnd+1)4.x Mod 2 = 05.If i mod 5 =0 Then Print 問題 95.56 分 保存 單擊窗體，從鍵盤輸入三個(gè)數(shù)，將它們從大到小輸出在窗體上。Private Sub Form_Click() Dim x As Single, y As Sing
115、le, z As Single x = Val(InputBox("x") (1) z = Val(InputBox("z") If x < y Then
116、 (2) End If If x < z Then (3) &#
117、160;End If (4) t = y: y = z: z = t End If (5) &
118、#160; End Sub
119、; &
120、#160; (1) &
121、#160;
122、0; (2)
123、0;
124、(3)
125、 (4)
126、
127、60; (5) 1.t = x:
128、x = y: y = t2.y = Val(InputBox("y")3.Print x, y, z4.t = x: x = z: z = t5.If y < z Then 問題 105.56 分 保存 編制Form_Click過程，從輸入框InputBox輸入行數(shù)n(5n<10)，然后在窗體上輸出n層數(shù)字金字塔。Private Sub Form_Click() Dim n As Integer, i As Integer, j
129、 As Integer Do n = Val(InputBox("n=") Loop Until n >= 5 And n < 10 For i = 1 To n
130、60; (1) (2)
131、60; (3) (4)
132、60; (5) Next iEnd Sub &#
133、160;
134、; (1)
135、; &
136、#160; (2) &
137、#160;
138、60; (3)
139、60;
140、 (4)
141、 &#
142、160; (5) 1.Next j2.Print3.For j = 1 To 2 * i - 14.Print Trim(Str(i);5.Print Tab(n + 1 - i); 問題 115.56 分 保存 從輸入框InputBox輸入n，
143、再從輸入框輸入這n個(gè)整數(shù)，要求以每行5個(gè)的形式輸出這n個(gè)數(shù)（其中的偶數(shù)用紅色顯示），計(jì)算它們的平均值并顯示在窗體上。Private Sub Form_Click() Dim n As Integer, x As Integer, ave As Single, s As Single n = Val(InputBox("n") For i = 1 To n &
144、#160; (1) If x Mod 2 = 0 Then (2)
145、 Else (3) End If Print x;
146、60; (4) s = s + x Next i (5)
147、 Print Print "平均值為：" & aveEnd Sub
148、 &#
149、160; (1) &#
150、160;
151、0; (2)
152、0;
153、 (3)
154、
155、60; (4)
156、60;
157、; (5) 1.x = Val(InputBox("x")2.ave = s / n3.Form1.ForeColor = vbBlack4.If i Mod 5 = 0 Then Print5.Form1.ForeColor = vbRed 問題 125.56 分 保存 編程，在窗體上顯示單擊窗體的次數(shù)。第一次單擊時(shí)，窗體上以紅色顯示“第1次單擊窗體”；第二次單擊時(shí)，窗體上以藍(lán)色顯示“第2次單擊窗體”；第三次單擊時(shí)，窗體上以
158、綠色顯示“第3次單擊窗體”，第四次單擊時(shí)，清除窗體上的信息。第五次單擊的效果和第一次一樣，以此類推，運(yùn)行效果如圖所示。 (1) Private Sub Form_Click() (2) &
159、#160; If n = 1 Then Form1.ForeColor = vbRed Print "第1次單擊窗體" ElseIf n = 2 Then &
160、#160; (3) Print "第2次單擊窗體" ElseIf n = 3 Then Form1.ForeColor = vbGreen
161、60; (4) ElseIf n = 4 Then Form1.Cls
162、0; (5) End IfEnd Sub
163、; &
164、#160; (1) &
165、#160;
166、0; (2)
167、0;
168、 (3)
169、
170、60; (4)
171、60;
172、; (5) 1.Dim n As Integer2.Print "第3次單擊窗體"3.Form1.ForeColor = vbBlue4.n = 05.n = n + 1 問題 135.56 分 保存 1、 在文本框Text1中輸入一個(gè)正整數(shù)，單擊按鈕Command1，判斷該數(shù)的奇偶性，結(jié)果顯示在標(biāo)簽框label2中，要求偶數(shù)用藍(lán)色顯示，奇
173、數(shù)用紅色顯示。Private Sub Command1_Click() Dim x As Integer (1) If (2) &
174、#160; Then Label2.ForeColor = vbBlue (3) (4) &#
175、160; (5) Label2.Caption = x & "是奇數(shù)" End IfEnd Sub
176、60;
177、 (1)
178、 &#
179、160; (2) &#
180、160;
181、0; (3)
182、0;
183、 (4)
184、
185、60; (5) 1.Label2.ForeColor = vbRed2.x Mod 2 = 03.Label2.Caption = x & "是偶數(shù)"4.Else
186、5.x = Val(Text1.Text) 問題 145.56 分 保存 單擊窗體，從輸入框輸入一個(gè)字符串，判斷其是否為“回文”并在窗體上打印結(jié)果。“回文”是指字符串順讀與倒讀都是一樣的，如“潮起潮落，落潮起潮”。Private Sub Form_Click() Dim s As String ,n as Integer s = InputBox("請輸入字符串")
187、60; (1) For i = 1 To n 2 If (2) Then
188、; (3) End If Next i If i <= n 2 Then (4)
189、0; Else (5) End IfEnd Sub &#
190、160;
191、; (1)
192、; &
193、#160; (2) &
194、#160;
195、0; (3)
196、0;
197、 (4)
198、
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 《古代存留養(yǎng)親制度及其當(dāng)代借鑒》
- 工程空白合同范例
- 網(wǎng)上查詢購房合同范例
- 租戶裝修合同范例
- 二手汽車購買協(xié)議書3篇
- 墊資施工合同中的責(zé)任分配3篇
- 合同補(bǔ)充協(xié)議的實(shí)踐操作與注意事項(xiàng)3篇
- 全新協(xié)議存款管理辦法3篇
- 監(jiān)事勞務(wù)合同范例
- 事業(yè)單位勞動(dòng)合同期限有多久3篇
- 停車場利潤分成協(xié)議
- 小學(xué)國家公祭日主題班會(huì)教案
- DL-T 5626-2021 20kV及以下配電網(wǎng)工程技術(shù)經(jīng)濟(jì)指標(biāo)編制導(dǎo)則
- 血液科病房的不良事件分析與防范措施探討
- 必修：世界是普遍聯(lián)系
- 滅火戰(zhàn)術(shù)課件-滅火戰(zhàn)斗
- 外研社版三起英語四年級上冊復(fù)習(xí)提綱-
- 總裁辦部門職責(zé)文件
- 【課件】信息系統(tǒng)的優(yōu)勢與局限性 2023-2024學(xué)年人教中圖版（2019）高中信息技術(shù)必修二
- 盤江風(fēng)電場送出線路工程環(huán)境影響報(bào)告表
- 一年級口算天天練(可直接打印)
評論
0/150
提交評論