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

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

2、（2答案：1） 1<=x and x<12答案：False颜色（Color） 字体（Font） 打印（Form1.Show)(2 )a )(2) A+B>=C or a-c<=cJ- 双日 - C)(3) sqr(s*(s-a)*(s-b)*(s-c)(4)Print)o(3) sin45o :()(3) sin(45/180)a>0 and b>0 or a<0 and b<0答案：For Next Do WhileUntil 条件式Loop DoLoop WhileUntil 条件式答案：3 （因为变量a被声明为整型变量%!示整型变量）三、阅

3、读下列程序，写出程序的运行结果答案：编程人员只需针对某个事件编写程序代码称为可视化编程。应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。答案：传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实 现功能模块的函数和过程的集合。事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。 它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。事件驱动编程与传统编程方式相比，最大的区别在于

4、： 前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。答案:生后,答：事件驱动的工作过程为:执行其对应的事件过程代码。1.启动应用程序，装载和显示窗体。4.重复执行第2和第3步，直到遇到2 .窗体或窗体上的控件等待事件的发生。End语句或单击结束按钮停止程序的运行。3 .当某个事件发答案:生后,答：事件驱动的工作过程为:执行其对应的事件过程代码。1.启动应用程序，装载和显示窗体。4.重复执行第2和第3步，直到遇到四、程序设计题2 .窗体或窗体上的控件等待事件的发生。End语句或单击结束按钮停止程序的运行。3 .当某个事件发图答案：Private Sub Command1_Click(

5、) x = Val(Text1.Text) Select Case x Case Is >= 500 Text2.Text = x * 0.7 Case Is >= 300“不能裱3整除的费X-IioqWo。之间不能 被3整除蘸nV Hu nW JI- 1- 1- 1.- 1 t 1 fl fl fjText2.Text = x * 0.8 Case Is >= 200 Text2.Text = x * 0.9 Case Is >= 100 Text2.Text = x * 0.95 End Select End Sub = x * 0.95 End Select En

6、d Sub答案：程序代码：Private Sub Form_Load() x = 101 Text1.Text = "100" Do While x <= 200 If x Mod 3 <> 0 Then Text1.Text=Text1.Text + Chr(13) + Chr(10) + Trim(Str(x) End If x = x + 1 Loop End Subii. Forml5 6 7 8旺帕5154图6答案:程序代码：Private Sub Form Click() Print "*","3", &

7、quot;6", "9", "12" Print "15", "45", "90", "125", "180" Print "16","48", "96", "144", "192" Print "17", "51", "102", "153", "204&q

8、uot; Print "18", "54", "108", "152", "216" End Subii. Fermi-lalxlFroilC除注结束数字io和数字2运篇结果答案：程序代码：Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = FalseOption1(3).Value = False End Sub Private Sub Option1_Clic

9、k(Index As Integer) Select Case Index Case 0 Textl.Text = 10 * 2 Case 1 Text1.Text = 10 / 2 Case 2 Text1.Text = 10 + 2 Case 3 Text1.Text = 10 - 2 End Select End Sub Private SubCommand1_Click() End End Sub F oruil输入一个整覆星期六Saturday图8答案：程序代码：Dim x As Integer Private Function Mystring(x As Integer) As S

10、tring Select Case x Case 1 Mystring ="星期一 "+ Chr(13) + "Monday" Case 2 Mystring =" "Wednesday" Case 4 Mystring ="星期四"+ Chr(13) ="星期六"+ Chr(13) + "Saturday" Case 7 Mystring ="星期二"+ Chr(13) + "Tuesday" Case 3 Mystring

11、 ="星期三"+ Chr(13) + "Thursday" Case 5 Mystring ="星期五"+ Chr(13) + "Friday" Case 6 Mystring 星期日"+ Chr(13) + "Sunday" End Select Label1.Caption = MystringEnd Function Private Sub Text1_Change() x = Val(Text1.Text) 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 I