中国矿业大学2007

1、中国矿业大学20072008学年第二学期VB程序设计笔试试卷（A）卷考试时间：120 分钟 考试方式：闭卷学院 姓名_ 班级_ 班级序号 _ 题 号一二三四总分分 值30203020100得 分阅卷人注：必须将答案按题号的先后顺序写在答题纸上，否则不予记分。一、 选择题（本题30小题，每题1分，共30分）1关于窗体Name属性的叙述，正确的是 。A窗体Name属性的属性值必须通过属性窗口进行设置B窗体Name属性的属性值最长可达255个字符C窗体Name属性的属性值不能与其它的控件对象的Name属性的属性值相同D窗体Name属性的属性值可以通过赋值语句来给它赋值2只能用于除去字符串右侧空格的函

2、数是 。ARightTrim BRTrim CTrim DRLTrim3下列表达式中，值为True的是 。A32=Lcase(VB)CMid(vbprogram, 2, 2) Left(vbprogram, 2)D14 / 2 3 10 Mod 44数学表达式|e3+lnX+arctgY|对应的VB表达式是 。AAbs(e 3 + Log(X) + 1 / Atn(Y)BAbs(Exp(3) + Log(X) / Log(10) + Atn(Y)CAbs(Exp(3) + Log(X) + 1 / Atn(Y)DAbs(Exp(3) + Log(X) + Atn(Y)5执行语句 Print S

3、gn(Fix(3.1) + Int(-3.1) ，在窗体上输出的结果是 。A1 B0 C-1 D66下列语句不能正常执行的是 。APrint 20 + 5 = 25 BPrint 11 + 11CPrint 11 & 11 DPrint 32700 + 1007在窗体上有两个文本框Text1和Text2，若希望在Text1中输入字符时，该字符也将出现在Text2中，要实现该功能，则必须在文本框Text1的 事件中书写代码。AClick BGotFocus CLostFocus DChange8在窗体（Name属性为Form1）上画两个文本框（Name属性分别为T1和T2）和一个命令按钮（Nam

4、e属性为C1）。单击命令按钮C1后在窗体上输出的结果为 。Private Sub C1_Click() s = T1.Text + T2.Text Print sEnd SubPrivate Sub Form_Load() T1.Text = 234 T2.Text = 432End SubA666 B234432 C432234 D出错9下列控件中，具有Caption属性的是 。A文本框 B复选框 C滚动条 D列表框10下列选项中（其中对象的Name属性值均为默认值），控件的属性值既能在设计时设置，又能在运行时通过赋值语句改变的是 。AList1.Name BText1.MultiLineC

5、Command1.Style DLabel1.Visible11为了在按下ESC键时执行某个命令按钮的Click事件过程，需要把该命令按钮的 属性的值设置为True。AValue BDefault CCancel DEnabled12如图1所示，在窗体中创建了框架、单选钮和命令按钮（其中对象的Name属性值均为默认值），图中“公共基础课”字样的内容，是通过 语句来实现的。AFrame1.Caption=公共基础课BForm1.Caption=公共基础课COption1.Caption=公共基础课DCommand1.Caption=公共基础课13下列选项中，不能使控件获得焦点的操作是 。图1A在

6、程序运行期间，用鼠标单击对象 B在程序运行期间，用快捷键选择对象C在程序运行期间，用Tab键D在程序运行期间，用Enter键14下列选项中不属于结构化程序设计的基本结构的是 。A顺序结构 B选择结构 C循环结构 D递归结构15下面关于赋值语句的说法中，错误的是 。A一个赋值语句只能给一个变量(或对象的一个属性)赋值B赋值语句是一种顺序语句C当赋值语句中变量的数据类型与表达式的数据类型不一致时，该语句一定会出错D赋值语句中出现两个“=”号时，系统会根据“=”所处的位置自动判断符号的意义。16如图2所示，Inputbox函数的参数中“提示信息”的值是 。A输入你的学号B信息输入框C0101001D

7、确定 图217现有语句： y = IIf(x 0 , x 5, 0) 设x = 10，则y的值是 。A10 B2 C0 D语句有错 18对动态数组A()，若原数组为A(5)，要改变其维界为A(10)，同时还要保留原数组的数据不丢失，应使用 语句进行重新定义。A. Dim A(10) B. ReDim Preserve A(5 To 10) C. ReDim Preserve A(10) D. ReDim A(10)19下面的循环语句中，不可以采用 来求1到100的和。ASum = 0 BSum = 0For I = 1 To 100 For I = 100 To 1 Step -1 Sum =

8、 Sum + I Sum = Sum + I Next I Next ICI = 1 DI = 1Do Do Until I 100 Sum = Sum + I I = I + 1I = I + 1 Sum = Sum + I Loop While I 4 Then Exit Do End If Loop Print x Print yEnd Sub2.运行下面的程序，当单击窗体时，窗体上显示的内容第一行是_(3)_，第二行是_(4)_。Private Sub Form_Click()Dim a(3, 3) As Integer, i As Integer, j As Integer For

9、i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j * 2 Next jNext i For i = 1 To 3 For j = i + 1 To 3 Print a(j, i); Next j Print Next iEnd Sub3.运行下面的程序，当单击窗体时，窗体上显示的内容第一行是 (5） ，第三行是 (6) ，Form_Click()事件过程中的第二个For-Next循环共执行了 (7) 次。Private Sub Form_Click()Dim x(1 To 4) As IntegerDim i As Integer, j A

10、s Integer For i = 1 To 4 x(i) = i * i Print x(i); Next i Print For j = 1 To 4 Call sub1(x(j), j) Print j Next jEnd SubPrivate Sub sub1(x As Integer, m As Integer) If x - m 0 If (11) Then n = n 10 Else f = False Exit Sub End IfLoopEnd Sub5.下列程序的功能是：随机生成10个三位正整数，存放到数组a中，再用选择排序法对数组a从大到小排序，并且把排好顺序的数组元素写

11、入D盘的根目录下的file1.txt文件中。程序运行参考界面如图8。Private Sub Form_Click()Dim n As Integer, a(1 to 10) As Integer, i As IntegerDim j As Integer, imax As Integer, t As IntegerPrint 排序前For i = 1 To 10 （12） Print a(i);Next i图8Print Print 排序后 For i = 1 To 9 imax = i For j = i + 1 To 10 If （13） Then imax = j Next j t =

12、a(i) a(i) = a(imax) a(imax) = tNext i （14） For i = 1 To 10 （15） Next iClose #1Print d:file1.txt文件已经建立End Sub四、编程题（20分）1.在窗体上有一个命令按钮Command1和四个文本框txta、txtb、txtc和txtd。在Command1_Click事件过程中编写程序完成以下功能：在文本框txta、txtb和txtc中分别输入数值，单击“判断”命令按钮时，判断它们是否能组成一个三角形，如果能组成三角形，在文本框txtd中输出三角形的类型（直角三角形或普通三角形），如果不能则弹出提示窗口

13、，窗口的提示信息为“不能构成三角形”，程序的参考界面如图9所示。 图92.编写程序找出所有10-99之间的所有素数，并在其中找出十位数和个位数之和为10的素数。程序的参考界面如图10所示。要求：(1)编写一个判断某个正整数是否为素数的函数过程SuShu()；(2)单击“两位素数”命令按钮Command1时，则调用函数过程SuShu()在图片框Picture1上输出10-99之间所有素数，每行输出7个数；图10 (3)单击“各位数字之和为10的素数”命令按钮Command2时，在列表框List1中输出十位数和个位数之和为10的素数； (4)单击“退出”命令按钮Command3时，结束程序的运行。

14、中国矿业大学20072008学年第二学期VB程序设计笔试试卷答案及评分标准（A）卷一、 选择题（本题共30小题，每小题1分，共30分）1A2B3A4D5C6D7D8B9B10D11C12A13D14D15C16A17B18C19D20B21A22C23C24C25B26D27B28B29A30B二、分析程序，写结果（本题10个空，每空2分，共20分）题号题目序号答 案1(1)6 本题对一半给1分(2)562(3)5 8(4)103(5)1 4 9 16(6)7(7)24(8)1 2(9)2 4(10)4三、完善程序（本题15个空，每空2分，共30分）题号题目序号答 案1(1)x = 3或x e

15、ps 或Abs(t) = eps(5)(-1) n * p * x (2 * n + 1) / (2 * n + 1)3(6)shuju(i) = True 或 shuju(i)(7)y=Val(Right(CStr(x), 1) 或y = Right(x, 1)y=Val(Right(x, 1) 或y=Right(CStr(x), 1)或y=x mod 10(8)shuju = True4(9)Call superodd(i, flag) 或superodd i, flag括号内参数也可写成(i),flag(10)ByVal n As Integer如果第(9)空写成(i),flag,本空可

16、省略ByVal(11)n Mod 2 0 或 n mod 2=15(12)a(i) = Int(999 - 100 + 1) * Rnd + 100)(13)a(j) a(imax) 或a(j) = a(imax)(14)Open D:file1.txt For Output As #1(15)Print #1, a(i) 或 Write #1, a(i)本题写对一半以上可以给1分四、编程题（20分）1.Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer 1 a = Val(txta) b = Va

17、l(txtb) c = Val(txtc) 1 If a 0 And b 0 And c 0 Then 1 If a + b c And a + c b And b + c a Then 1 If a*a + b*b = c*c Or a*a + c*c = b*b Or b*b + c*c = a*a Then 1 txtd = 直角三角形 1 Else txtd = 普通三角形 1 End If Else MsgBox 不能构成三角形 1 End If End IfEnd Sub2.Dim a() As Integer, n As Integer 1Private Function SuShu(ByVal a As Integer) As Boolean 4 Dim i As Integer SuShu = True For i = 2 To Sqr(a) If a Mod i = 0 Then SuShu = False Exit For End If Next iEnd FunctionPrivate Sub Command1_Click() 4 Dim i As Integer For i = 10 To 99 If SuShu(i) = True Then n = n + 1 ReDim Preserve a(n) a(n) = i P