Word版可编辑-Basic语言程序设计作业精心整理.doc

Visual Basic语言程序设计作业1、 单项选题（在每小题的备选答案中选出正确答案）1、在Visual Basic中，下列运算符中优先级最高的是什么（ D ）。A * B C D Not2.下列什么控件没有水平滚动条（ D ）。A listviewB listboxC richtextboxD Treeview3、在Visual Bsaic代码中，将多个语句合并写在一行上的并行符是什么（ B ）。A 撇号()B 冒号(:)C 感叹号(!)D 星号（*）4、如果要在程序代码中为图片框动态加载和清除图象，可以利用什么函数（ C ）。A InputBoxB InputC LoaDPictureD PaintPicture5、在Visual basic中，所有的窗体和控件都必定具有的一个属性是（ A ）。A）NameB）FontC）CaptionD）FillColor6在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 128KD 16K9VB语句Const tt As S i ngl e=3 31 7 9用于声明一个【A 】。 A)常量 B)变量 C)定值 D)数组10表达式Mi d(“He l l o”，2，3)的值是【C 】。 A) “ll B) “llo C) “ell D) “ello11在没有其他说明的情况下，用下面的语句定义数组，其元素的个数是【10 】。 Dim A(10)As Integer A)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)Selected17下列控件中属于复选框控件的是【D 】。 A)Labe l B)TextBox C)CheckBox D)Li stBox18在程序运行期间属性值不允许改变的属性是【B 】属性。 A)Caption B)Name C)BackColor D)Enabled19Opt 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 】。4VB中的对象的3要素是：属性、方法和【 事件 】。5如果要将某菜单项设计为分隔线，则该菜单项的标题应设置为【- 】。6文本框控件中要将全部内容都显示为某种字符，需要设定的属性项是【 PasswordChar 】。7执行下面的程序段，a与b的值分别为： 【 800 】， 【 500 】。 a=500 b=300 a=a +b b=a - b8以下程序的输出结果是： 【12 】。 n=O Do While n=2 n=n+l Pr i nt n； Loop9对于输入的一个正整数(存入字符型变量st中)，先显示出各位数字，并计算其各位数字的 和，请将程序填完整 Dim st As String，s As Integer st=InputBox(请输入一个正整数) s=0 For i=1 To【Len(st) 】 Print Mi d(st，i，1) s=s+【Mid(st,I,1) 】 Next Print s10以下程序模拟掷两个骰子1000次，统计出各个点数出现的次数，放入数组n的各个元素中。 所谓点数，是指两个骰子的数字之和。其中每个骰子的数字是1到6之间的随机整数。 Dim n(12)As IntegerFor i=2 To 12“ n(i)=0NextFor i=1 To 1000 a=【Int(6 * Rnd() + 1) 】 b=【Int(6 * Rnd() + 1)】 P=a+b n(P)=【n(P)+1 】NextFor 1=2 To 12 Print n(i) Next11当x=3， y=4时，X+XY Or y0的值是【false 】。12表达式Chr(Asc(C)+2)的值是【”E” 】。13表达式Mi d(“He l l o，2，4)的值是【”ell” 】。14可以同时删除字符前导和尾部空白的函数是【Trim 】。15本文框中的文本改变了，它发生的事件是【Change 】。16VB可以处理的基本数据类型有5种：数值型、字符串型、日期型、布尔型和【日期型】。三、分析题1当执行以下过程时，在窗体内将打印【B 】Private Sub Commandl Click()Dim I As Integer，R As Integer R=0 For I=1 To 6 St ep 2 R：R+I Next Pri nt REnd SubA) 6 B) 9 C) 1 2 D) 2 1 2执行下列程序段后，X的值是【A 】 X=5 For i=1 To 20 Step 2 X=X+i5 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)1 6 C)1 5 7 D)以上都不是4程序段 x=0 Do While x50 X=(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=tY ： Y=t Mod y End Sub Private Sub CommandlCl i ck() Dim a As Integer，b As Integer a=1 9 b=4 SA a，b Print a，b End 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 n End Sub 2、从键盘上输入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 To 10 n(i)=Rnd（）NextFor i=1 To 10For j=i+1 To 10 if n（i）n(j) thena=n(i)n(i)=n(j)n(j)=aendifnextnext For k=1 To 10 Print n(k) Next4、“哥德巴赫猜想”指出，每个大于6的偶数，都可以表示为两个素数的和。试用程序将某个给定的数x表示为两个素数的和。 要求：首先编写一个函数用于判断一个数是否是质数(素数)，然后使用“遍试算法。答：sub su(shu as integer) as boolean 判定shu是否是质数dim x as integer,y as integerif shu=2 thensu=trueelse for x=2 to shu-1if shu mod x=0 thensu=falseelse su=trueendifnextendsubprivate sub form_load(x as integer) 该函数完成题目要求 输出x的两个素数的和dim j as integer for j=2 to xif su(j) thenif su(x-j) thenprint x;”=”;