填空题
有如下事件过程:
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
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
下面程序的功能是统计字符串中“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
点击查看答案&解析
填空题
下列程序的功能是:将数据1,2,..,8写入顺序文件Num. txt中请补充完整。 Private Sub Form_Click ( ) Dim i As Integer Open Num. txt For Output As #1 For i = 1 To 8 【13】 Next Close #1 End Sub
点击查看答案&解析
相关试题
若要求从文本框中输入密码时在文本框中只显...
下列各选项说法错误的一项是
产生[10,27]之间的随机整数的Visual...
在单链表中,增加头结点的目的是
各种运算符间的优先顺序从高到低是