题目内容
（请给出正确答案）
A)This．ThisForm．Text1．Value
B)This．Parent．Parent．Text1．Value
C)Parent．Parent．Text1．Value
D)This．Parent．Text1．Value
如果结果不匹配，请 联系老师 获取答案
更多“假定一个表单里有一个文本框Text1和一个命令按钮组Comm…”相关的问题
A.108
B.18
C.810
D.出错
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的是（）。
A. 2
B. 3
C. 4
D. 5
A.Text1.Clear
B.Text1.Visible=False
C.Text1.Hide
D.Text1.Enabled=False
Private Sub Command1_Click()
Dim x!, y!, z!, t!
x = Text1
y = Text2
z = Text3
If x< y then
t = x
x = y
y = t
End If
If y< z then
t = y
y = z
z = t
If x< y then
t = x
x = y
y = t
End If
End If
Label1.Caption = x & "," & y & "," & z
End Sub
当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为()
A.3,5,8
B.5,3,8
C.8,5,3
D.3.8.5
在名称为Form1
的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。
A．abcEFG
B．abcefg
C．ABCefg
D．ABCEFG
A．Private Sub Text1_Change（）
Command1.Caption = "计算机等级考试"
End Sub
B．Private Sub Command1_ Click （）
Caption = "计算机等级考试"
End Sub
C．Private Sub Form1_ Click （）
Text1.Caption = "计算机等级考试"
End Sub
D．Private Sub Command1_ Click （）
Text1.Text = "计算机等级考试"
End Sub
编写一个程序，输入货物的数量及单价，求总价，并输出。程序界面如下图所示。
.jpg)
窗体标题设置为“售货机”，窗体上的两个标签(分别命名为Lab1和Lab2，标题为“货物的数据量(个)：”和“贸物的单价(元)：”)”两个文本框分别命名为Text1和Text2，命令按钮名称为Cmd1(标题为“总价=”，结果显示在名为Pic1的图片框中)。当用户输入货物的数量与单价后，单击“总价=”按钮，输出正确的结果。
注意：
在存盘时，工程文件名为execise60.vbp，窗体文件名为execise60.frm。
设窗体上有text1文本框和Command1命令按钮，并有以下程序：
Private Sub Command1_Click()
Temp$=””
For k=1 to len(text1)
Ch$=mid(text1,k,1)
If not found(temp,ch)then
Temp=temp&【13】
End If
Next k
Text1=【14】
End Sub
Private function found(str as string,ch as string)as Boolean
For k=1 to len(str)
If ch=mid(str,k,1)then
Found=【15】
Exit function
Next k
Found=false
End function
运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空
A.stu.mdb
B.学生信息表
C.姓名
D.data1
