在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件;6个名称分别为Label1、Label2、Label3、La
A.输出asingle的字符串形式
B.输出数据asingle的整数部分
C.输出数据asingle的小数点及小数点后面的数字
D.只去掉数据中的小数点,保留所有数字输出
A.输出asingle的字符串形式
B.输出数据asingle的整数部分
C.输出数据asingle的小数点及小数点后面的数字
D.只去掉数据中的小数点,保留所有数字输出
A.Private Sub Command1_Click() Label3. Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub
B.Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub
C.Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub
D.Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub
A.Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub
B.Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub
C.Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub
D.Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:
Private Sub Form_Load()
Show
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_Change()
Text2.Text = Mid(Text1.Text, 8)
End Sub
程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是()。
A.BeijingChina
B.China
C.Beijing
D.BeijingC
A、PrivateSubHScroll_Change()Label1.Caption=HScroll1.ValueEndSub
B、PrivateSubHScroll_Click()Label1.Caption=HScroll1.ValueEndSub
C、PrivateSubHScroll_Change()Label1.Text=HScroll.CaptionEndSub
D、PrivateSubHScroll_Click()Label1.Text=HScroll.CaptionEndSub
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画3个标签,名称分别为Label1、Label2和Label3,标题分别为"人数"、"年龄"和"收入",3个文本框,名称分别为Text1、Text2和Text3,Text属性均为空,一个命令按钮,名称为Command1,标题为"输入"。然后编写命令按钮的Click事件过程, 要求程序运行后,如果单击命令按钮,则先后显示3个输入对话框,在3个输入对话框中分别输入人数、年龄和收入,并分别在3个文本框中显示出来。程序运行界面如图4-1所示。要求程序中不得使用任何变量。
图4-1
注意:存盘时必须存放在考生文件夹下,工程文件名为sj1.vbp,窗体文件名为sj1.frm。
(2)在名称为Form1的窗体上画一个图片框,名称为Pic1,一个水平滚动条,名称为HScroll1,通过"属性"窗口在图片框中装入一个图形(文件名为pic1.jpg,位于考生文件夹下),图片框的高度与图形的高度相同,图片框的宽度任意,运行时的窗体如图4-2所示。编写适当的事件过程,要求程序运行后,图片的宽度随滚动条变化。即设置水平滚动条的如下属性:Min为200,Max为2000,LargeChange为200,然后就可以通过移动滚动条上的滚动块来放大或缩小图片框的宽度。拖动滚动条后的窗体如图4-3所示。要求程序中不得使用任何变量。
图4-2 图4-3
注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2),新建一个窗体Form2。然后编写如下程序: Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序,要实现单击Command1命令按钮后卸载当前窗体,再弹出名为Form. 2的窗体,则在两个文本框中应分别输入______。
A.a 1
B.a a
C.1 a
D.1 1
在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1),然后编写如下两个事件过程: Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后,单击命令按钮,则在Text2文本框中显示的内容是
A.Microsoft Visual Basic
B.microsoft visual basic
C.MICROSOFT VISUAL BASIC
D.空字符串
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,a)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程: Dim Str1 As String,str2 As String Private Sub form_load() Text1.Text="" Text2.Text="" Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyPress(KeyAscii As Integer) str1=str1&Chr(KeyAscii) End Sub Prirate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) str2=str2&Chr(KeyCode) End Sub Private Sub Command1_Click() Text1.Text=str1 Text2.Text=str2 str1="" str2="" End Sub 当在设计阶段的窗体的KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为
A.abc
B.不显示任何信息
C.ABC
D.出错
A.Private Sub Hscroll1_Change()
Text1.Text=HScroll1.Value
End Sub
B.Private Sub Hscroll1_Click()
Text1.Text=HScroll1.Value
End Sub
C.Private Sub Hscroll1_Change()
Text1.Text=Hscroll1.Caption
End Sub
D.Private Sub Hscroll1_Click()
Text1.Text=Hscroll1.Caption
End Sub