VB程序设计多试题及答案资料.doc
150页1、9、Visual Basic程序改错81. 程序功能:求s=1+3+5+7+.直到s2000为止。程序中有两行有错误。改正错误,使它能输出正确的结果。 (2025) 平方和Private Sub Form_Click()Dim i As Integer, s As Longs = 0 : i = 1Do Until s 2000 ; i+22. 程序功能:计算s=2!+4!+8!。程序中有两行有错误。改正错误,使它能输出正确的结果。 (40346)Private Sub Command1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0i = 1Do While i = 3t = 1k = 1While k = 2*it = t * kk = k + 1Wends = s + ti = i + 1wendPrint sEnd Sub答案:k=2i ; loop 3. 程序功能:计算s=2!+4!+6!+8!。程序中有错误。改正错误,使它能输出正确的结果。 (41066)Private Sub Comma
2、nd1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0 : i = 1Do While i = 4t = 1k = 1While k = 2it = t * kk = k + 1Wends = s + ti = i + 1wendPrint sEnd Sub答案:k=2*i ; loop4. 程序功能:求200到400间,能被整除但不能被整除的数的个数。程序中有两行有错误。改正错误,使它能输出正确的结果。(57)Private Sub Command1_Click()Dim count As IntegerDim x As Integercount = 0x = 200 While x = 400If x Mod 3 = 0 or x Mod 7 0 Thencount = count + 1End Ifx = x + 1LoopPrint countEnd Sub答案: and ; wend5. 程序功能:求1到400间,同时能被3和7整除的数的个数。程序中有两行有错误。改正错误,使它能输出正确的结
3、果。(19)Private Sub Form_Click()Dim count As IntegerDim x As IntegerFor x = 1 To 400if mod(x,3)=0 and mod(x,7)=0 thencount = count + 1end ifNext countPrint countEnd Sub 答案:x Mod 3 = 0 And x Mod 7= 0; x6. 程序功能:求能被3整除且至少有一位数字为5的三位数的个数。程序中有两行有错误。改正错误,使它能输出正确的结果。(85)Private Sub Command1_Click()Dim count As IntegerDim a As Integer, b As Integer, c As IntegerDim x As Integerx = 100do While x = 999If x Mod 3 = 0 Thena = Int(x / 100)b = Int(x - a * 100) / 10)c = x - a * 100 - b * 10If a = 5 and b = 5 and
4、c = 5 Thencount = count + 1End IfEnd Ifx = x + 1wendPrint countEnd Sub答案:a = 5 or b = 5 or c = 5 ; loop7. 程序功能:求三位偶数中,个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。程序中有两行有错误。改正错误,使它能输出正确的结果。(45) 奇数都是45Private Sub Command1_Click()Dim count As IntegerDim a As Integer, b As Integer, c As IntegerDim x As Integercount = 0x = 100While x = 2000x = x + 2s = s + x * xloopPrint xEnd Sub 答案:s=2000 ; x = x + 19. 程序功能:解百马百瓦古题。大、小马和马驹共100匹,共驮100片瓦。大马一驮三,小马一驮二,马驹二驮一,一次驮完,三种马都驮,共有多少种组合? 程序中有三行有错误。改正错误,使它能输出正确的结果。( 6 )Private
《VB程序设计多试题及答案资料.doc》由会员marr****208分享,可在线阅读,更多相关《VB程序设计多试题及答案资料.doc》请在金锄头文库上搜索。
2023-10-23 12页
2023-06-23 19页
2024-01-04 14页
2023-02-06 11页
2022-08-06 14页
2024-01-18 14页
2022-12-29 14页
2024-02-28 13页
2023-11-01 13页
2022-08-12 13页