题目内容
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
Private Sub Form_load()
Text1.Text=″″
Text1.SetFocus
For i=1 To 9
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
查看答案
搜索结果不匹配？点我反馈
更多问题
有如下函数过程:
Function Fun(By Val x As Ingeger, ByVal y As Integer)As Integer
Do While … y ＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程,该程序的运行结果是
Private Sub Command1
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub
SECTION 2 (10 points)
Listen to the following short statements and then choose one of the answers that best fits the meaning of each statement. There are 10 questions in this section, 1 points for each question. You will hear the recording only ONCE.
听力原文：If he should fail to come in time, ask Bob to work in his place.
Under what circumstances would Bob replace him？
听力原文：How disappointed my mother was when I showed her my homework!
Why was my mother disappointed？
My parents' generation believed in the infinite possibilities of America.
微信支付 
支付宝支付