更多"程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个"的相关试题:
[填空题]程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为text1的文本框,用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除;重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕,可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为Text1的文本框,用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除;重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕,可再双击窗体”
End Sub
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1),代码如下。请填入适当的内容,将程序补充完整。
Private Sub Combo1_Cliek( )
Text1. FontName=Combo1. List(Combo1. Listlndex)
End Sub
Private Sub Form_Load( )
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
·Addltem"楷体_GB2312""
·Listlndex=0
End With
Text1. 【8】 30
Textl. 【9】 =Combol.List(0)
End Sub
[填空题]以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本框控件(注意:拖动时,文本框移动的距离和方向由鼠标指针移动的距离和方向来确定),按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
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
[单项选择]窗体上有一个命令按钮和一个文本框,程序执行后,在文本框中输入12345,单击命令按钮后的输出结果为( )。
Private Sub Command1_Click( )
Dim A As Integer,B As Integer
Text1.SelStart=2
Text1.SelLength=2
A=Val(Text1.SelText)
B=Len(Text1.Text)
Print A*B
End Sub
A. 68
B. 115
C. 170
D. 1170
[单项选择]窗体上有一个按钮和一个文本框,程序执行后,在文本框中输入12345,单击按钮后的输出结果为______。
Private Sub Command1_Cliek( )
Dim A As Integer, B As Integer
Text1.SelStart=2
Text1.SeILength=2
A=Val(Text1.SelText)
B=Len(Text1.Text)
Print A*B
End Sub
A. 68
B. 115
C. 170
D. 1170
[单项选择]在窗体上画一个文本框(名称为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( )
B. Private Sub Text1_Click( )
C. Private Sub Text1_Change( )
D. Private Sub Label1_Change( )
[填空题]在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),即命令按钮,程序可找出在文本框中输入的其他所有英文字母,并以大小写方式降序显示到Text1中,显示的字符串是ZYXWUTSRQPONMLKJIHGEC。请填空。
Private Sub Oommandl_Click( )
Dim str As String, s As String, c As String
str=UCase(Text1)
s=""
c="Z"
While c>="A"
If InStr(str, c)=0 Then
s=【8】
End If
c=Chr $(Asc(C)【9】)
Wend
If s<>"" Then
Text1=s
End If
End Sub