vb大作业(中).docVIP

1、 抽奖程序 利用组合框，设计一个抽奖程序。 分析：首先通过下拉组合框输入若干参加抽奖的身份证号码。每输完一个号码，按回车键把该号码加入组合框。同时统计组合框项目的数目，在文本框中显示。然后单击开始抽奖按钮，加入组合框中的号码将在一个标签中不停显示，显示的顺序是随机的。当再一次单击按钮，随机抽出其中的一个号码。 设计步骤如下： ① 建立应用程序用户界面和添加控件，并设置各对象属性。如图所示。 ② 编写事件代码。 2、利用循环结构和列表控件框，设计的“选项移动”窗体 分析：所谓“选项移动”窗体是指由两个列表框和4个命令按钮所构成的界面。 ① 当单击“”按钮时，将左边列表框中选中的列表项加入右边的列表框中。也就是把ListBox1中选中的列表项，用Add方法加入到ListBox2中，同时用RemoveAt方法将ListBox1中选中的列表项清除。允许同时选中ListBox1的多个列表项。 ② 当单击“”按钮时，将ListBox1中所有的列表项都加入ListBox2中。并将ListBox1中所有的列表项用Clear方法清除。 ③ 当单击“”按钮时，将右边列表框中选中的列表项加入左边的列表框中。只允许一次选中ListBox1的一个列表项。 ④ 当单击“”按钮时，将ListBox2中所有的列表项都加入ListBox1中。并将ListBox2中所有的列表项清除。方法同“”按钮。如图所示。 其中列表框的属性设置见表。 对象 属性 属性值 说明 ListBox1 SelectionMode MultiExtended 允许一次可以选多项 ListBox2 SelectionMode One 允许一次只可以一项 3、设计一个指针式时钟程序 如下图所示。 分析：指针式时钟程序可以用画图动画来实现。使用定时器控件Timer定时取得系统时间，然后使用Graphics类提供的Graphics.DrawLine(ByVal pen As Pen, ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer)方法在面版上画出指针即可。时钟指针的角度和位置计算实际是个简单的解析几何问题。 考虑到坐标系变换和将角度转换为弧度： 对于时针每分钟应该转的角度为：-(90-Hour*30+Minute/2)*(3.14/180) 对于分针每分钟应该转的角度为：-(90-Minute*6)*(3.14/180) 对于秒针每秒钟应该转的角度为：-(90-Second*6)*(3.14/180) 设计步骤： ① 建立应用程序用户界面和添加控件。在窗体上添加一个图片控件pictureBox1和一个计时器控件Timer1。如图11-10所示。 ② 设置各对象的属性。选择pictureBox1控件，点击Image属性选择一个图片作为时钟面版，时钟面版图片也可以在运行时加载。时钟面版图片要用绘图软件手工画出，也可以用DrawLine方法在运行时绘制。这里为了设计方便，直接在设计时加载时钟面版图片到程序中，具体布局如图左图所示。然后选择Timer1控件，将Interval属性值改为1000ms，把Enabled属性值设置为true， ③ 编写计时器控件Timer1的Tick事件代码 4、设计一个个人资料输入窗口 使用选项按钮组输入性别与民族，使用复选框输入个人爱好，如图所示。 利用复选框和选项按钮组显示信息 设计步骤如下： ① 建立应用程序界面和添加控件，并设置各对象的属性。如图左和见表。 对象 属性 属性值 RadioButton1 Appearance Button Text 男 RadioButton2 Appearance Button Text 女 RadioButton3 Appearance Button Text 汉族 RadioButton4 Appearance Button Text 少数民族 CheckBox1 Text 钓鱼 CheckBox2 Text 读书 CheckBox3 Text 下棋 CheckBox4 Text 打球 ②程序运行时，当点击“确定”，信息将显示在下面的“个人资料”中。 5、输入参数n，m，求组合数的值 分析：把求阶乘与求组合数公式分别定义为Function过程。在求组合数的Function过程中，用到了Function过程的嵌套。 设计步骤如下： ① 建立应用程序用户界面和添加控件，并设置各对象的属性。设置如图所示。 ② 编写事件代码。 6、为一个应用程序添加一个渐隐显示方式的窗体 设计步骤如下： ① 建立应用程序用户界面和添加控件，并设置各对象的属性。创建一个项目，自动生成窗体