Private Sub text Command 1. Enabled= True End Sub 三、编程题 (1)在 FormLoad事件编写一个程序,利用 Inputbox来输入语文、英语和计算机3门课的成 绩。然后算出这3门课的总分和平均分,以 MsgBox显示出来 (2)在下图中“半径”后的文本框(TXT)中书输入圆的半径值后,单击“计算面积”按钮 COMMANDI)和“计算周长”按钮( COMMAND2),其计算结果将显示在结果后的文本 框(TX12)中。请将控件的相关事件代码编写出来,以完成上述各功能 Form1 计算因的面积和周长 半径□ 结果 [算面积 计算周长 (3)下图所示的界面,在图示的文本框中输入3个不同的数,点击“排序”按钮后,输入的 三个数按从大到小的顺序显示在另外3个文本框中。 iForm1 输入3个任意数 45 排序 排序结果 (4)在窗体中建立两个命令按钮和一个标签,程序启动时只显示两个命令按钮,单击按钮“英 文”时显示“ Good Bye”,单击按钮“中文”时显示“再见”。 再见! 中文 (5)设计一程序界面如图示,程序运行时,拖动滚动条便可以改变颜色区的背景色
Private Sub Text1_ () Command1.Enabled = True End Sub 三、编程题 (1) 在 FormLoad 事件编写一个程序，利用 Inputbox 来输入语文、英语和计算机 3 门课的成 绩。然后算出这 3 门课的总分和平均分，以 MsgBox 显示出来。 (2) 在下图中“半径”后的文本框(TEXT1)中书输入圆的半径值后，单击“计算面积”按钮 (COMMAND1)和“计算周长”按钮(COMMAND2)，其计算结果将显示在结果后的文本 框(TEXT2)中。请将控件的相关事件代码编写出来，以完成上述各功能。 (3) 下图所示的界面，在图示的文本框中输入 3 个不同的数，点击“排序”按钮后，输入的 三个数按从大到小的顺序显示在另外 3 个文本框中。 (4) 在窗体中建立两个命令按钮和一个标签，程序启动时只显示两个命令按钮，单击按钮“英 文”时显示“Good Bye”，单击按钮“中文”时显示“再见”。 (5) 设计一程序界面如图示，程序运行时，拖动滚动条便可以改变颜色区的背景色
Form1 红色值:224 颜色区 绿色值:62 蓝色值:170 (6)设计一倒计时程序界面如下图示,运行时点击“设置倒计时间”按钮可以用设置倒计时 的初始时间,点击“开始倒计时”按钮就开始倒计时。 a. Form1 02:02:36 设置倒计时间匠开始倒时」退出」 (7)设计一程序,窗体上有两个列表框,左侧列表框列出若干个城市名称,当双击某个城市 名时,这个城市名显示在右侧列表框中 Form1 全部城市 被选城市 退出 (8)设计如下图所示的程序界面,实现计算两个整数的最大公约数功能。 Form1 整数145 整数2105 最大公约数是15 求公约数 (9)设计一个程序,有两个输入栏用来输入数据,然后可以计算它们的值,如加、减、乘 除、幂次方及余数。当用户输入数据时,会马上更新运算结果,界面如下图所示
(6) 设计一倒计时程序界面如下图示，运行时点击“设置倒计时间”按钮可以用设置倒计时 的初始时间，点击“开始倒计时”按钮就开始倒计时。 (7) 设计一程序，窗体上有两个列表框，左侧列表框列出若干个城市名称，当双击某个城市 名时，这个城市名显示在右侧列表框中 (8) 设计如下图所示的程序界面，实现计算两个整数的最大公约数功能。 (9) 设计一个程序，有两个输入栏用来输入数据，然后可以计算它们的值，如加、减、乘、 除、幂次方及余数。当用户输入数据时，会马上更新运算结果，界面如下图所示：
Form 数 运算符数2 运算结果 123 ↓34 4182 (10)输入两点坐标,在图片框中显示两点的连线并计算两点间的距离 a Form1 输入两点坐标 10p0 L计算 两点间距离 28.28427124 习题4 1程序阅读题 (1)假定有如下的Sub过程 Sub s (xAs single, y As Single) t=x y y=t Mod y End Sub 在窗体上添加一个命令按钮,然后编写如下事件过程 Private Sub Commandl Click Dim a as single Dim b as single a=5:b=4 Print a, b End Sub 程序运行时,单击命令按钮得到的结果是 A.5.4 D.1.25.1 (2)在在窗体上添加一个命令按钮 Commandl和一个文本框 Text,然后编写如下事件 过程 Private Sub Commandl Click Dim xAs Integer, y As Integer, z As Integer ext1 Text= Call pI(x, y, z) TextI Text= Str(z) End Sub Private Sub pl(By Val a As Integer, By Val b As Integer, c As Integer) =a+b
（10）输入两点坐标，在图片框中显示两点的连线并计算两点间的距离。 习题 4 1 程序阅读题 (1) 假定有如下的 Sub 过程： Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果是 。 A. 5, 4 B. 1, 1 C. 1.25, 4 D. 1.25, 1 (2) 在在窗体上添加一个命令按钮 Command1 和一个文本框 Text1，然后编写如下事件 过程： Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0 Text1.Text = "" Call p1(x, y, z) Text1.Text = Str(z) End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b