在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程: 程序运
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是()。
A. 2
B. 3
C. 4
D. 5
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是()。
A. 2
B. 3
C. 4
D. 5
第1题
A.Text1.Clear
B.Text1.Visible=False
C.Text1.Hide
D.Text1.Enabled=False
第2题
A.108
B.18
C.810
D.出错
第3题
编写一个程序,输入货物的数量及单价,求总价,并输出。程序界面如下图所示。
窗体标题设置为“售货机”,窗体上的两个标签(分别命名为Lab1和Lab2,标题为“货物的数据量(个):”和“贸物的单价(元):”)”两个文本框分别命名为Text1和Text2,命令按钮名称为Cmd1(标题为“总价=”,结果显示在名为Pic1的图片框中)。当用户输入货物的数量与单价后,单击“总价=”按钮,输出正确的结果。
注意:
在存盘时,工程文件名为execise60.vbp,窗体文件名为execise60.frm。
第4题
设窗体上有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。请填空
第5题
在窗体上画1个文本框,名称为Text1,然后编写如下程序:
Private Sub Form_Load()
Open"d:\temp\dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
lf【13】=13 Then
If UCase(Text1.Text)=______Then
Close 1
End
Else
Write#1,______
Text1.Text=""
End If
End If
End Sub
以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。
第6题
Private Sub Text1_LostFocus()
Call CheckInput(Text1,500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2,1000)
End Sub
Sub CheckInput(t As ?,x As Integer)
If Val(t.Text)>x Then
MsgBox"请重新输入!"
End If
End Sub
A.Text
B.SelText
C.Control
D.Form
第7题
在名称为Form1的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Show和Hide,标题分别为“显示”、“隐藏”,请编写适当的事件过程,使程序运行时,单击“隐藏”菜单项,文本框消失;单击“显示”菜单项,文本框重新出现,程序运行后的窗体如图所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sit2.vbp,窗体文件名保存为sjr2.frm。
第8题
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
第9题
A.abcEFG
B.abcefg
C.ABCefg
D.ABCEFG
第10题
现有一个已经建好的“fQuer;,”窗体,如下图所示。运行该窗体后,在文本框(文本框名称为tName)中输入要查询的医生姓名,然后单击“查询”按钮,即运行一个名为“qT4”的查询。“qT4”查询的功能是显示所查医生的“医生姓名”和“预约人数”两列信息,其中“预约人数”值由“病人ID”字段;范计得到,请设计“qT4”查询。