某人设计了如下程序用来计算并输出7!(7的阶乘) Private Sub Command1_Click() t=0 For k=7 To 2 Step -1 t=t*k Next k Print t End Sub 执行程序时,发现结果是错误的,下面的修改方案中能够得到正确结构的是
举一反三
- 下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
- 下面程序的输出结果是 Private Sub Command1_Click() ch$="ABCDEF" proc ch Print ch End Sub Private Sub proc(ch As String) S="" For k=Len(ch) To 1 Step-1 s=s & Mid(ch,k,1) Next k ch=s End Sub
- 在窗体上添加一个文本框，名称为text1，然后编写如下的load事件过程，则程序的运行结果是__________。 Private Sub Form_Load Text1.Text="" Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End Sub
- 窗体的单击事件过程如下：Private Sub Form_Click() K = 1 For i = 5 To 1 Step -1 T = T * 10 + K S = S + T Next i Print SEnd Sub运行程序时，单击窗体后，显示的是 A: 12345 B: 54321 C: 0 D: 11111
- 计算π近似值的一个公式是，某人编写下面的程序用此公式计算并输出π的近似值： Private Sub Command1_Click PI=1 Sign=1 n=20000 For k=3 To n Sign=-Sign PI=PI+Sign/k Next k Print PI*4 End Sub 运行后发现结果为3.22751,显然，程序需要修改。下面修改方案中正确的是？/ananas/latex/p/415067