VB-操作题
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
第一部分
1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作:
①随机产生20个0到1000的整数,将其放入一个一维数组中
②求出所有元素的平均值,并显示在窗体上(如下图所示)
Private Sub Cmd1_Click()
Dim a(19)
s = 0
For i = 0 To 19
a(i) = Int(Rnd * 1001)
s = s + a(i)
Next i
Print s / 20
End Sub
2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮,如下图所示。在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其他字符不变。
Private Sub Command1_Click()
If Text1.Text >= "A" And Text1 <= "Z" Then
Text1.Text = LCase(Text1.Text)
ElseIf Text1.Text >= "a" And Text1 <= "z" Then
Text1.Text = UCase(Text1.Text)
End If
End Sub
3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作:
①随机产生30个0~1000的整数,将其放入一个一维数组中
②求出其中的最大值,并显示在窗体上。
Private Sub mycmd1_Click()
Dim a(29)
For i = 0 To 29
a(i) = Int(Rnd * 1001)
Next i
m = a(0)
For i = 1 To 29
If a(i) > m Then m = a(i)
Next i
Print m
End Sub
4 请设计如下图所示窗体界面。程序运行时,在选中一个或两个复选框和一个单选按钮时,单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。
Private Sub Command1_Click()
If Option1.Value = True Then Text1.FontName = "黑体"
If Option2.Value = True Then Text1.FontName = "宋体"
If Check1.Value = 1 Then Text1.FontUnderline = True
If Check2.Value = 1 Then Text1.FontItalic = True
If Check1.Value = 0 Then Text1.FontUnderline = False
If Check2.Value = 0 Then Text1.FontItalic = False
End Sub
5 在名称为Form1的窗体上添加一个名称为Text1的文本框;添加两个标题分别为"对齐方式"、"字体",名称分别为Fm1、Fm2的框架;在Fm1框架中添加三个单选按钮,标题分别为"左对齐"、"居中"、"右对齐",名称分别为Opt1、Opt2、Opt3;在Fm2框架中添加两个单选按钮,标题分别为"宋体"、"黑体",名称分别为Opt4、Opt5。
要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的内容实现相应的操作(如图所示)。
Private Sub Form_Load()
End Sub
Private Sub Option1_Click()
Text1.Alignment = 0
End Sub
Private Sub Option2_Click()
Text1.Alignment = 2
End Sub
Private Sub Option3_Click()
Text1.Alignment = 1
End Sub
Private Sub Option4_Click()
Text1.FontName = "宋体"
End Sub
Private Sub Option5_Click()
Text1.FontName = "黑体"
End Sub
6 请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框
中显示。请编写程序完成上述功能。
Private Sub Command1_Click()
s = 1
n = Val(Text1)
For i = 1 To Val(Text1)
If Option1.Value = True Then s = s * (i): Text2 = s
If Option2.Value = True Then s = s * (i + 2): Text2 = s * 2
Next i
End Sub
Private Sub Form_Load()
End Sub
7 在窗体上添加两个文本框和三个标签,设置它们的属性,达到下图效果。程序运行时,在第一个文本框输入一串字符,在第二个文本框中输入一个字符,然后单击"统计"命令按钮,统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数,统计结果在标签Label3中显示。