重要提示：
请勿将账号共享给其他人使用，违者账号将被封禁！
题目内容
（请给出正确答案）
请根据以下各小题的要求设计Visaul Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画1个列表框(名称为L1)和1个水平滚动条(名称为HS1，Min属性为0，Max属性为100，SmallChange属性为2，LargeChange属性为10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图1—1所示，其中xx是滚动框所在的位置。
存盘时，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．在名称为Form1的窗体上画一个文体框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：
1)在文本框中可以显示多行文本
2)在文本框中显示垂直滚动条
3)文本框中显示的初始信息为“程序设计”
4)在文本框中显示的字体为三号规则黑体
5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图1—2所示。
要求：不编写任何代码。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
.jpg)
更多“请根据以下各小题的要求设计Visaul Basic应用程序（包括界面和代码)。1．在窗体（名称为Form1)上画1”相关的问题
第1题
下列程序的功能是:当x<50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当x>100时,没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值!")
Select Case x
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【 】
Print "输入的数据出界!"
End Select
Print x, y
End Sub
第2题
以下程序段的输出结果是【 】。
num=0
While hum＜=2
num=num+1
Print num
Wend
第3题
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click()
a= Val(InputBox(“请输入一个整数”))
b=Val(InputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。
第4题
有以下程序：
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=1 to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后，窗体上显示的结果为______。
第7题
下面程序运行后，输出的结果是如下矩阵：
4 7 10
5 8 11
6 9 12
请在程序[ ]处填入正确的内容。
.jpg){kind=spacer}
第10题
下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form. Click()
Dim Ch As String * 1
Open "c:\a1.txt" For Input As 10
Do While【 】
Ch= Input(1, 10)
If 【 】Then
Print Ch;
End If
Loop
【 】
End Sub
客服
TOP
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
.jpg){kind=spacer}
