更多"程序是一个窗体双击事件代码,窗体的名称是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
[单项选择]窗体上有一个命令按钮和一个文本框,程序执行后,在文本框中输入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
[单项选择]在窗体上画一个文本框(名称为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
[填空题]在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的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
[单项选择]在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim Save All As String Private Sub Command1_Click( ) Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框中显示的内容为 ______。
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上画一个命令按钮和一个文本框,并将窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load( )
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Command1_Click( )
Text1.Text = Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在键盘上输入abcdefg,单击命令按钮,则文本框中显示的内容为
A. abcdefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]窗体上有一个名称为Text1的文本框,一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
A. Text1.AddItem Combo1.Text
B. Combo1.AddItem Text1.Text
C. Combo1.Text=Text1.Text
D. Text1.Text=Combo1.Text