填空题

有如下事件过程:
Private Sub Form Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为 【14】 。

【参考答案】

24 6
<上一题 目录 下一题>
热门 试题

填空题
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,... ,90。请在空白处填入适当的内容,将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click( ) Dim Y As Single Open 【15】 Y=3. 14159 180 For i=1 To 90 Ksc. K=i Ksc. Sinx = Sin ( i * Y) Ksc. Cosx = Cos ( i * Y) Put #2, i, Ksc Next i Close #2 End Sub
填空题
下面程序的功能是统计字符串中“i”的个数,请填空。 Sub COU( ) Dim n As Integer a$ = Beijing University of Technology n = Len(a$ ) For i = 1 To n b$ =Mid$(a$,i, 1) If 【11】 Then x=x + 1 Next Print x = ; x End Sub
相关试题
  • 单击命令按钮时,下列程序的执行结果是 Pr...
  • 若要求从文本框中输入密码时在文本框中只显...
  • 如果在程序中要将c定义为静态变量,且为整...
  • 下列程序执行后,变量a的值为 Dim a,b,...
  • 为了在列表框中使用Ctrl和Shift键进行多个...