Basic语言程序的设计作业

《Visual Basic语言程序设计》作业一、单项选题（在每小题的备选答案中选出正确答案）1、在Visual Basic中，下列运算符中优先级最高的是什么（ D ）。

A *B \C < D．Not2.下列什么控件没有水平滚动条（ D ）。

A listviewB listboxC richtextbox D．Treeview3、在Visual Bsaic代码中，将多个语句合并写在一行上的并行符是什么（B ）。

A 撇号(')B 冒号(:)C 感叹号(!) D．星号（*）4、如果要在程序代码中为图片框动态加载和清除图象，可以利用什么函数（ C ）。

A InputBoxB InputC LoaD．Picture D．PaintPicture5、在Visual basic中，所有的窗体和控件都必定具有的一个属性是（A ）。

A）Name 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)新建一个工程C)打开属性窗D)设计应用程序界面8..文本框控件最多能处理多少个字节（ B ）。

A 32KB 64KC 128K D．16K9．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 IntegerA)9 B)1 0 C)11 D)1 212．下列控件中，没有Capt i on属性的是【D 】。

A)框架B)列表框C)复选框D)单选按钮13．若要设置定时器控件的定时时间，需设置的属性是【A 】。

A)Interval B)Value C)Enabled DTime14．控件【C 】通常用在有多个选项可供选择，但只能选中一项的情况下A)列表框B)组合框C)单选按钮D)复选按钮15．为把焦点移到某个指定的控件，所使用的方法是【A 】。

A)SetFocus B)Vi sible C)GotFocus D)Enabled16．向一个列表框(Li s t 1)中，增加一个项目，应使用的方法是【A 】。

A)AddItem B)Add C)Li stIndex D)Selected．17．下列控件中属于复选框控件的是【D 】。

A)Labe l B)TextBox C)CheckBox D)Li stBox18．在程序运行期间属性值不允许改变的属性是【B 】属性。

A)Caption B)Name C)BackColor D)Enabled19．Opt i onButton控件和CheckButton控件都有Value属性项，下列叙述正确的是【C 】。

A)都是设置控件是否可用B)都是设置控件是否被选中C)OptionButton的Value属性值是逻辑值，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)Print B)Move C)Refresh D)PopupMenu23．要利用公用对话框控件来显示“保存文件"对话框，需要调用控件的【C 】方法。

A)ShowPrinter B)ShowOpen C)ShowSave D)ShowColor24．当我们输入代码时，Vi sual Bas i c可以自动检测【A】错误。

A)语法错误B)编译错误C)运行错误D)逻辑错误25．文件列表框控件的【D 】属性用来确定在列表框中显示的文件名。

A)Path B)Pattern C)Name D)Fi l eName26．如果要在程序代码中为图片框动态加载和清除图象，可以利用【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 】，【500 】。

a=500b=300a=a +bb=a - b8．以下程序的输出结果是：【12 】。

n=ODo While n<=2n=n+lPr i nt n；Loop9．对于输入的一个正整数(存入字符型变量st中)，先显示出各位数字，并计算其各位数字的和，请将程序填完整Dim st As String，s As Integerst=InputBox(∥请输入一个正整数∥)s=0For i=1 T o【Len(st) 】Print Mi d(st，i，1)s=s+【Mid(st,I,1) 】NextPrint s10．以下程序模拟掷两个骰子1000次，统计出各个"点数"出现的次数，放入数组n的各个元素中。

所谓点数，是指两个骰子的数字之和。

其中每个骰子的数字是1到6之间的随机整数。

Dim n(12)As IntegerFor i=2 T o 12“n(i)=0NextFor i=1 T o 1000a=【Int((6 * Rnd()) + 1) 】b=【Int((6 * Rnd()) + 1)】P=a+bn(P)=【n(P)+1 】NextFor 1=2 To 12Print n(i)Next11．当x=3，y=4时，X+X<Y Or y<0 And x>0的值是【false 】。

12．表达式Chr(Asc("C")+2)的值是【”E”】。

13．表达式Mi d(“He l l o"，2，4)的值是【”ell”】。

14．可以同时删除字符前导和尾部空白的函数是【Trim 】。

15．本文框中的文本改变了，它发生的事件是【Change 】。

16．VB可以处理的基本数据类型有5种：数值型、字符串型、日期型、布尔型和【日期型】。

三、分析题1．当执行以下过程时，在窗体内将打印【B 】Private Sub Commandl Click()Dim I As Integer，R As IntegerR=0For I=1 T o 6 St ep 2R：R+INextPri nt REnd SubA) 6 B) 9 C) 1 2 D) 2 1 2．执行下列程序段后，X的值是【A 】X=5For i=1 T o 20 Step 2X=X+i＼5NextA)2 1 B)22 C)23 D)以上都不是3．以下程序段的输出结果是【D 】For i=1 T o 4X=4For n=1 T o 3x=3For k=1 T o 2x=x+6NextNextNextPr i nt XA)7 B)1 6 C)1 5 7 D)以上都不是4．程序段x=0Do While x<50X=(x+2)*(x+3)Loop程序执行后，x的值是【C 】A) 0 B) 50 C) 7 2 D)以上都不是5．有如下程序，Sub SA(x As Integer，y As Integer)t=X ：X=t／Y ：Y=t Mod yEnd SubPrivate Sub Commandl—Cl i ck()Dim a As Integer，b As Integera=1 9b=4SA a，bPrint a，bEnd Sub则当程序执行完成(命令按钮被点击)时，程序显示的a，b的值为【A 】A) 1 9 4 B)5 4 C) 4 3 D) 5 3四、编程题1、编程序求阶乘的值不大于1000的最大整数。

提示：x的阶乘=1*2*3*…*x 答：Private Sub Command1_Click()Dim n As Integer, fun As Longfun = 1Do While fun <= 10000n = n + 1fun = fun * nLoopPrint nEnd Sub2、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。

通过InputBox函数输入数据，并在窗体上显示和及平均值。

答：dim j as integerstatic i as integerdim s,c,d as stringdim b(1 to 4) as stringi=1s=inputbox("请输入4个数","计算")for i=1 to 4do while(s,i,1)<>","if c=mid(s,i,1)<>"," thend=s & cend ifi=i+1loopb(1)=dnext forform1.print b(1)+b(2)+b(3)+b(4)form1.print (b(1)+b(2)+b(3)+b(4))/43、.编程完成10个随机数的降序排序。

(要求：用数组：先产生1 0个随机数、然后排序并输出结果)。

答：Dim n(10)As IntegerFor i=1 T o 10n(i)=Rnd（）NextFor i=1 T o 10For j=i+1 To 10if n（i）<n(j) thena=n(i)n(i)=n(j)n(j)=aendifnextnextFor k=1 T o 10Print n(k)Next4、“哥德巴赫猜想”指出，每个大于6的偶数，都可以表示为两个素数的和。