窗体上有一个文本框Text1,为了在程序运行后将其隐藏,应使用语句()。
A.Text1.Clear
B.Text1.Visible=False
C.Text1.Hide
D.Text1.Enabled=False
A.Text1.Clear
B.Text1.Visible=False
C.Text1.Hide
D.Text1.Enabled=False
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是()。
A. 2
B. 3
C. 4
D. 5
A.108
B.18
C.810
D.出错
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
设窗体上有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。请填空
在名称为Form1的窗体上添加一个名称为Text1的文本框;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Show和Hide,标题分别为“显示”、“隐藏”,请编写适当的事件过程,使程序运行时,单击“隐藏”菜单项,文本框消失;单击“显示”菜单项,文本框重新出现,程序运行后的窗体如图所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sit2.vbp,窗体文件名保存为sjr2.frm。
A.abcEFG
B.abcefg
C.ABCefg
D.ABCEFG
编写一个程序,输入货物的数量及单价,求总价,并输出。程序界面如下图所示。
窗体标题设置为“售货机”,窗体上的两个标签(分别命名为Lab1和Lab2,标题为“货物的数据量(个):”和“贸物的单价(元):”)”两个文本框分别命名为Text1和Text2,命令按钮名称为Cmd1(标题为“总价=”,结果显示在名为Pic1的图片框中)。当用户输入货物的数量与单价后,单击“总价=”按钮,输出正确的结果。
注意:
在存盘时,工程文件名为execise60.vbp,窗体文件名为execise60.frm。
在窗体上画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”,则结束程序。请填空。
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
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。