08-09(2)vb期末a卷

1、共8頁(yè)，第1頁(yè)1、編寫(xiě)事件過(guò)程Comm1_Click，輸入x后按下列公式計(jì)算并顯示y的值。????????????55)3()3(||log225xxxxexyxPrivateSubComm1_Click()1分DimxAsSingleyAsSingle2分x=Val(InputBox(“x=“))2分Ifx02分f=fkMod10:k=k10LoopEndFuntionPrivateSubComm1_Click()Dima(10)As

2、IntegeriAsInteger聲明語(yǔ)句1分Fi=1To10a(i)=Val(InputBox(“a(“&i&“)=“))輸入語(yǔ)句2分NextiFi=1Ton:Printf(a(i)):Nexti調(diào)用、輸出2分EndFuntion3、某文本文件以下列格式存儲(chǔ)若干學(xué)生學(xué)號(hào)和兩門(mén)課成績(jī)，編寫(xiě)單擊窗體的事件過(guò)程。要求：用通用對(duì)話框控件Commondialog1選擇該文件；為每個(gè)學(xué)生記錄增加兩門(mén)課的總分。PrivateSubFm_Click(

3、)DimxhAsStringcj1AsIntegercj2AsInteger聲明2分CommonDialog1.Action=1對(duì)話框使用1分OpenCommonDialog1.FileNameFInputAs#1打開(kāi)文件2分Open“xxx.txt“FOutputAs#2DoWhileNotEof(1)讀、寫(xiě)文件4分共8頁(yè)，第3頁(yè)max=a(1):min=maxFi=2Ton循環(huán)結(jié)構(gòu)6分Ifa(i)maxThenmax=a(i)Ifa

4、(i)minThenmin=a(i)NextiEndSub3、某文件以下列格式存儲(chǔ)若干行數(shù)據(jù)，表示庫(kù)存商品的編碼、某文件以下列格式存儲(chǔ)若干行數(shù)據(jù)，表示庫(kù)存商品的編碼(6(6個(gè)字符個(gè)字符)和數(shù)量，編寫(xiě)單擊和數(shù)量，編寫(xiě)單擊窗體的事件過(guò)程。要求：以通用對(duì)話框控件窗體的事件過(guò)程。要求：以通用對(duì)話框控件CommonDialog1CommonDialog1選擇該文件，用選擇該文件，用InputBoxInputBox函數(shù)輸入函數(shù)輸入某商品的編碼，然后

5、顯示該商品的庫(kù)存數(shù)量總和。某商品的編碼，然后顯示該商品的庫(kù)存數(shù)量總和?！癆A0101““AA0101“201201“AB0511““AB0511“1515“AA0317““AA0317“4141“AA0101““AA0101“2525..........PrivateSubFm_Click()Dimbm1AsStringbm2AsStringslAsSinglesasSingle1分CommonDialog1.ShowOpen2分bm1

6、=InputBox(“輸入商品編碼“)1分OpenCommonDialog1.FileNameFInputAs#12分DoWhileNotEof(1)5分Input#1bm2slIfbm1=bm2Thens=sslLoopClose#11分PrintsEndSub1、編寫(xiě)Sub過(guò)程st，實(shí)現(xiàn)一維Single數(shù)組從大到小的排序，并返回該數(shù)組的平均值。PrivateSubst(b()AsIntegermAsIntegeravgAsSingl