山东交通学院计算机VB考试上机操作题11(2)

End Sub 答案：

1). for i=0 to 9 或 for i=0 to 9 step 1 2). Do Until I < 0 或 do until 0>i 3). I = I - 1 或 i=-1+i 第2题 （10.0分） 题号:489

'------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目:给定三角形的三条边，计算三角形的面积。要求 ' 程序首先判断给定的三条边能否构成三角形。 '------------------------------------------------ Option Explicit

Private Sub Form_Click()

Dim a As Single, b As Single, c As Single Dim s As Single, t As Single start:

a = InputBox(\输入1边长：\ b = InputBox(\输入2边长：\ c = InputBox(\输入3边长：\ '**********FOUND********** If a + b < c Or b + c < a Then

MsgBox (\不能构成三角形，请重新输入个边\ GoTo start End If

'**********FOUND********** t = (a + b) / 2

'**********FOUND********** s = Sqr((t - a) * (t - b) * (t - c)) Print \该三角形的面积：\End Sub 答案：

1). If a + b < c Or b + c < a Or a + c < b Then 2). t = (a + b + c) / 2 或 t = (a + b + c ) / 2

3). s = Sqr(t * (t - a) * (t - b) * (t - c)) 或 s = Sqr( t * (t - a) * ━━━━━━━━━━━━━━━━ 七、程序设计 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:146

'------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目：(事件)单击窗体。

' (响应)求50以内所有偶数的和，并在窗体上输出出来。

6

(t - b) * (t - c) ) ' 将结果存入变量S中。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 2 To 50

If (i Mod 2) = 0 Then s = s + i End If Next

Print (CStr(s)) ----------------------

━━━━━━━━━━━━━━━━━━ 八、VB窗体设计 共2题 （共计20分） ━━━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:46

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成） 建立如图001所示界面：

注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 --------------------------------------------------------------------- 1、窗体设置

1）名称设置为“考试系统” 2）AutoRedraw设置为True 3）边框风格设置为1 4）标题设置为“窗体”

5）前景色设置为红色，值为H000000FF 2、在窗体左上角添加一个标签控件 1）名称设置为“提示信息” 2）设置为可以自动调整大小

3）内容设置为“考试系统正在运行” 3、在窗体上添加一个时钟控件 1）时间间隔设置为1.5秒

4、在窗体中间位置添加一个框架控件 1）边框风格设置为0 2）标题为“选择题”

5、在框架中添加上下两个单选按钮

1）第一个单选按钮在上方，标题设置为“单选”，并设为选中 2）第二个单选按钮在下方，标题设置为“多选” 6、在窗体右下角添加一个命令按钮 1）标题为“确定”

2）字体名称设置为“黑体”、字体大小12、带下划线 3）设置高度为511

7

4）在单击事件里添加代码，使得窗体左上角的标签的内容为“考试系统结束运行” ----------此为题目要求的最后一行，以下空白--------------------------------------- 第2题 （10.0分） 题号:50

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成） 建立如图005所示界面：

注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 --------------------------------------------------------------------- 1、窗体设置

1）名称为“个人介绍” 2）标题为“我的个人信息” 2、在窗体上方添加一个文本框控件 1）文本内容为“个人简历” 2）设置文本被锁定 3）文本允许多行

4）该文本框设置为不可见 3、在文本框下添加一个标签控件 1）内容右对齐

2）标题内容为“所获奖励” 3）该标签不可见

4、在标签下添加一个组合框控件 1）名称为“组合框”

2）列表项目依次为“小学”、“初中”、“高中”、“大学” 3）列表项目排序属性设置为True 5、添加两个一级菜单，均无子菜单

1）第一个一级菜单，名称为Menu1，标题为“个人简历” 2）第二个一级菜单，名称为Menu2，标题为“所获奖励” 3）在Menu1的单击事件里添加代码，使文本框可见 4）在Menu2的单击事件里添加代码，使标签可见 6、在窗体右下角添加一个命令按钮 1）标题为“清除”

2）在单击事件里添加代码，清除组合框里的所有项目

----------此为题目要求的最后一行，以下空白---------------------------------------

8