题目内容
（请给出正确答案）
在窗体上画一个文本框(其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
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画一个文本框（其Name属性为Text1)，编写如下…”相关的问题
假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。 Private Sub Command1_Click() 【 】Form1 Form2.【 】 End Sub
在窗体上画一个文本框，然后编写如下事件过程：
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
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
A.108
B.18
C.810
D.出错
在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。
A．单击鼠标
B．双击文本框
C．鼠标滑过文本框
D．按下键盘上的某个键
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项＜控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId；InxId+1 【 】mnuDyn(InxID) mnuDyn(InxlD)，Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【 】Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picturel.Print"等级考试" End Sub 程序运行后，在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【 】和【 】、【 】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【 】) If a(j)【 】5=0 Then【 】 Print a(j) Next j Print print k/100 End Sub
