每日一练:计算机二级考试Visual Basic每日一练(2018/12/22)
【填空题】在窗体上画一个命令按钮,名称为Command1,Caption属性设 置为“确定”,画3个标签Label1、Label2和Label3,在label1中输入“这是一个绝对值的程序”,在Label2中输入“请输入x的 值”,Label3将输出本题 结果,再画一个文体框,名称为Textl,用于输入x的值。当在文本框Textl输入一个负数,然后“确定”按钮,则在标签Label3中将输出该数的绝 对值及信息,程序有运行情况如图2-3所示。请在[1]和[2]处填入适当的内容,将程序补充完整。(要求不用取绝对值函数)
Private Sub Commandl_Click()
Dim x As Single
x=Val(Text1.Text)
Label3.Caption="x=&x
If x<0 Then[1]
Label3.Caption=[2]+", x的绝对值是" &x
End Sub
在下面提交答题后即可查看答案与试题解析
发布评论 查看全部评论