VB綜合(答案)

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

2、B程序如下，請在劃線處填入合適代碼。Private Sub Command1_Click() Dim a As Integer, s As String Dim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s = Do While n 0 a = n Mod 2 n = n 2 t = t+a s = Str(a) + s Loop v = t Mod 2 Text2.Text = s Label3.Caption = 校驗位值： + str(1-v) End Sub（3）運行該程序，在文本框Text1中

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

4、As Integer Randomize n = Val(Text1.Text)i = 1 Do While i= n a = Int(Rnd * 100) b = Int(Rnd * 100) If a+b= a And a = A And a = 0 And a = 0 And c = A And c + tEnd Sub（3）由上述算法可知，運行時在Text1框中輸入“d8”，列表框List1中添加的條目為 。（單選，填字母：A. d8-216/ B. d8-輸入有誤!）5. 編寫VB趣味程序“計算厚道指數(shù)”，實現(xiàn)如下功能：在文本框Text1中輸入姓名，單擊“試一試”按鈕Command1

5、，在列表框List1依次求解并顯示姓名中的每一個字符的ASCII碼，并按程序中給定方式進行運算，得出厚道指數(shù)。運行界面如圖所示，程序代碼如下。（1）為實現(xiàn)上述功能，請在劃線處填入合適的代碼。Private Sub Command1_Click()Dim s As String，c As StringDim n As Integer，k As IntegerList1.AddItem (開始分解姓名 + s + ,計算內(nèi)碼：)For i = 1 To Len(s) c=mid(s , i , 1 )k = Asc(c)List1.AddItem (c + 十進制ASCII值： + Str(k)n

6、 = (n + k) Mod 50 Next i n = n + 50 -iLabel2.Caption = Str(n)End Sub（2）程序中的代碼“l(fā)ist1.clear ”的“clear”是 。D. 方法名）（3）若在文本框中輸入姓名是“jam”這3個字符，點擊“試一試”按鈕，在label2上顯示的“厚道指數(shù)”值為 。686. 查找ASCII 碼值最小的字符。程序功能如下：在文本框Text1中輸入一個字符串，單擊命令按鈕Command1，在文本框Text2中輸出該字符串中ASCII碼值最小的字符，運行界面如下圖所示。解決該問題的VB 程序如下：Private Sub Command1

7、_Click()Dim str1 As String 存儲輸入的字符串Dim n As Integer 存儲輸入字符串的長度Dim i As Integer, j As Integerstr1 = n = Len(str1)s = Mid(str1, 1, 1) For i = 2 To nIf Mid(str1, i, 1) s Then s = Mid(str1, i, 1)Next iText2.Text = sEnd Sub（1）將命令按鈕Command1中顯示的文本“Command1”修改為“查找”，可在其屬性窗口中將 Caption 屬性的屬性值改“查找”。（2）為實現(xiàn)上述功能，請

8、在劃線處填入合適的代碼。程序中劃線處應(yīng)填入 程序中劃線處應(yīng)填入 （3）如上圖所示, 在文本框Text2中輸出的字符“M”是輸入字符串中的第 1 個“M”。7. 用物理天平測量物體的質(zhì)量。待測得物體的質(zhì)量為x克（x為小于1000的整數(shù)），下列程序為計算天平砝碼盤中所需的砝碼。已知天平可用砝碼為：500克1個，200克1個，100克2個，50克1個，20克1個，10克2個，5克1個，2克2個，1克1個。程序界面如下圖。Private Sub Command1_Click() Dim a(1 To 12) As Integer, i As Integer, x As Integer a(1) = 5

9、00: a(2) = 200: a(3) = 100: a(4) = 100: a(5) = 50: a(6) = 20 a(7) = 10: a(8) = 10: a(9) = 5: a(10) = 2: a(11) = 2: a(12) = 1i = 1x = Val(Text1.Text) Do While x0 If x = a(i) Then List1.AddItem Str(a(i) End Ifi = i + 1 LoopEnd Sub（1）如要將程序窗口標(biāo)題“Form1”修改為“天平測質(zhì)量”，則應(yīng)該修改窗體的屬性 （選填： Name / Caption / Text / Fo

10、nt）。（2）為實現(xiàn)上述功能，劃線處應(yīng)填入的代碼為 x=x-a(i) 。（3）程序正確運行后，在文本框Text1中輸入701，并單擊“計算”按鈕。程序運行結(jié)果應(yīng)為下圖中的 （單選，填：A/B/C）。ABC8. 日期判斷從文本框Text1輸入一個8位數(shù)字表示的日期，其中第1到4位表示年（第1位確定不為零），第5到6位表示月，第7到8位表示日。單擊“判斷”按鈕，判斷該日期是否合法，將結(jié)果依次輸出到列表框List1。程序界面如下圖所示：提示：年份值符合下列兩種情況之一的是閏年。1.年份是4的倍數(shù)，但不是100的倍數(shù)；2.年份是400的倍數(shù)。（1）觀察程序代碼，可知“判斷”按鈕的對象名為 /E.判斷）

11、（2）為實現(xià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 Booleanriqiyear = Val(Mid(riqi, 1, 4)month = Val(Mid(riqi, 5, 2)day = Val(mid(riqi,7,2) 或 Val(mid(riqi,7) 第處st = Str(year) + 年 + Str(month)

12、 + 月 + Str(day) + 日rn = False 用于判斷是否為閏年 If year mod 400 =0 Then rn = True 第處 If year Mod 4 = 0 And year Mod 100 0 Then rn = True hefa = True 用于判斷是否為合法日期 If month = 0 Or month 12 Then hefa = False If day = 0 Then hefa = False If (month = 1 Or month = 3 Or month = 5 Or month = 7 Or 與下一行語句同行month = 8 O

13、r month = 10 Or month = 12) And day 31 Then hefa = False If (month = 4 Or month = 6 Or month = 9 Or month = 11) 與下一行語句同行 And day 30 Then hefa = False If month=2 And rn=true And day29 Then hefa = False 第處,判斷閏年2月的天數(shù)是否合法 If month = 2 And Rn = False And day 28 Then hefa = FalseIf hefa = True Then st = s

14、t + 合法日期 Else st = st + 非法日期List1.AddItem stEnd Sub第處代碼為 第處代碼為 第處代碼為 9. 編寫VB程序代碼，實現(xiàn)如下功能：在文本框Text1中輸入金額(整數(shù))后，點擊“轉(zhuǎn)換”按鈕Command1，則在文本框Text2中顯示該金額的大寫，程序運行界面如下圖所示:（1）要使窗體標(biāo)題上顯示的文本改為“人民幣大小寫”，可在其屬性窗口中將 Caption 屬性的屬性值改為“人民幣大小寫”。（2）為了實現(xiàn)以上程序功能，使程序正常運行，請完善以下兩處代碼。Private Sub Command1_Click()Dim dx As String, dw A

15、s String Dim s As String, c As StringDim ch As StringDim i As Integerdx = 零壹貳叁肆伍陸柒捌玖拾dw = 億仟佰拾萬仟佰拾元s = Text1.Text If Len(s) 9 Then Text2.Text = 輸入的數(shù)據(jù)超出所能轉(zhuǎn)換的范圍Else For i = 1 To Len(s) ch = Mid(s, i, 1) c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1) Next i Text2.Text = c + 整End IfEnd Sub

16、 （3）由上述算法可知，若在文本框Text1中輸入“20”，則文本框Text3顯示的結(jié)果為 貳拾零元整。 110. 現(xiàn)要求編寫VB程序，界面如第10題-1圖所示，程序功能如下：單擊開始暫時按鈕Command1，圖像控件Image1中的圖片每隔5秒更換一張，再次單擊Command1按鈕，停止展示。 3 2 4 第10題-1圖 第10題-2圖（1）為達到每隔5秒更換一張圖片的效果，應(yīng)使用第10題-2圖所示的空間工具箱中的 3 (填寫相應(yīng)的編號)，并將其Interval屬性值設(shè)置為 5000 。（2）請根據(jù)題意講下列程序補充完整Private Sub Command1_Click () Dim i As Inte