精品文档
（B）通过MsgBox函数可以设置信息框中图标和按钮的类型 （C）MsgBox语句没有返回值
（D） MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
15．设x=4,y=8,z=7，表达式x 二、填空题（每题2分，共20分） 1． 在VB中设置或修改一个对象的属性的方法有两种，它们分别是 属性窗口 和 代码窗口 。 2．InStr(7，“什么ASCII是ASCII编码”，“ASCII”)的结果 9 ；InStr(“什么ASCII是ASCII编码”，“ASCII”)的结果 3 。 3．给变量w赋值：w=Choose(Weekday(“2010,1,26”),“Red”,“Green”,“Blue”,“Yellow”)后，变量w中的值是星期二 。 4．将 alignment 属性设置为1，单选按钮和复选框的标题显示在左边；将 style 属性设置为1，单选按钮和复选框以图形方式显示。 5. 在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 tabindex 。 6. 表达式 5/4*6\\5 Mod 2的值是 。 7．为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的 interval 属性设置为 500 。 8. Rnd函数的值的范围为 [0,1） 。 9.为了给x,y,z这3个变量赋初值1，正确的赋值语句是 。 10.数组：Dim a(4,-2 To 3,3)包含的元素的个数为 120 。 三、请完成下列的程序（共15分） 1.一下程序实现的是求解1！＋2！＋3！＋…+n!的值，其中n的值由输入框读入。请在程序中下划线处填入相应的内容。(5分) Dim n, sum, multi as long Dim I ,j as long N sum= 0 for I=1 to n multi= 1 精品文档 =val(inputbox(“输入N的值是：”)) 精品文档 for j=1 to I multi=multi*j next j sum=sum+multi next I print sum 2.输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，直接按Enter键结束，并显示结果。其中，CountY中放元音字母个数，CountC中放其他字符数。 Dim CountY%,CountC% Private Sub Text1_KeyPress(KeyAscii As Integer) Dim C$ C= ucase(ch,(keyascii)) If“A”＜=C And C＜=“Z”Then Select Case C Case “a”,”e”,”i”,”o”,”u” CountY=CountY+1 Case else CountC=CountC+1 End Select End If If keyascii=13 Then Print“元音字母有”；CountY；“个” Print“其它字母有”；CountC；“个” End If End Sub 请在程序中下划线处填入相应的内容。 四、操作题(第一题15分，第二小题20分，共计35分) 精品文档 精品文档 提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体文件保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存 1、编程实现打印以下图案（15分） a abc abcde abcdefg abcdefghi 2、用单选按钮和复选框控制文本框中输入的字体 要求：两个单选按钮，两个复选框（图形）。一个文本框（设计时已经输入文字，字体三号）。一个图片框，用于显示文本框中文本的字体。一个命令按钮用于切换字体。界面设计如图所示 （20分） 精品文档