VisualBasic程序设计作业题解形成性考核作业二

Visual Basic程序设计作业题解形成性考核作业二
一、选择题
答案：B
答案：D
答案：D
答案：B
答案：b
答案： A
答案：B
答案：C
答案：A
答案：D
答案：C
答案：B
答案：D
答案：C
答案：A
答案：B
答案： C
答案： B
答案： D
答案： B
二、填空题
答案：下拉式菜单弹出式菜单
答案：打开（Open）保存（Save）颜色（Color）字体（Font）打印（Print）
答案：文本框 .列表框
答案：4． Dim 数组名（1 To 上界）
答案：过程名参数1,参数2,……
答案：“工程” “工程属性” “工程属性”
答案：0
答案：不会用过程名返回一个值
答案：窗体模块标准模块类模块
答案：移出内存无效的状态
(1):( )(2）：( ) 。

（3）sin45o：( ) 。

答案：：（1）2*cos(α)*sin(α)/(2*α) （2）sqr(s*(s-a)*(s-b)*(s-c)) （3）sin(45/180)
答案：1）1<=x and x<12 （2）A+B>=C or a-c<=c （3）a>0 and b>0 or a<0 and b<0
答案：False
答案：For …Next Do [{While│Until}] 条件式…Loop Do…Loop [{While│Until}] 条件式
答案：3（因为变量a被声明为整型变量——%表示整型变量）
三、阅读下列程序，写出程序的运行结果
答案：编程人员只需针对某个事件编写程序代码称为可视化编程。

应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。

答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。

答案：传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实现功能模块的函数和过程的集合。

事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。

它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。

事件驱动编程与传统编程方式相比，最大的区别在于：前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。

答案：答：事件驱动的工作过程为： 1.启动应用程序，装载和显示窗体。

2.窗体或窗体上的控件等待事件的发生。

3.当某个事件发生后，执行其对应的事件过程代码。

4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。

答案：答：事件驱动的工作过程为： 1.启动应用程序，装载和显示窗体。

2.窗体或窗体上的控件等待事件的发生。

3.当某个事件发生后，执行其对应的事件过程代码。

4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。

四、程序设计题
图4
答案： Private Sub Command1_Click() x = Val Select Case x Case Is >= 500 = x * Case Is >= 300 = x * Case Is >= 200 = x * Case Is >= 100 = x * End Select End Sub = x * End Select End Sub
图5
答案：程序代码： Private Sub Form_Load() x = 101 = "100" Do While x <= 200 If x Mod 3 <> 0 Then = + Chr(13) + Chr(10) + Trim(Str(x)) End If x = x + 1 Loop End Sub
图6
答案：程序代码： Private Sub Form_Click() Print "*", "3", "6", "9", "12" Print "15", "45", "90", "125", "180" Print "16", "48", "96", "144", "192" Print "17", "51", "102", "153", "204" Print "18", "54", "108", "152", "216" End Sub
图7
答案：程序代码： Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = False Option1(3).Value = False End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 = 10 * 2 Case 1 = 10 / 2 Case 2 = 10 + 2 Case 3 = 10 - 2 End Select End Sub Private Sub Command1_Click() End End Sub
图8
答案：程序代码： Dim x As Integer Private Function Mystring(x As Integer) As String Select Case x Case 1 Mystring = "星期一" + Chr(13) + "Monday" Case 2 Mystring = "星期二" + Chr(13) + "Tuesday" Case 3 Mystring = "星期三" + Chr(13) + "Wednesday" Case 4 Mystring = "星期四" + Chr(13) + "Thursday" Case 5 Mystring = "星期五" + Chr(13) + "Friday" Case 6 Mystring = "星期六" + Chr(13) + "Saturday" Case 7 Mystring = "星期日" + Chr(13) + "Sunday" End Select = Mystring End Function Private Sub Text1_Change() x = Val Mystring (x) End Sub
答案：程序代码： Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox "You Pressed right button", 0, "提示" End If End Sub Private Sub Picture1_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single) = 5 End Sub 图9。