《vb程序改错》由会员分享,可在线阅读,更多相关《vb程序改错(5页珍藏版)》请在金锄头文库上搜索。
1、程序改错题第一题:题目:以下程序段用于输出100-300的所有素数-Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor n = 101 To 300 Step 2 k = Int(Sqr(n) i = 2*ERROR* swit = 1*ERROR* While swit = 0 If n Mod i = 0 Then swit = 1 Else*ERROR* i = i - 1 End If WendIf swit = 0 Then Pr
2、int n;End IfNext nEnd Sub答案【改错1】【参考答案】swit=0【改错2】【参考答案】While i=i And swit=0 While swit=0 And i=i【改错3】【参考答案】i=i+1第二题:题目:下面程序可输出如下图形: * * * * *-Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integern = 4m = 1s = *For i = 5 To 1 Step -1 *ERROR* Pr
3、int Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print *ERROR* n = n + 1 *ERROR* m = m - 1Next iEnd Sub【改错1】【参考答案】Print Spc(n);Print Spc(i);?Spc(n);?Spc(i)【改错2】【参考答案】n=n-1n=-1+n【改错3】【参考答案】m=m+1第三题:题目:以下程序段用于计算5的N次方。-Option ExplicitPrivate Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n )*ERROR* k = 0*ERROR* s = 0 Do While k 3000Print 从1 到:; i; 的和是; sEnd Sub答案【改错1】【参考答案】s=0【改错2】【参考答案】i=i+1【改错3】【参考答案】Loop until s3000 loop Until 3000 s