以下程序段的运行结果是 PrivateSubForm_Click()DimsAsLong,fAsLongDimnAsInteger

题干

以下程序段的运行结果是
Private Sub Form_Click()
Dim s As Long, f As Long
Dim n As Integer, i As Integer
f = 1
n = 4
For i =" 1" To n
f =" f" * i
s =" s" + f
Next i
Print "s="; s
End Sub

上一题下一题 0.99难度填空题更新时间:2015-12-23 03:22:06

答案(点此获取答案解析）

同类题5

在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()

x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

题干

答案(点此获取答案解析）

同类题1

同类题2

同类题3

同类题4

同类题5