【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“计算机会考VB程序题(3) - 其它管理文献“提供大家参考，希望对大家有所帮助!

2、单击‘画图’按钮时在屏幕上以1000200为左上角1400600为右下角画一颜色随机的矩形 单击‘退出’按钮时程序退出运行。

    请建立名为“画矩形”的文件夹并将有关文件保存至该文件夹中。

     Private Sub Form_Load Randomize End Sub Private Sub Command1_Click RFIXRND256 GFIXRND256 BFIXRND256 LINE 1000200-1400600 RGBRGBB End Sub 3、在窗体的任意位置单击鼠标左键时连接鼠标所在位置与点500500画一条颜色随机的线段。

     请建立名为“连接线段”的文件夹并将有关文件保存至该文件夹中。

     Private Sub Form_MouseDownButton As Integer Shift As Integer X As Single Y As Single RFIXRND256 GFIXRND256 BFIXRND256 LINE 500500-XY RGBRGB End Sub 4、制作一个图片显示器程序运行界面如图所示。

    要求程序运行开始屏幕出现“显示/隐藏”按钮和“退出”按钮。

    单击“显示/隐藏”按钮窗体中显示或隐藏图片单击“退出”按钮结束程序。

     请建立名为“显示图片”的文件夹并将有关文件保存至该文件夹中。

     Private Sub Command1_Click Image1.Visible not Image1.Visible End Sub 5、制作一个拖动水平滚动条设置年龄的程序如图所示。

    要求程序运行开始年龄框为空当拖动水平滚动条时年龄框中显示水平滚动条当前值。

     请建立名为“输入年龄”的文件夹并将有关文件保存至该文件夹中。

     Private Sub HScroll1_Change Text1.Text HScroll1.Value End Sub 6、用垂直滚动条表示字号大小1-72单位磅通过拖动滑块改变标签文字大小。

     请建立名为“改变字号”的文件夹并将有关文件保存至该文件夹中。

     Private Sub VScroll1_Change Label1.FontSize VScroll1.Value End Sub 7、每单击一次“垂直移动”按钮使图片从窗口上边向下边垂直移动100个单位单击 “结束”按钮结束程序。

     Private Sub Command1_Click Picture1.Top Picture1.Top 100 End Sub 8、编一个“滚动字幕”的程序让文字从屏幕的右边慢慢滚动到左边。

     请建立名为“滚动字幕”的文件夹并将有关文件保存至该文件夹中。

     9、编写电子钟程序如图所示。

    单击“开始”按钮电子表开始走时单击“停止”按钮电子表停止。

    程序一开始运行电子表框为空。

     请建立名为“电子钟”的文件夹并将有关文件保存至该文件夹中。

     10、制作一个显示系统当前日期的数字日历。

    要求程序一开始运行日期框为空单击“显示”按钮在日期框中显示系统当前日期单击“退出”按钮退出程序。

     请建立名为“显示系统日期”的文件夹并将有关文件保存至该文件夹中。

     11、制作一个能改变窗口背景色的程序。

    要求单击“变色”按钮窗口背景色随机改变单击“结束”按钮结束程序。

     请建立名为“改背景色”的文件夹并将相关文件保存至该文件夹中。