VB程序设计基础练习题.docx

1、1 VB 程序设计基础练习题 一、窗体设计题 1. 标签显示隐藏窗体标题 - 【窗体设计】 - 在名称为 Form1 的窗休上添加一个名称为 Label1 的标签， 字号大小为四号，标题为“等级考试”，如图 1所示。 通过设置属性使标签初始为不显示。 请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”， 单击窗体时，显示标签，如图 2所示。 注意：程序中不得使用变量，事件过程中只能写一条语句。 - 2.显示日期和时间 - 【窗体设计】 - 在名称为 Form1 的窗体上添加 1个名称为 Label1 的标签，使其初始内容为空， 且能根据其标题内容自动调整标签的大小；再添加 2 个命令

2、按钮， 标题分别为“日期”和“时间”，名称分别为 Command1、 Command2。 请编写 2个命令按钮的 Click 事件过程，使得单击“日期”按钮时， 标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如图所示。 要求：程序中不得使用变量，每个事件过程中只能 写一条语句。 - 3.InputBox 函数参数设置 - 【窗体设计】 2 - 新建一个名称为 Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。 请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框， 其标题为“等级考试”，提示信息为“请输入”，默认值为“ Basic”。如图所示。 要

3、求程序中不得使用变量，每个事件过程中只能写一条语句。 - 4.窗体属性、字体属性设置 - 【窗体设计】 - 在名称为 Form1 的窗体上，更改窗体标题为“标签”，并添加一个可自动调整 大小的标签，名称为 Label1，其标题为“计算机等级考试”，字体大小为三号字； 再添加两个命令按钮，标题分别是“宋体”和“黑体”， 名称分别为 Command1、 Command2。如图所示。 要求：编写两个命令按钮的 Click 事件过程。程序运行后， 如果单击“宋体”命令按钮，则标签标题显示为宋体字体； 如果单击“黑体”按钮，则标签标题显示为黑体字体。 注意：程序中不得使用变量，事件过程中只能写一条语句。

4、 - 5.窗体按钮左右宽度高度设置 - 【窗体设计】 -3 - 在名称为 Form1 的窗体上添加两个命令按钮 (见图 1)，其名称分别为 Cmd1和 Cmd2， 编写适当的事件过程。程序运行后，单击命令按钮 Cmd1，则可使该按钮移到窗 体的左上角 (只允许通过修改属性的方式实现 )；单击命令按钮 Cmd2， 则可使该按钮在长度和宽度上各扩大到原来的 2 倍。程序的运行情况如图 2所示。 要求：不得使用任何变量。 - 6.字体、文本框属性设置 - 【窗体设计】 - 在名称为 Form1 的窗体上添加两个文本框，名称分别为 Text1、 Text2， 均无初始内容。要求： 通过属性窗口设置适当

5、的属性，使 Text1、 Text2 中显示的文本的字体为“隶书”； 编写适当的事件过程，使得在 Text1 中输入每一个字符时， 将 Text1 中的内容显示在 Text2 中，如图所示。 注意： 要求程序中不得使用变量，事件过程中只能写一条语句。 - 7. 删除列表框列表项 - 4 【窗体设计】 - 在名称为 Form1 的窗体上添加一个名称为 List1 的列表框， 通过属性窗口分别输入 4 个列表项： “数学”、“物理”、“化学”、“语文”，如图所示。 请编写适当的事件过程使得在程序运行时，将最后一个列表项自动改为“英语”； 单击窗体时，则删除最后一个列表项。 注意：要求程序中不得使用

6、变量，每个事件过程中只能写一条语句。 - 8.列表框的列表项的复制和删除 - 【窗体设计】 - 在名称为 Form1 的窗体上，更改窗体标题为“列表框练习”并添加 1个名称 为 List1 的列表框，表项内容依次输入“环球时报”、“人物”、“探索”和 “读者”；再添加 2 个标题分别为“复制”和“移去”的名称为“ Command1” 和“ Command2”命令按钮，如图所示。 要求：编写适当的事件过程，在 程序运行后，单击“复制”按钮， 可以将选中的列表项内容复制到已有列表项的尾部； 单击“移去”按钮，可以将选中的列表项的内容删除。 要求程序中不得使用变量，每个事件过程中只能写一条语句。 答

7、案： Private Sub Command1_Click() List1.AddItem List1.Text End Sub 5 Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub - 9.标签字体的缩小放大 - 【窗体设计】 - 在名称为 Form1 的窗体上，添加 1个名称为 Label1 的标签， 其标题为“计算机等 级考试”，显示为宋体 12 号字， 且能根据标题内容自动调整标签的大小。 再添加 2个名称分别为“ Command1”、“ Command2”， 标题分别为“放大”、“还原”的命令按

8、钮。 要求：编写适当的事件过程，若单击“放大”按钮， 则 Label1 中所显示的标题内容自动增大 2个字号；单击“还原”按钮， Label1 中所显示的标题内容自动恢复到 12号字。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 - 10.文本框是否可用，内容大小定转换 - 【窗体设计】 - 在名称为 Form1 的窗体上添加两个文本框，其名称分别为 Text1、 Text2， 初始文本都为空，显示内容为三号字，且 Text1 的初始状态为不可用。 再添加一个名称为 Command1、标题为“开始”的命令按钮。如图所示。 要求：编写适当的事件过程，使得单击“开始”按钮后， T

9、ext1 文本框状态变为可用，且在 Text1 文本框中输入字母串时， Text2 文本框中用大写字母形式显示 Text1 文本框中的内容。 6 程序中不得使用变量，每个事件过程中只能写一条语句。 - 11.按钮左右向上向下移动 - 【窗体设计】 - 在名称为 Form1 的窗体上画一个命令按钮，其名称为 C1， 标题为“移动”，位于窗体的左上部，如图 1 所示，编写适当的事件过程。 程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动 100。 程序的运行情况如图 2 所示。 注意：不得使用任何变量； - 12.文本框密码框的实现 - 【窗体设计】 - 在窗体上画二个文本框，名称分别

10、为 Text1、 Text2。 请设置适当的控件属性， 并编写适当的事件过程， 使得在运行时，如果在 Text1 中每输入一个字符， 则显示一个“ *”，同时在 Text2 中显示输入的内容 (如图所示 )。 程序中不得使用任何变量。 - 13.通过列表项设置文本框字体大小 - 【窗体设计】 - 7 在名称为 Form1 的窗体上画一个标签，其名称为 Label1，标题为“程序设计” ， AutoSize 属性为 True；然后再画一个列表框，名称是 List1 通过属性窗口 输入 5 个项目，分别为 10、 16、 20、 24、 26、 36，如图 1 所示，编写适当的事件过程。 程序运行

11、后，如果用鼠标选中列表框中的某个项目， 则把标签中字体的大小设置为该项目相同。 程序的运行情况如图 2 所示。 程序 中不得使用任何变量。 - 14.单击不同的按钮在窗体上显示不同的内容 - 【窗体设计】 - 在名称为 Form1 的窗体上画两个名称分别为 Cl和 C2， 标题分别为“必修课”、“选修课”的命令按钮， 编写适当的事件过程。程序运行后，如果单击“必修课”命令按钮， 则在窗体上显示“高等数学必修课”，如果单击“选修课”命令按钮， 则在窗体上显示“多媒体技术选修课” 要求：不要使用任何变量，直接显示字符串。 - 15.把窗体标题显示在图片框中 - 【窗体设计】 - 在名称为 Form

12、1 的窗体上画 1 个名称为 P1 的图片框，窗体的标题为“程序设计”， 如图 1 所示。编写适当的事件过程，使得程序运行后，单击窗体， 则在图片框中显示窗体的标题，并把窗体的标题变为“ Basic”，如图 2所示。 - 16.按钮的变大变小左右 8 - 【窗体设计】 - 在名称为 Form1 的窗体上添加两个命令按钮 (见图 1)，其名称分别为 Cmd1和 Cmd2，编 写适当的事件过程。程序运行后，单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角 (只允许通过修改属性的方式实现 )；单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2倍。程序的运行情况如图 2所示。 要

13、求：不得使用任何变量。 - 17. 18. 19. 20. 二、程序填空题 1.求一元二次方程的根 Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(“请输入 a 的值 “) b = InputBox(“请输入 b 的值 “) c = InputBox(“请输入 c 的值 “) d = b * b - 4 * a * c p = -b / (2 * a) If d = 0 Then *SPACE* If 【 ?】 Then r = Sqr(d) / (2 * a) x1 = p + r

14、 x2 = p - r Else x1 = p x2 = p 9 *SPACE* 【 ?】 Print “x1=“; x1, “x2=“; x2 *SPACE* 【 ?】 q = Sqr(-d) / (2 * a) Print “x1=“; p; “+“; q; “i“, “x2=“; p; “-“; q; “i“ End If End Sub 答案： d0 或 0d endif else 2.判断素数 Private Sub Form_Click() n = InputBox(“请输入一个正整数（ 3） “) k = Int(Sqr(n) i = 2 swit = 0 *SPACE* Do

15、While i = k And swit = 0 *SPACE* If n Mod i = 0 Then swit = 1 Else *SPACE* i = i + 1 End If Loop If swit = 0 Then Print n; “是一个素数 “ Else Print n; “不是素数 “ End If 10 End Sub 答案： swit=0 n mod i=0 i=i+1 3. 下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值 - 【程序填空】 - 下面过程 max()用于求 3 个数中最大值，利用这个过程求 5 个数中最大值。 - Private Sub Form_Click() Print “5 个数 34、 124、 68、 73、 352 的最大值是： “ max1 = max(34, 124, 68) *SPACE* max1 =【 ?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) *SPACE* If 【 ?】 Then m = a Else m = b End If *SPACE* If 【 ?】 Then max = m Else max = c End If End Function 答案：