请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Textl.Text="VB程序设计"
End Sub
Private Sub Textl_Change()
Picturel.Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
答案
VB程序设计VB programming
VB程序设计,VB programming 解析：文本框内容是因窗体的dlink事件而改变，而PictureBox内容是因文本框内容的改变而改变的。
更多“在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（) Textl.”相关的问题
第1题
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picturel.Print"等级考试" End Sub 程序运行后，在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
第2题
在窗体上画一个文本框和—个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text="VB程序设计" End Sub Private Sub Text1_Change() Picture1.Print"VB programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
第4题
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
第5题
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)， 然后编写如下事件过程： Private Sub Command1 Click() Text1．Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为【 】和【 】。
第6题
第7题
在窗体上画一个文本框和一个命令按钮，如下图所示。
.jpg){kind=spacer}
编写如下程序： 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，程序输出的结果是【 】。
第8题
第9题
.jpg){kind=spacer}
Privte Sub Combo1_Click() Call Showltem(Comb01.Label1) End Sub Private Sub Combo2_Click() Call Showltem(ComboLabe12) End Sub Public Sub Showhem(tmpCombo As ComboBox，tmpLabd As Label)， 【 】Caption=【 】.Text End Sub
第10题
第11题
在窗体上画一个文本框(其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
