内容发布更新时间 : 2024/5/22 13:04:20星期一 下面是文章的全部内容请认真阅读。

精品文档

（B）通过MsgBox函数可以设置信息框中图标和按钮的类型 （C）MsgBox语句没有返回值

（D） MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

15．设x=4,y=8,z=7，表达式xz) Or z

二、填空题（每题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分）

精品文档