单项选择题

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1,文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
x=Int(Val(Text1.Text)+0.5)
Label1.Calffion=Str(x)
End Sub
程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是______。

A．27
B．28
C．29
D．30

<上一题目录下一题>

热门试题

单项选择题

在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序： Private SUb fune(L As Label，By Val a As Integer) L.Caption= 1234 a=a*a End Sub Private Sub Form Load() Labe11.Captlon= ABCD Labe12.Capfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell，

A．
Labe12.Caption=a
End Sub
程序运行后，单击命令按钮，在两个标签Labe11和Labe12中显示的内容分别是______。A) ABCD和10
B．1234和100
C．ABCD和100
D．1234和10

单项选择题

在窗体上画一个命令按钮，然后编写如下程序： Sub S1(By Val x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=r End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print a= ; b= ;b End Sub 程序运行后，单击命令按钮,．输出结果是______。

A．a=30 b=10
B．a=30 b=30
C．a=10 b=30
D．a=10 b=10

相关试题