|
1、建立应用程序界面和设置对象属性:
请在括号中填入工具箱中相应的控件所对应的字母，在下划线填上下列相关属性所对应的字母。
G、text H、forecolor O、caption P、top Q、Width R、font
(1)双击工具箱中( ),则在窗体出现 “label1”控件,在属性窗口中把它的 属性所对应的值修改为“耗水量”,若要修改它的字体和字号，则应该修改其 属性
(2)双击工具箱中( ),则在窗体出现 “text1”控件,若将文本框中的“text1”文字去掉，则在属性窗口中把它的 属性所对应的值修改为空白，若想调整该控件的宽度，则修改其 属性。
(3)双击工具箱中( ),则在窗体出现 “command1”控件,在属性窗口中把其 属性所对应的值修改为“付款”
2、编写事件处理程序。（请将代码补充完整）
Private Sub Command1_click()
Dim a As Single
Dim b As Single
Dim sum As Single
A=val(text1.text)
B=val( )
Sum= {语句③}
="本月水电费共" + Str(Sum) + "元"
End Sub
3、新问题的解决。若某地区为鼓励居民节约用水，作了如下规定：若每月耗水量不超过20吨，每吨水按4元收取，若每月耗水量超过20吨（包括20），则每吨水按6元收取。程序中语句③该如何修改？
4、你还能利用程序的分支结构解决生活中的哪些问题？
命题思路：本题是一道综合性的过程化试题，涉及的知识点有标签控件、文本框控件、按钮控件、属性的设置，VB表达式、以及顺序结构，分支结构等。本试题贴近学生的生活，问题指向明确，考察学生的知识点全面。此题设计的情感态度价值观目标是：（1）让学生意识到现实生活中存在着丰富的程序设计问题，激发学生学习VB的兴趣；（2）培养学生节约用水的意识。
判分原则：最后两空每题2分，其他每题1分。最后两空每题都有多种答案，只要答对一个就可得分。
|
