题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-12-08 04:30:53

[填空题]以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本框控件(注意:拖动时,文本框移动的距离和方向由鼠标指针移动的距离和方向来确定),按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer,Shift As Integer,_ X As Single,Y As Single) If Button=1 Then Text1.Left= 【11】 Text1.Top= 【12】 End If End Sub Private Sub Form_ MouseDown (Button As Integer,Shift As Integer,_ X As Single,Y As Single) If 【13】 Then yx=Text1.Left-X yy=Text1.Top-Y End If If Button=2 Then Text1.Text=“X坐标:”+Str(Text1.Left)+“Y坐标:”+Str(Text1.Top) End If End Sub

更多"以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利"的相关试题:

[填空题]在窗体上画两个文本框,名字分别为Text1和Text2,然后编写下列程序。程序运行后,如果在文本框 Text2中输入lmn,那么在文本框Text1中显示的内容将是 【8】
Private Sub Form_Load( )
Show
Text1.Text=" "
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAseii As Integer)
Text1.Text=Text1.Text+Chr(KeyAscii-5)
End Sub
[填空题]在窗体上画两个文本框,然后编写程序。程序运行后,如果在第一个文本框中输入A、B、 C、D或a、b、c、d,则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load( )
Show
Text1.Text=" "
Text2.Text=" "
Text1.SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Text2.Text= 【11】
End Sub
[填空题]

在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click( )
Dim str As String,s As String,c As String
str=UCase(Text1)
S=""
C="Z"
While c>="A"
If lnStr(str,C)=0 Then
s= 【1】
End If
c=Chr$(Asc(C) 【2】 )
Wend
If s<>""Then
Text1=S
End If
End Sub


[单项选择]在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是( )。
A. Private Sub Text1 Change()
B. Private Sub Text1 Click()
C. Private Sub Text1 Change()
D. Private Sub Labe1 1_Change()
[单项选择]在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是()。
A. Private Sub Text1_Change( )     Label1.Caption=Str(Len(Text1.Text))     End Sub
B. Private Sub Text1_Click( )     Label1.Caption=Str(Len(Text1.Text))     End Sub
C. Private Sub Text1_Change( )     Label1.Caption=Text1.Text     End Sub
D. Private Sub Label1_Change( )     Label1.Caption=Str(Len(Text1.Text))     End Sub
[单项选择]在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为______。
A. Text1.Clear
B. Text1.Visible=False
C. Text1.Hide
D. Text1.Enabled=False
[填空题]窗体有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后,如果单击命令按钮,则可打开磁盘文件c:/test.txt,并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序,请填空。
Private Sub Command1_Click( )
Text1=" "
Number=FreeFile
Open"c:/test.tXt"For Input As Number
Do while Not EOF(______)
Line Input # Number,s
Text1.Text=Text1.Text+______+Chr(13)+Chr(10)
Loop
Close Number
End Sub
[填空题]

窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后,如果单击命令按钮,则可打开磁盘文件c:/test.txt,并将文件中的内容(多行文本) 显示在文本框中。下面是实现此功能的程序,请填空。
Private Sub Command1_Click( )
Text1=""
Number=FreeFile
Open "c:/test.txt" For Input As Number
Do While NotEOF( [14] )
Line Input #Number,s
Text1.Text=Text1.Text+ [15] +Chr(13)+Chr(10)
Loop
Close Number
End Sub


[填空题]在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在______处填入适当的内容,将程序补充完整。 Private Sub Form_Load( ) Command1.Enabled=False End Sub Private Sub Text1_ ______( ) Command1.Enabled=True End sub

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码