Private Sub Form_Click() k = 0: a = 0 Do While k < 70 k = k + 2 k = k * k + k a = a + k Loop Print a,k End Sub
举一反三
- 运行下列程序，单击窗体后显示结果为（ ）。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); Next End Sub
- If k is integer, how many times will the following "while" loop be executed?k = 50 while k >; 1: print(k) k = k // 2 A: 3 B: 4 C: 5 D: 6
- 以下能正确计算1╳2╳3╳…╳10的程序段是( )。 A: do<br/>{ k=1;n=1;n=n*k;k++;}while(k B: do<br/>{ k=1;n=0;n=n*k;k++;}while(k C: k=1;n=1;do<br/>{ n=n*k;k++;}while(k D: k=1;n=0;do<br/>{ n=n*k;k++;}while(k
- 以下能正确计算1╳2╳3╳...╳10的程序段是( A: do{k=1；n=1；n=n*k；k++；}while（k<=10）； B: do{k=1；n=0；n=n*k；k++；}while（k<=10）； C: k=1；n=1；do{n=n*k；k++；}while（k<=10）； D: k=1；n=0；do{n=n*k；k++；}while（k<=10）；
- 以下能够实现计算5！的程序段是（ ） A: int fac=1,k=0;do{ k++; fac*=k;} while(k<;5); B: int fac=0,k=1;do{ fac*=k; k++;} while(k<;5); C: int fac=1,k=1;do{ k++; fac*=k;} while(k<;=5); D: int fac=1,k=0;do{ fac*=k; k++;} while(k<;5);