



全文預(yù)覽已結(jié)束
下載本文檔
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
第1題 功能:求 1!+2!+10!的值。Private Sub Form_Click()*SPACE*【?】s = 1For I = 2 To 10 t = t * I*SPACE* 【?】*SPACE*【?】Print sEnd Sub答案:1). t = 1 2). s = s + t 3). Next I 或 Next第1題 功能:下面的程序用于求三個(gè)數(shù)中最大數(shù)Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox(請(qǐng)輸入第一個(gè)數(shù): ) b = Val(InputBox( 請(qǐng)輸入第二個(gè)數(shù): ) c = Val(InputBox(請(qǐng)輸入第三個(gè)數(shù): ) *SPACE* 【?】 = a min = a *SPACE* If b max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c max 或 max 10 Then *SPACE* y = Sqr(x) 【?】 Else y = 2 * x 3 + 6 End If Print yEnd Sub 答案: 1). y 2). InputBox 3). y = 0 4). + Sin(x)第1題 (10.0分) 題號(hào):507Option Explicit 【程序填空】功能: 本程序?qū)崿F(xiàn)功能:將順序文本文件 “MYFILE.TXT” 的 內(nèi)容一個(gè)字符一個(gè)字符地讀入文本框txtTest中-Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = *SPACE* Open App.Path & MYFILE.TXT For 【?】 As #1 *SPACE* Do While 【?】 EOF(1) Input #1, InputData *SPACE* txtTest.Text = txtTest.Text + 【?】 Loop Close #1End Sub 答案: 1). Input 2). Not 3). InputData第1題 (10.0分) 題號(hào):51【程序填空】功能:下面的程序段用于建立文件并輸出文件,文件內(nèi)容如下:Private Sub Form_Click()*SPACE*Open c:1.txt For 【?】 As #1For i = 1 To 5 Print #1, Spc(i); *Next i*SPACE*【?】*SPACE*Open c:1.txt For 【?】 As #1For i = 1 To 5 Line Input #1, x Print xNext iClose #1End Sub 答案: 1). Output 2). Close #1 或 Close 3). Input第1題 (10.0分) 題號(hào):41【程序填空】下面過(guò)程max()用于求3個(gè)數(shù)中最大值,利用這個(gè)過(guò)程求5個(gè)數(shù)中最大值。-Private Sub Form_Click()Print 5個(gè)數(shù)34、124、68、73、352的最大值是:max1 = max(34, 124, 68)*SPACE*max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function 答案: 1). max(max1, 73, 352) 2). ab 或 b c 或 c 【?】 Text2.Text = 值大于10 Case Else Text2.Text = 值小于0 End SelectEnd Sub 答案: 1). int1 2). 1 To 10 3). 10第1題 (10.0分) 題號(hào):61【程序填空】功能:根據(jù)輸入的學(xué)習(xí)成績(jī),分別顯示優(yōu)秀(90分以上), 良好 (75分以上),及格(60分以上),不及格幾個(gè)等級(jí)。-Private Sub Command1_Click()x = Val(Text1.Text)If x = 90 Then Label1.Caption = 優(yōu)秀*SPACE*ElseIf 【?】Then Label1.Caption = 良好ElseIf x = 60 Then*SPACE* 【?】*SPACE*【?】 Label1.Caption = 不及格End IfEnd Sub 答案: 1). x = 75 或 75 b 或 b c 或 c m第1題 (10.0分) 題號(hào):49【程序填空】功能:以下程序段用于求n!Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(請(qǐng)輸入一個(gè)正整數(shù)) sum = 0 For i = 1 To n*SPACE* sum =【?】 Next i Print sumEnd SubPrivate Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s = 1*SPACE* For i = 1 To 【?】 s = s * i Next i*SPACE* 【?】End Function 答案: 1). sum + mul(i) 2). x 3). mul = s第1題 (10.0分) 題號(hào):60【程序填空】功能:輸入任何一個(gè)英文字母x, 若x的值為a,c,d-f ,則顯示x的大寫(xiě)字母; 若x的值為m,o,p-z,則顯示x的小寫(xiě)字母; 若x的值為其它的值,則顯示xa(如輸入的X的值是g,則顯示ga)。-Private Sub Command1_Click()x = Text1.Text*SPACE* 【?】*SPACE* Case 【?】 Label1.Caption = UCase(x) Case m, o, p To z
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 《2025標(biāo)準(zhǔn)技術(shù)咨詢服務(wù)合同范本》
- 2024年P(guān)CB復(fù)配化學(xué)品項(xiàng)目資金籌措計(jì)劃書(shū)代可行性研究報(bào)告
- 2025辦公租賃合同范本
- 2025購(gòu)銷合同范本下載(含詳細(xì)條款)
- 2025建筑設(shè)備租賃合同
- 2025授權(quán)合同協(xié)議書(shū)范本
- 2025外墻涂料工程勞務(wù)承包合同-confidential
- 2025建筑工程施工合同范本GF
- 2025全球版權(quán)合同范本
- 《性健康教育咨詢技巧》課件
- 藥品召回管理課件
- 2025年鑄造工藝師職業(yè)技能鑒定模擬試題庫(kù)
- 西南交通大學(xué)《數(shù)據(jù)庫(kù)原理與應(yīng)用》2022-2023學(xué)年第一學(xué)期期末試卷
- 農(nóng)產(chǎn)品供應(yīng)鏈數(shù)字化行業(yè)可行性分析報(bào)告
- 《中國(guó)血糖監(jiān)測(cè)臨床應(yīng)用指南(2021年版)》解讀課件
- 北師大版七年級(jí)下冊(cè)數(shù)學(xué)期中試題帶答案
- 【MOOC】構(gòu)造地質(zhì)學(xué)-中國(guó)地質(zhì)大學(xué)(武漢) 中國(guó)大學(xué)慕課MOOC答案
- 甲狀腺結(jié)節(jié)射頻消融治療
- 【MOOC】模擬電子電路與技術(shù)基礎(chǔ)-西安電子科技大學(xué) 中國(guó)大學(xué)慕課MOOC答案
- 天車技能培訓(xùn)
- 會(huì)計(jì)崗位招聘筆試題及解答(某大型國(guó)企)2025年
評(píng)論
0/150
提交評(píng)論