23 喜欢·452 浏览
解答题

在考生文件夹下完成如下简单应用。

1.有一个工程文件ylc5.vbp,窗体上有一个单选按钮数组,含3个没有标题的单选按钮。为单选按钮添加标题“语文”、“数学”、“英语”;再添加一个标题为“显示”的命令按钮,运行后将根据单选按钮的选中情况,在窗体上显示“我喜欢语文”、“我喜欢数学”、“我喜欢英语”。要求单选按钮的初始值为英语。

运行后如图21所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。

主观题和计算题请自行在草稿纸上作答

题目答案

1.操作步骤 (1)在Visual Basic集成环境中选择“文件”→“打开工程”命令,在对话框中选择 ylc5.vbp工程文件,单击“确定”按钮打开。 (2)在工具箱中选择OptionButton控件,分别在窗口中创建3个,都命名为Option1。 Visual Basic提示是否建立单选控件数组,选择确定。在属性窗口中其名称(Name)分别为 Option(0)、Option(1)、Option(2),标题(Caption)分别为“语文”、“数学”和“英语”。 (3)根据题目要求,在属性窗口设置

答案解析

(1)本题考查单选按钮控件组的处理。通过循环判断每次选择的单选按钮,在窗体上显示相应的标题字符的组合。 (2)注意OptionButton控件数组的建立、For循环语句、Form对象的Print方法。 (3)在For循环中检测当前单选按钮数组的值,连接字符串,通过Print方法打印在窗体上。
举一反三

Fatal error: Uncaught Error: Call to a member function query() on null in F:\duqu8.com\SaxueFrame\common\funarticle.php:16 Stack trace: #0 F:\duqu8.com\SaxueFrame\common\funarticle.php(51): formatContent('<p>\xE5\x9C\xA8\xE8\x80\x83\xE7\x94\x9F\xE6\x96\x87...', Object(blockquestionlist)) #1 F:\duqu8.com\SaxueFrame\blocks\block_questionlist.php(107): formatQuestion(Array, Object(blockquestionlist)) #2 F:\duqu8.com\SaxueFrame\lib\template\template.php(640): blockquestionlist->setcontent(true) #3 F:\duqu8.com\SaxueFrame\data\compiled\templates\wap\question.detail.html.php(354): saxue_get_eloop(Array) #4 F:\duqu8.com\SaxueFrame\lib\template\template.php(329): include('F:\\duqu8.com\\Sa...') #5 F:\duqu8.com\SaxueWap\detail.php(81): saxuetpl->fetch('F:/duqu8.com/Sa...') #6 {main} thrown in F:\duqu8.com\SaxueFrame\common\funarticle.php on line 16