题库 高中信息

题干

在Visual Basic中,下列语句定义错误的是:(   )
A.const g="9.8" B.Dim False As Boolea
C.Dim b(1 to 5) As StringD.Dim y As Long
上一题 下一题 0.99难度 选择题 更新时间:2015-11-25 09:21:50

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

同类题2

小明设计了一个名为“购物街”的程序,该程序功能如下:程序开始运行时显示一张商品图片,变量x存储商品价格,在文本框“Text1”输入猜测的价格y,点击“确定”按钮,判断输入的价格y与商品价格x的大小关系,并给出提示。当输入的价格y大于或小于x时,在“猜测情况”Label5中分别显示“太大”或“太小”的提示信息,当输入的价格y等于x时在“猜测情况”Label5中显示“恭喜你猜对了!”同时“Command1”按钮变为不可用。在“Label4”显示剩余猜测次数,程序提供5次猜测机会,当猜测次数为零时“Command1”按钮变为不可用。运行界面如图所示:

图1
(1)应用程序界面设计时,为添加标签对象,应使用图1所示的“控件工具箱”中的________(填写相应编号)。代码“Private Sub Form_Load()”中的load指的是________事件。
(2)请根据题意将下列程序补充完整。
①处应填写的代码为:______________________________________
②处应填写的代码为:______________________________________
Dim x As Integer
Dim t As Integer
Private Sub Form_Load()
t=5    ’初始化猜测次数
x=14    ’初始化商品价格
Command1.Enabled=True
Label4.Caption=Str(t)
End Sub
Private Sub Command1_Click()
t=________
If t=0 Then
Command1.Enabled=False
End If
Label4.Caption=Str(t)
Dim y As Integer
y=Val(Text1.Text)
If ________ Then
Label5.Caption=“太大”
ElseIf y<x Then
Label5.Caption=“太小”
Else
Label5.Caption=“恭喜你对了!”
Command1.Enabled=False
End If
End Sub