在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load()
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picturel.Print"等级考试" End Sub 程序运行后,在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picturel.Print"等级考试" End Sub 程序运行后,在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
在窗体上画一个文本框和—个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print"VB programming" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
【题目描述】
第 42 题在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:
程序运行后,在文本框中显示的内容是(),而在图片框中显示的内容是() 。
【我提交的答案】:
【参考答案分析】:VisualBasic,级等级考试
【解析】程序运行使文本框内出现“Visual Basic”,这又触发Textl_Change()事件,这个事件的处理程序调用Picturel的Print方法,将字符串输出到图片框,从而在图片框内输出字符串“二级等级考试”。
【我的疑问】(如下,请求专家帮助解答)
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中,则能够触发KeyPress事件的操作是______。
A.单击鼠标
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1), 然后编写如下事件过程: Private Sub Command1 Click() Text1.Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分别输入123和abc,则两个文本框中显示的内容分别为【 】和【 】。
在窗体上画一个文本框和一个命令按钮,如下图所示。
编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1)); End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序,理解每个事件过程的操作,然后填空。 ①程序运行后,直接从键盘上输入abc,程序输出的结果是【 】。 ②程序运行后,单击一次“命令按钮1”,然后从键盘上输入abc,程序输出的结果是【 】。
在窗体上画一个文本框(其Name属性为Text1),编写如下事件过程,运行结果是______。 Private Sub Form_Load() Show Text1.Text="你好!" Text1.SetFocus For i=1 To 15 Sum=Sum+i Next i Text1.Text=Sum End Sub