举一反三
- 下列程序运行后输出结果是_______. 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
内容
- 0
下面程序的输出结果是（ ）Private Sub proc(ch As String) s = "" For k = Len(ch) To 1 Step -1 s = s & Mid(ch, k, 1) Next k ch = sEnd SubPrivate Sub Command1_Click() ch$ = "ABCDEF" proc ch Print ch End Sub A: ABCDEF B: A C: FEDCBA D: F
- 1
有如下程序代码 Private Sub Command1_Click( ) Dim A(2 To 7) As Integer Dim i As Integer For i = 2 To 7 A(i) = i Next i print A(i - 2) End Sub 以上程序的执行结果是( )。
- 2
Private Sub Command1_Click() Dim t(4) as Integer For i=1 to 4 t(i)= i+1 Next i End Sub 上面程序运行后,t(1)的值是______
- 3
为计算的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Command1_Click Dim a%, s%,k% s=1 a=2 For k=2 To 10 a=a*2 s=s+a Next k Text1.Text=s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应该做的修改是/ananas/latex/p/415072
- 4
一级速率消除药物的生物半衰期t与消除速度常数k之间的关系（） A: t<sub>1/2</sub>=0.693×k B: t<sub>1/2</sub>=0.693/k C: t<sub>1/2</sub>=k/0.693 D: t<sub>1/2</sub>=0.693+k E: t<sub>1/2</sub>=0.693-k