下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是________。PrivateSubCommand1__刷题宝

题干

下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是________。
Private Sub Command1_Click()
Dim t As Single, h1 As Single, h2 As Single
Const g = 9.8
t = Val(Text1.Text)
h1 = (g * t ^ 2) / 2
h2 = Int(h1)
Text2.Text = Str(h2)
End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-29 05:27:24

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

同类题1

（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then f = 1 Else f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（）

同类题2

（1）所谓算法是。
（2）VB界面设计一般包括     、     、     。
（3）描述算法的方法有3种，分别是     、     、     。
（4）VB是一种程序设计语言。
（5）abs（－3.8）＝        sqr（49）＝        int（－7.8）＝
（6）int（10*Rnd）表示

同类题3

写出下面流程图所表述的算法的功能▁▁▁▁

A．降序排序

B．求最大值

C．交换输出

D．判断是否是偶数

同类题4

以下流程图的运行结果是_______。

A．4 9	B．5 9
C．4 5	D．9 5

同类题5

有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s

相关知识点