更多"在窗体上画一个名称为Label1、标题为“Visual Basic考试"的相关试题:
[简答题]完成下列问题:
在名称为Form1的窗体上画一个名称为Label1、标题为“滚动条控件”的标签,一个名称为Hscroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最小值为1,最大值为100,滚动条的宽度为3000、高度为300,滚动块的初始位置为20。程序运行后的窗体如图1所示。
[*]
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.1frm。
[填空题]设计一个窗体,窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。
Private Sub Command1_Click( )
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]
窗体上有一个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有两个文本框,名称分别为Text1、Text2,一个名称为Command1的命令按钮,并有以下程序:
Private Sub Command1_Click( )
Dim str As String,s As String,k As Integer
s=Text1
str=""
For k=List1.ListCount-1 To 0 Step-1
IfInStr(List1.List(k),s)>0 Then
str=str&List1.List(k)&" "
End If
Next k
If str="" Then
Text2="没有匹配项目"
Else
Text2=str
End If
End Sub
程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是()。
A. 京
B. 北京 南京
C. 南京 北京
D. 没有匹配的项目
[填空题]程序是一个窗体双击事件代码,窗体的名称是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
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框,并把窗体的 KeyPreview 属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_ Load ( ) Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click( ) Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后,在键盘上输入ABCDEFG,单击命令按钮,则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[填空题]若窗体中已有一个名为Commandl的命令按钮、一个名为Label1的标签和一个名为Textl的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(X As Long)As Boolean
lf x Mod 2=0 Then
f=True
EIse
f=False
End If End Function
Private Sub Commandl click( )
Dim n As Long
n=Val(Me!bextl)
p=IIf(f(n),”Even number”,”Odd number”)
Me!Labell.Caption=n&”is”&P
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。
[填空题]若窗体中已有一个名为Comgiland1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f As Boolean
If x Mod 2=0 Then F=True
Else F=False
End If
End Function
Privare Sub Command1_Click( )
Dim n As Ling
n=Val(Me! text1)
p=Ilf(f(11),"Even number","Ddd number")
Me!Labell Caption=n &"is"& p
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。
[填空题]若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(x As Long) As Boolean
If x Mod 2=0 Then
f=True
Else
f=False
End If
End Function
Private Sub Command1_Click( )
Dim n As Long
n=Val(Me!text1)
p=IIf(f(n) ,“Even number”,“Odd number”)
Me!Label 1.Caption=n&“is”&p
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。
[填空题]在Visual Basic工程prjl中包含有两个窗体,窗体form1(主窗体)上有两个命令按钮command1和 command2,一个文本控件text1;窗体dialog是一个对话窗体,窗体包含两个命令按钮OK和Cancel,一个文本控件text1和一个标签控件labe11。
编写程序要求实现的功能为:窗体form 1上command1的caption属性值为name,程序运行后,当单击 eommand1时,弹出对话窗体dialog,其labe11控件中的提示信息为“please input your name:”,要求用户输入自己的姓名。如果单击OK按钮,保存当前输入的内容并返回form1界面,command1的caption属性值为email。若再次单击command1命令按钮,仍然出现dialog对话窗体,此时dialog的labe11提示用户输入自己的email,当用户输入email后,单击“确定”按钮,保存当前输入的内容并返回form1界面;如果单击Cancel按钮,则输入内容无效并返回form1。
Private Sub Command1_Click( )
Dialog. Text1. Text = ""
Dialog. Show
End Sub
Private Sub Command2_Click( )
Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname
End Sub
Private Sub Form_ Load( )
Command1. Caption = "name"
【7】 . Caption = "please input your name:
Dialog. i = 0
End Sub
Option Explicit
Public i As Integer
Public email As String
Public fname As String
Private Sub CancelButton_Click( )
i=0
[填空题]若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(x As Long)As Boolean
If x Mod 2=0 Then
f=True
Else
f=False
End If
End Function
Private Sub Command1_Click( )
Dim n As Long
n=Val(Me! text1)
P=IIf(f(n),"Even number","Odd number")
Me! Labell.Caption=n&"is" & P
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为______。
[填空题]若窗体中已有一个名为COMMAND1的命令按钮、一个名为LABEL1的标签和一个名为 TEXT1的文本框,且文本框的内容为空,然后编写如下事件代码:
PRIVATE FUNCTION F(X AS LONG) AS BOOLEAN
IF X MOD 2 = 0 THEN
F = TRUE
ELSE
F=FALSE
END IF
END FUNCTION
PRIVATE SUB COMMAND1_CLICK( )
DIM N AS LONG
N=VAL(ME! TEXT1)
P = IIF( F(N) , "EVEN NUMBER" ,"ODD NUMBER" )
ME ! LABEL1: CAPTION = N&"IS" &P
END SUB
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示的内容为______。