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

更多"在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、"的相关试题:

[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为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

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click（　） a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
A. 108
B. 18
C. 810
D. 出错

查看答案

[单项选择]在窗体中添加两个文本框，其名称分别为Text1和Text2;两个标签，其名称分别为Label1和Label2。编写程序，使得程序运行后，在文本框Text2中输入小写字母，能转换为比此字母的ASCII码小4的大写字母，结果显示在文本框Text1中。如输入“efg”，则输出的结果为“ABC”，能够实现上述功能的程序是
A. Private Sub Form Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1．Text=Chr(KeyCode-4) End Sub
B. Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer，Shift As Intege Text1．Text=Text1．Text+Chr(KeyCode-4) End Sub
C. Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1．Text=Text1．Text+Chr(KeyCOde-4) End Sub
D. Private Sub Form_Load() Show Text1．Text=" " Text2．Text=" " Text2．SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer，Shift As Intege Text1．Text=Chr(KeyCode-4) End Sub

查看答案

[单项选择]在窗体上画一个命令按钮和两个标签，其名称分别为Command1、Label1和Label2，然后编写如下事件过程：
Private Sub Command1_Click（　）
a=0
For i=1 To 10
a=a+1:b=0
For j=1 To 10
a=a+1:b=b+2
Next j
Next i
Label1.Caption=Str(

查看答案

[单项选择]在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是
A. Private Sub Text1_Click()
B. Private Sub Text1_Change()
C. Private Sub Label1_Change()
D. Private Sub Label1_Click()

查看答案

[单项选择]在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String 　　Str=Chr(KeyAscii) 　　KeyAscii=Asc(UCase(str)) 　　Text1.Text=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母"b"，则在文本框Text1中显示的内容是
A. bbb
B. BBB
C. BB
D. bb

查看答案

[单项选择]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句：_______。
A. Text1.Clear
B. Text1.Locked=True
C. Text1.Visible=False
D. Text1.Enabled=True

查看答案

[单项选择]在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句是______。
A. Text1.Clear
B. Text1.Locked=True
C. Text1.Visible=False
D. Text1. Enabled=True

查看答案

我来回答:

提交