Basic语言程序设计作业

1、 Visual Basic 语言程序设计作业 一、单项选题（在每小题的备选答案中选出正确答案） 1、在 Visual Basic 中，下列运算符中优先级最高的是什么（ D ）。 A * B C D Not 2. 下列什么控件没有水平滚动条（ D ）。 A listview B listbox C richtextbox D Treeview 3、在 Visual Bsaic 代码中，将多个语句合并写在一行上的并行符是什么（ B ）。 A 撇号 () B 冒号 (:) C 感叹号 (!) D 星号（ *） 4、如果要在程序代码中为图片框动态加载和清除图象，可以利用什么函数（ C ）。 A Inp

2、utBox B Input C LoaD Picture D PaintPicture 5、在 Visual basic A） Name 中，所有的窗体和控件都必定具有的一个属性是（ A ）。 B） Font C） Caption D） FillColor 6在 VB 集成开发环境中，在窗体中添加控件可以通过双击或单击拖动 【 C 】中的图标来完 成。 A) 属性窗 E B) 窗体设计窗 C) 工具箱窗 D) 工程资源管理窗口 7在 Vi sual Bas i c 环境下，当要设计一个新的 Vi sual Bas i c 程序时，所做的第一 件事是【 B 】。 A) 编写代码 B) 新建一个工

3、程 C) 打开属性窗 8. 文本框控件最多能处理多少个字节（ B ）。 D) 设计应用程序界面 A 32K B 64K C 128K D 16K 9 VB 语句 Const tt As S i ngl e=3 3 1 7 9 用于声明一个【 A 】。 A) 常量 B) 变量 C) 定值 D) 数组 10表达式 Mi d( “He l l o ”， 2， 3) 的值是【 C 】。 A)“ll B) “ llo C)“ ell D) “ ello 11在没有其他说明的情况下，用下面的语句定义数组，其元素的个数是【 10 】。 Dim A(10)As Integer A)9 B)1 0 C)11 D

4、)1 2 12下列控件中，没有 Capt i on 属性的是【 D 】。 A) 框架 B) 列表框 C) 复选框 D) 单选按钮 13若要设置定时器控件的定时时间，需设置的属性是【 A 】。 A)Interval B)Value C)Enabled DTime 14控件【 C 】通常用在有多个选项可供选择，但只能选中一项的情况下 A) 列表框 B) 组合框 C) 单选按钮 D) 复选按钮 15为把焦点移到某个指定的控件，所使用的方法是【 A 】。 A)SetFocus B)Vi sible C)GotFocus D)Enabled 16向一个列表框 (Li s t 1) 中，增加一个项目，应使

5、用的方法是【 A)AddItem B)Add C)Li stIndex D)Selected A 】。 17下列控件中属于复选框控件的是【 D 】。 A)Labe l B)TextBox C)CheckBox D)Li stBox 18在程序运行期间属性值不允许改变的属性是【 B 】属性。 A)Caption B)Name C)BackColor D)Enabled 19 Opt i onButton 控件和 CheckButton 控件都有 Value 属性项，下列叙述正确的是【 C 】。 A) 都是设置控件是否可用 B) 都是设置控件是否被选中 C)OptionButton 的 Value

6、 属性值是逻辑值， CheckButton 的 Value 属性值是数值。 D)Opt i onButton 的 Value 属性值是数值， CheckButton 的 Value 属性值是逻辑值。 20常用控件的 Enabled 属性值是【 B 】。 A) 字符常量 B) 逻辑常量 C) 数值常量 D) 日期常量 21组合框控件是将【 A 】组合成一个控件。 A) 列表框控件和文本框控件 B) 标签控件和列表框控件 C) 标签控件和文本框控件 D) 复选框控件和选项按钮控件 22如果要在程序中显示一个弹出式菜单，那么要调用 V i sual Bas i c 中提供的【 D 】 方法。 A)P

7、rint B)Move C)Refresh D)PopupMenu 23要利用公用对话框控件来显示“保存文件 对话框，需要调用控件的【 C 】方法。 A)ShowPrinter B)ShowOpen C)ShowSave D)ShowColor 24当我们输入代码时， Vi sual Bas i c 可以自动检测【 A 】错误。 A) 语法错误 B) 编译错误 C) 运行错误 D) 逻辑错误 25文件列表框控件的【 D 】属性用来确定在列表框中显示的文件名。 A)Path B)Pattern C)Name D)Fi l eName 26如果要在程序代码中为图片框动态加载和清除图象，可以利用【

8、C 】函数。 A)InputBox B)Input C)LoadPi cture D)PaintPicture 二、填空题 1在 VB 中，使用帮助可按键【 F1 】。 2按程序的执行流程，程序的 3 种结构是：顺序、 【循环 3. 向列表框中加入一个项目，使用的方法是【 AddItem 4 VB 中的对象的 3 要素是：属性、方法和【 事件 】。 】、【分支】。 】。 5如果要将某菜单项设计为分隔线，则该菜单项的标题应设置为【 - 】。 6文本框控件中要将全部内容都显示为某种字符， 需要设定的属性项是 【 PasswordChar 7执行下面的程序段， a 与 b 的值分别为： 【 800

9、】， 【 500 】。 】。 a=500 b=300 a=a +b b=a - b 8以下程序的输出结果是： 【 12 】。 n=O Do While n=2 n=n+l Pr i nt n ； Loop 9对于输入的一个正整数 ( 存入字符型变量 st 中 ) ，先显示出各位数字， 并计算其各位数字 的 和，请将程序填完整 Dim st As String st=InputBox( ， s As Integer 请输入一个正整数 ) s=0 For i=1 To Print Mi d(st 【 Len(st) ， i 】 ，1) s=s+ 【 Mid(st,I,1) 】 Next Print

10、 s 10以下程序模拟掷两个骰子 1000 次，统计出各个 点数 出现的次数，放入数组 n 的各个 元素中。 所谓点数， 是指两个骰子的数字之和。 其中每个骰子的数字是 1 到 6 之间的随机 整数。 Dim n(12)As Integer For i=2 To 12 “ n(i)=0 Next For i=1 To 1000 a= 【 Int(6 * Rnd() + 1) b= 【 Int(6 * Rnd() + 1) 】 】 P=a+b n(P)= 【 n(P)+1 】 Next For 1=2 To 12 Print n(i) Next 11当 x=3， y=4 时， X+XY Or y

11、0 的值是【 false 】。 12表达式 Chr(Asc(C)+2) 的值是【” E” 】。 13表达式 Mi d( “He l l o ， 2， 4) 的值是【” ell ” 】。 14可以同时删除字符前导和尾部空白的函数是【 Trim 】。 15本文框中的文本改变了，它发生的事件是【 Change 】。 16VB 可以处理的基本数据类型有 5 种：数值型、 字符串型、 日期型、 布尔型和 【日期型】。 三、分析题 1当执行以下过程时，在窗体内将打印【 Private Sub Commandl Click() Dim I As Integer ，R As Integer R=0 B 】 R

12、 ： R+I Next Pri nt R End Sub A)6 B)9 C)12 D)21 2 执行下列程序段后， X 的值是【 A 】 X=5 For i=1 To 20 Step 2 X=X+i 5 Next A)2 1 B)22 C)23 D) 以上都不是 3以下程序段的输出结果是【 D 】 For i=1 To 4 X=4 For n=1 To 3 x=3 For k=1 To 2 x=x+6 Next Next Next Pr i nt X A)7 B)16 C)157 D) 以上都不是 4程序段 x=0 Do While x50 X=(x+2)*(x+3) Loop 程序执行后，

13、 x 的值是【 C 】 A) 0 B) 50 C) 72 D) 以上都不是 5有如下程序， Sub SA(x As Integer t=X ： X=t Y End Sub Private Sub Commandl Dim a As Integer a=1 9 b=4 SA a ， b Print a ，b End Sub ，y As Integer) ： Y=t Mod y Cl i ck() ， b As Integer 则当程序执行完成 ( 命令按钮被点击 ) 时，程序显示的 a， b 的值为【 A 】 A) 19 4 B)5 4 C) 4 3 D) 5 3 四、编程题 1 、编程序求阶乘

14、的值不大于 1000 的最大整数。提示： x 的阶乘 =1*2*3* , *x 答： Private Sub Command1_Click() Dim n As Integer, fun As Long fun = 1 Do While fun = 10000 n = n + 1 fun = fun * n Loop Print n End Sub 2 、从键盘上输入 4 个数，编写程序，计算并输出这 4 个数的和及平均值。通过 InputBox 函数输入数据，并在窗体上显示和及平均值。 答： dim j as integer static i as integer dim s,c,d as

15、string dim b(1 to 4) as string i=1 s=inputbox( 请输入 4 个数 , 计算 ) for i=1 to 4 do while(s,i,1), if c=mid(s,i,1), then d=s & c end if i=i+1 loop b(1)=d next for form1.print b(1)+b(2)+b(3)+b(4) form1.print (b(1)+b(2)+b(3)+b(4)/4 3、 . 编程完成 10 个随机数的降序排序。 ( 要求：用数组：先产生 1 0 个随机数、然后排序 并输出结果 ) 。 答： Dim n(10

16、)As Integer For i=1 To 10 n(i)=Rnd （） Next For i=1 To 10 For j=i+1 To 10 if n （ i ） n(j) then a=n(i) n(i)=n(j) n(j)=a endif next next For k=1 To 10 Print n(k) Next 4、“哥德巴赫猜想”指出，每个大于 6 的偶数，都可以表示为两个素数的和。试用程序将 某个给定的数 x 表示为两个素数的和。 要求：首先编写一个函数用于判断一个数是否是质数 ( 素数 ) ，然后使用“遍试 算法。 答： sub su(shu as integer) as boolean 判定 shu 是否是质数 dim x as integer,y as integer if shu=2 then su=true else for x=2 to shu-1 if shu mod x=0 then su=false else su=true endif next endsub private sub form_load(x as integer) dim j as integer for j=2 to x if su(j) then if su(x-j) then print x; ” =” ;j; ” +” ;x-j endif endi