VB綜合(答案)

1、 str(1-v)0_。Text1中輸入題數(shù)n,圖a綜合(學(xué)考部分非選擇題)1. 2017年4月學(xué)考題奇偶校驗(yàn)是一種校驗(yàn)數(shù)據(jù)傳輸正確性的方法。其中奇校驗(yàn)方法：統(tǒng)計(jì)二進(jìn)制數(shù)據(jù)的數(shù)位中“1”的個(gè)數(shù)，若個(gè)數(shù)為奇數(shù)，則校驗(yàn)位值為0,否則校驗(yàn)位值為1。小李編寫(xiě)了一個(gè)計(jì)算奇校驗(yàn)位值得VB程序，功能如下：在文本框 Text1中輸入1255十進(jìn)制待校驗(yàn)數(shù)，單擊"計(jì)算”按鈕Command后，在文本框Text2中顯示該數(shù)對(duì)應(yīng)的二進(jìn)制值，并在標(biāo)簽Label3中顯示該數(shù)的校驗(yàn)位值。程序運(yùn)行界面如圖所示。(1)在設(shè)計(jì)程序界面時(shí)，要清空文本框中的顯示內(nèi)容，應(yīng)修改該文本框中的Text屬性。(2)實(shí)現(xiàn)上述功能的 V

2、B程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Private Sub Command1_Click()Dim a As Integer, s As StringDim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s =""Do While n > 0a = n Mod 2n = n 2t = t+as = Str(a) + sLoopv = t Mod 2Text2.Text = sLabel3.Caption ="校驗(yàn)位值："+ End Sub(3)運(yùn)行該程序，在文本

3、框 Text1中輸入22,單擊“計(jì)算”按鈕，則顯示的校驗(yàn)位值是2. 2016年10月學(xué)考題編寫(xiě)“加法練習(xí)題生成器”程序，實(shí)現(xiàn)如下功能：在文本框單擊"生成"按鈕Command1在列表框 Listl中顯示n個(gè)兩數(shù)之和小于100的加法練習(xí)題。程序運(yùn)行界面如圖a所示。3 (填寫(xiě)相應(yīng)編號(hào)) 添加“生成”按鈕。(1)在設(shè)計(jì)程序界面時(shí)，使應(yīng)使用圖b所示“控件工具箱”中的(2)實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。Private Sub Command1_Click()Dim n As Integer, i As Integer, a As Integer, b As In

4、tegerRandomizen = Val(Text1.Text)Do While i<= na = Int(Rnd *100)b = Int(Rnd *100)If a+b<100 ThenListl.AddItem "(" + Str(i) + ")" + Str(a) + "+" + Str(b) + "=" i = i + 1 End If Loop End Sub(3)運(yùn)行該程序，在文本框中輸入5,單擊“生成”按鈕后，對(duì)語(yǔ)句 a = Int(Rnd * 100) 執(zhí)行次數(shù)的描述，最合理白是B

5、(單選，填字母：A.執(zhí)行次數(shù)等于 5 B.執(zhí)行次數(shù)大于等于5 C.執(zhí)行次數(shù)小于等于5)3.下面程序的功能是：統(tǒng)計(jì)輸入信息有多少個(gè)英文大寫(xiě)字母、 小寫(xiě)字母、數(shù)字字符。程序運(yùn)行時(shí)，在文本框Text1中輸入信息， 單擊“確定”按鈕后，分別在文本框 Text2、Text3、Text4中顯 示大寫(xiě)字母、小寫(xiě)字母和數(shù)字字符的個(gè)數(shù)。程序運(yùn)行效果如圖所 示。Private Sub Command1_Click()Dim getStr As StringDim a As StringDim i As Integer , s As Integer Dim q As Integer , l As Integer s

6、=0: q=0: l=0 getStr=Text1.TextFor i = 1 To'對(duì)字符串中所有字符逐一判斷If a >= "a" And a <= "z" Then s = s + 1If a >= "A" And a <= "Z" Then q = q + 1If a >= "0" And a <= "9" Then l = l + 1Next iText2.Text = StrText3.Text = StrText4.T

7、ext = StrEnd Sub(1)虛線框中的代碼屬于(s)(q)(2)劃線處應(yīng)填入的語(yǔ)句為:劃線處應(yīng)填入的語(yǔ)句為:(選填：枚舉/解析)算法Len(getstr) 或者 Len(Text1.text)Mid(getstr,i,1) 或者 Mid(Text1.text,i,1)(3)運(yùn)行該程序時(shí)，如果在文本框Text1中輸入的字符串中包含其他符號(hào)，如”(選填 會(huì)/不會(huì))影響輸出結(jié)果。4.編寫(xiě)VBg序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入十六進(jìn)制數(shù)，單擊“轉(zhuǎn)換”按鈕Command1在列表框 List1中輸出對(duì)應(yīng)的十進(jìn)制數(shù)，運(yùn)行界面如圖所示，程序代碼如下。Label1TextlCoiMandlU

8、bel2Llstl(1)要調(diào)整Label1中的字體大小，可選擇在屬性面板中設(shè)置Label1的。(單選，填字母：A.Caption/ B.Font / C.Height )(2)為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適的代碼。Private Sub Command1_Click()Dim s As String, c As String, t As StringDim i As Integer, b As Integer, ans As LongDim flag As Booleans = Text1.textb = Len(s)flag = Trueans = 0For i = 1 To bc =

9、Mid(s, i, 1)If c >= "0" And c <= "9" Thenans = ans * 16 + Asc(c) - Asc("0")ElseIf c >= "A" And c <= "F" Thenans = ans * 16 +10+Asc(c) - Asc("A") 或 10+Asc(c) - 65Else flag=False ' 輸入情況有誤Exit ForEnd IfNext iIf flag Then t = St

10、r(ans) Else t ="輸入有誤!"List1.AddItem s + "->" + tEnd Sub(3)由上述算法可知，運(yùn)行時(shí)在Text1框中輸入“ d8”，列表框List1中添加的條目為 。(單選，填字母：A. d8->216/B. d8-> 輸入有誤！)5.編寫(xiě)VE®昧程序"計(jì)算厚道指數(shù)”，實(shí)現(xiàn)如下功能：在文本框Text1中輸入姓名，單擊“試一試”按鈕 Command 1在列表框List1依次求解并顯示姓名中的每一個(gè)字符的ASCII碼，并按程序中給定方式進(jìn)行運(yùn)算，得出厚道指數(shù)。運(yùn)行界面如圖所示，程序代

11、碼如下。0筵味程序：厚道指數(shù)計(jì)算- X姓名： jack ma89ASCIIIASCHASCIIKSCIIASCIIASCII儂j計(jì)算內(nèi)碼器 1069?99107321099?c=mid(s , i , 1 )(1)為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適的代碼。Private Sub Command1_Click() Dim s As String , c As String Dim n As Integer , k As Integer s = Text1.Text List1.Clear計(jì)算內(nèi)碼:List1.AddItem (" 開(kāi)始分解姓名"+ s + ", Fo

12、r i = 1 To Len(s)十進(jìn)制 ASCII 值："+ Str(k)k = Asc(c) Listl.AddItem (c + " n = (n + k) Mod 50 Next in = n + 50 -iLabel2.Caption = Str(n)End Sub(2)程序中的代碼 “ list1.clear ” 的 “clear ” 是 。(單選，填字母：A.對(duì)象名/B.屬性名/C.事件名/ D.方法名)(3)若在文本框中輸入姓名是“jam”這3個(gè)字符，點(diǎn)擊“試一試”按鈕，在 label2上顯示的“厚道指數(shù)”值為。686 .查找ASCII碼值最小的字符。程序功

13、能如下：在文本框Text1中輸入一個(gè)字符串，單擊命令按鈕Command1在文本框Text2中輸出該字符串中ASCII碼值最小的字符，運(yùn)行界面如下圖所示。星性-Commandl1(名稱(chēng))CommandlAppearance1 - 3DBackColor口&HSOOOOOOFtCancelFalseCaptionCommandlCansesValidation TrueDefaultfalseDlsabledPicture(None)DownPicture(HoneDragicon(None)DragMode0 - ManualEnabledTrueFont宋體Conmandl Comni

14、andButton按字母序|按分類(lèi)序:解決該問(wèn)題的VB程序如下:存儲(chǔ)輸入的字符串存儲(chǔ)輸入字符串的長(zhǎng)度Private Sub Command1_Click() Dim str1 As String'Dim n As Integer'Dim i As Integer, j As Integer str1 = Text1.Textn = Len(str1) s = Mid(st1 1, 1)For i = 2 To nIf Mid(str1, i, 1) < s Then s = Mid(str1, i, 1)Next iText2.Text = sEnd Sub(1)將命令按

15、鈕Command中顯示的文本“Command'1修改為"查找"，可在其屬性窗口中將 Caption屬性的屬性 值改“查找”。(2)為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適的代碼。程序中劃線處應(yīng)填入 程序中劃線處應(yīng)填入 (3)如上圖所示，在文本框Text2中輸出的字符“ M'是輸入字符串中的第1 個(gè)“ MT。7 .用物理天平測(cè)量物體的質(zhì)量。待測(cè)得物體的質(zhì)量為x克(x為小于1000的整數(shù))，下列程序?yàn)橛?jì)算天平祛碼盤(pán)中所需的祛碼。已知天平可用祛碼為：500克1個(gè)，200克1個(gè)，100克2個(gè)，50克1個(gè)，20克1個(gè)，10克2個(gè)，5克1個(gè)，2克2個(gè)，1克1個(gè)。程序界面如下圖

16、。Private Sub Command1_Click()Dim a(1 To 12) As Integer, i As Integer, x As Integera(1) = 500: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1i = 1x = Val(Text1.Text)List1.ClearDo While x<>0If x >= a(i) ThenList1.AddItem

17、 Str(a(i)End Ifi = i + 1日 FqititiI輸入物體質(zhì)里:Textl計(jì)算所需硅碼：，：LoopEnd Sub(1)如要將程序窗口標(biāo)題“ Form1”修改為“天平測(cè)質(zhì)量”Caption / Text / Font )。(2)為實(shí)現(xiàn)上述功能，劃線處應(yīng)填入的代碼為,則應(yīng)該修改窗體的屬性(選填：Name /x=x-a(i)(3)程序正確運(yùn)行后，在文本框Text1中輸入701 ,并單擊“計(jì)算”按鈕。O程序運(yùn)行結(jié)果應(yīng)為下圖中的(單選，填:A/B/C)。所需甚碼;E00200 1dinaiEO 月止陰月月月月2 12221112222 年年年年年££年隼年隼 15

18、15151515151515151015 232333&29訝£力融20治rrrr311非法合法日期/J日期合擊日期12005008.日期判斷從文本框Text1輸入一個(gè)8位數(shù)字表示的日期，其中第 1到4位表示年(第1位確定不為零)，第5到6位表示月，第7到8位表示日。單擊“判斷”按鈕，判斷該日期是否合法，將結(jié)果依次輸出到列表框List1。程序界面如下圖所示：日琳判腑M叵區(qū)提示：年份值符合下列兩種情況之一的是閏年。1 .年份是4的倍數(shù)，但不是100的倍數(shù)；2 .年份是400的倍數(shù)。(1)觀察程序代碼，可知“判斷”按鈕的對(duì)象名為 。(單選，填字母:A.Text1/B.List1/

19、C.Command1/ D.Judge/E.判斷)(2)為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適的代碼。Private Sub Judge_Click()Dim riqi As String, st As StringDim year As Integer, month As Integer, day As IntegerDim rn As Boolean, hefa As Booleanriqi = Textl.Textyear = Val(Mid(riqi, 1,4)month = Val(Mid(riqi, 5, 2)day = Val(mid(riqi,7,2) 或 Val(mid(riqi

20、,7) '第處st = Str(year) + " 年"+ Str(month) + " 月"+ Str(day) + " 日"rn = False'用于判斷是否為閏年If year mod 400 =0 Then rn = True'第處If year Mod 4 = 0 And year Mod 100 <> 0 Then rn = Truehefa = True'用于判斷是否為合法日期If month = 0 Or month > 12 Then hefa = FalseIf d

21、ay = 0 Then hefa = FalseIf (month = 1 Or month = 3 Or month = 5 Or month = 7 Or'與下一行語(yǔ)句同行month = 8 Or month = 10 Or month = 12) And day > 31 Then hefa = FalseIf (month = 4 Or month = 6 Or month = 9 Or month = 11)'與下一行語(yǔ)句同行And day > 30 Then hefa = FalseIf month=2 And rn=true And day>29

22、Then hefa = False'第處，判斷閏年2月的天數(shù)是否合法If month = 2 And Rn = False And day > 28 Then hefa = FalseIf hefa = True Then st = st + "合法日期"Else st = st + "4E法日期"List1.AddItem stEnd Sub第處代碼為第處代碼為第處代碼為9 .編寫(xiě)VB程序代碼，實(shí)現(xiàn)如下功能：在文本框 Text1中輸入金額(整數(shù))后，點(diǎn)擊“轉(zhuǎn)換”按鈕 Command1則在文 本框Text2中顯示該金額的大寫(xiě)，程序運(yùn)行界面如下圖所示：(1)要使窗體標(biāo)題上顯示的文本改為“人民幣大小寫(xiě)”，可在其屬性窗口中將Caption屬性的屬性值改為“人民幣大小寫(xiě)”。(2)為了實(shí)現(xiàn)以上程序功能，使程序正常運(yùn)行，請(qǐng)完善以下兩處代碼。Private Sub Command1_Click()Dim dx As String, dw As StringDim s As String, c As StringDim ch As StringDim i As Integerdx ="零壹貳叁肆伍陸柒捌玖拾 dw ="億仟佰拾離仟佰拾元" Then輸入的數(shù)據(jù)超出所能