刷题首页
题库
高中信息
题干
某 VB 程序代码如下:
Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text2.Text = "圆面积为:" + b
End Sub
在 Text1 中输入 3,单击命令按钮 Command1 后,将会出现的提示信息是:( )
A.类型不匹配
B.溢出
C.无效的过程调用或参数
D.未找到方法或数据成员
上一题
下一题
0.99难度 选择题 更新时间:2019-07-10 02:39:18
答案(点此获取答案解析)
同类题1
在某银行取款机上,用户银行卡密码验证的过程如下图所示:当用户输入密码时,若第1次输入错误,第2次输入才正确,则整个操作过程的执行流程是( )
A.①→②→③→④→⑤
B.①→②→③→④→⑥→⑦
C.①→②→③→④→⑥→②→③→④→⑤
D.①→②→③→④→⑥→⑦→②→③→④→⑤
同类题2
填空题:(共8分,每小题2分)。
(1) 本程序中,变量a、b 的数据类型都是___________(填写中、英文均可)。
(2)以上代码中,表示输出语句的是第____行。
(3)本程序中,代码a=a+b的含义是_____(选填Ⅰ或Ⅱ)。
选项:Ⅰ.把a的值赋给a+b
Ⅱ.把a加b的和赋给a
(4)若输入的两个数分别是10和20,则程序执行完毕,变量a的值是____,变量b的值是____。
同类题3
某客运公司为了合理地安排汽车运输,每年每月都会对汽车站的客运量进行统计,并保存到数据库。新的一年即将来临,客运公司准备制订明年的汽车排班计划。设计程序,从数据库中读取上一年的月客运量,并找出最大、最小月份,代码如下:
Dim a(1 To 12) As Integer
Private Sub Form_Load()
’本过程从数据库中读取上一年月客流量,并存储在数组a中,代码略
End Sub
Private Sub Command1_Click()
Dim max As Integer, min As Integer
Dim yx As Integer, yn As Integer
max = a(1)
min = a(1)
yx = 1
yn = 12 ……………………①
For i = 2 To 12
If a(i) >= max Then
max = a(i)
yx = i
End If
If a(i) <a(1) Then ………………②
min = a(i)
yn = i
End If
Next i
Label1.Caption =“客流量最大在第” + Str(yx) +“月,共” + Str(max) +“人,客流量最小在第” + Str(yn) +“月,共:” + Str(min) +“人”
End Sub
该程序①、②处有错误,请在画线处填写正确代码。
①_____________________②_____________________
同类题4
为使下面两段Visual Basic程序能实现相同的功能,左框内划线处的内容为( )
A.b =" a" + b
B.a =" b" – a
C.b =" b" - a
D.b =" a" - b
同类题5
Visual Basic规定窗体文件的扩展名是( )。
A..for
B..frm
C..vbp
D..bas
相关知识点
算法理论
面向对象程序设计 VB开发工具
VB应用程序的界面设计与调试