On ______, my mother earns 5000 yuan a month.
下列程序中 s = s + j 语句共执行了______次。Dim s As IntegerDim i As Integer, j As IntegerFor i = 1 To 10 Step 2For j = 1 To 5 Step 2s = s + jNext jNext iPrint s
The professor, as well as his assistants, (do) _______the experiment in the lab forty hours a week.
2.I’m afraid I cannot ______ two hours for the film tonight.
When allowed to sleep, volunteers who were kept awake as many as 100 hours dreamed __________ than usual.
如下定义一含 10个元素的一维数组kk,并且对每一元素赋初值为 1 ，请填空： dim kk(0 to 9) as integer __________ for i =0 to 9 kk(i)=1 ________ __________
求1！+2！+……+10!的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 _____________ Next Print y End Sub
执行下面的程序，在窗体上显示的输出结果的第一行是____,第二行是____. Option explicit Private sub form_click() Dim I as integer, j as integer J=10 For I=1 to j I = I+1 J = j - i Next I Print I Print j End Sub
以下程序段执行后， k 的值为 ____________ 。 Dim i, k As Integer k = 3 For i = 1 To 10 Step 3 k = k + 1 Next i
I’ve been waiting for him for____hour and ________half.
--"I bought this shirt for 35 yuan yesterday." --"It's on sale today for onlyYou should have waited." --" Oh, really？ But how _________ I know."
—Don’t push me too hard．I’ll do it as fast as I can． —okay，______．But we only have about half an hour．
We can I earn from Paragraph 2 that the An family ______.
As for the_______flights, all passengers should check in at least two hours before the scheduled boarding time.
—Could you lend me some money, Jack？—Sorry, Mike. I myself can't earn enough to______.
I know this job of mine isn't well paid, ______, I don' I have to work long hours.
以下程序的输出结果为______。 Dim a（10) As Integer, p（3), i, k As Integer For i = 1 To 10 a（i) = 2 * （i - 1) + 1 Next i For i = 1 To 3 p（i) = a（i * i) Next i For i = 1 To 3 k = k + p（i) 2 Next i MsgBox（k)
4、下面程序段运行后，i的值为_________。 Dim i as Integer i = 4 Do i = i + 2 Loop While i ＜ 10
I _____ get a ticket myself _____ wait here for hours in despair（）
It’s true that I don’t earn enough money, but you are __________ than I —— you can hardly keep body and soul together.
求s=1+1×2+1×2×3+…+1×2×3×…×10， 并将结果存到变量s中。请在_________处填上适当的内容，完善程序。 Private Sub Form_Click（) Dim i, j As Integer Dim k As Long s = 0 For i = 1 To 10 k = ____________ For j = 1 To i k = k*j Next j s = s+k Next i Print “s=”;s End Sub
下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click（) Dim i As Integer Open ______ As 1 For i=1 To 10 Prin t1,i Next Close 1 End Sub
下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素。完成下列程序。 Private Sub Backward（a（))Dim i As Integer, Tmp As IntegerFor i=1 To 5 Tmp=a（i) ______ ______Next i End Sub
以下程序用Array（)函数建立了含有10个元素的数组，然后找出并输出了其中的最大值和最小值。 Option Base 1 Private Sub Form_Click（) Dim a Dim max As Integer, min As Integer, i As Integer a = Array（13, 17, -11, 4, 8, 10, 20, -9, 15, 21) max = a（1) min =______（1)______ For i = 2 To 10 If a（i) ＞ max Then ______（2)______ End If If a（i) ＜ min Then ______（3)______ End If Next i Print max, min End Sub
