VB上机综合测试题

《VB上机综合测试题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、如下所示，在窗体上，放置一个文木框textl（文木框中的文字为“改变字形”,居中显示）。三个复选框checkl,check2和check3,如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮（名称为Cmdl,标题为"输出平均值〃）。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上（如下图所示）（35分）三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过

2、10的正整数，然后选择〃N的阶乘〃或〃（N+2）一、如下所示，在窗体上，放置一个文木框textl（文木框中的文字为“改变字形”,居中显示）。三个复选框checkl,check2和check3,如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮（名称为Cmdl,标题为"输出平均值〃）。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上（如下图所示）（35分）三、请设计如下图所示窗体

3、界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择〃N的阶乘〃或〃（N+2）的阶乘〃单选钮，即可进行计算,计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）□回区］N8a獅阶蔡C（N+2）的阶乘计算结果是：40320••For>l答案：、界面设计……10分PrivateSubCheckl_Click()Textl.FontBold=Check1.Value5分EndSubPrivateSubCheck2_Click()Textl.Fontltalic=Check2.Value5分EndSubPrivateSubCheck3_Click()Textl.Fon

4、tUnderline=Check3.Value5分EndSub二、界面设计……10分PrivateSubCmdl_Click()2分Dima%(19),i%,sum!,aver!4分Randomize3分Fori=0To19——3分a(i)=Int(Rnd*1001)——3分sum=sum+a(i)3分Nexti2分aver=sum/203分Printaver2分EndSub三、界面设计……10分Dimn%2分PrivateSubForm_Load()EndSubPrivateSubOptionl_Click()2分Dimi%——2分n=Val(Textl)3分m=11分Fori=1To

5、n2分m二m*i2分Nexti2分Text2=m2分EndSubPrivateSubOption2_Click()1分Dimi%——2分m=11分Fori=1Ton4-22分m=m*i2分Nexti2分Text2=m2分EndSub1.设讣如图所示界面，编程实现如下功能：在文木框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%,考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框屮的内容；单击“退出”按钮，关闭窗口。（35分）2.设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选屮的复选框后面的文字罗列在文本框中

6、（见右图）（25分）。0却-!□xJ可迭踝程：:已送课稷：T馭:rnr:厂彌；［厂计算机••3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80,向上移动160）；单击“停止升起”时，太阳静止不动。（40分）答案:界面设计……10分PrivateSubCommand1_C1ick()2分Text3.Text=Val(Textl.Text)*0.3+Val(Text2.Text)*0.77分EndSubPrivateSubCommand2_Click()2分Text1.Text="——3分Tex

7、t2.Text=nn——3分Text3.Text=nn——3分EndSubPrivateSubCommand3_Click()2分End——3分EndSub界面设计……10分PrivateSubCheck1_Click(IndesAsInteger)2分Text1.Text=,n,——3分Fork=0To32分IfCheckl(k).value=1Then2分Textl.Text=Text1.Text&Check1(k).Capti