更多"程序是一个窗体双击事件代码,窗体的名称是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
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (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_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中。例如,若在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的文本框,一个名称为Command1的命令按钮。窗体文件的程序 如下: Private Type x a As Integer b As Integer End Type Private Sub Command1_Click( ) Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序,下列叙述中错误的是( )。
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数,b的值为该偶数的平方
D. Fix(a/2)把a/2的小数部分四舍五入,转换为整数返回
[单项选择]在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码:
Private Sub Command1_Click( )
k = 0
Do While k < 70
k = k + 2
k = k * k + k
a = a + k
Loop
Text1.Text = a
End Sub
程序运行后,文本框中显示________。
(A) 20
(B) 32
(C) 44
(D) 78
[填空题]在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运 行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未 在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在 Text1中输入的是abDfdb,则单击Command1按钮后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 InStr(str, C)= 0 Then s = _________
End If
c = Chr$(Asc( C)_________ ) Wend
If s <> "" Then
Text1 = s
End If
End Sub