安徽大学vb模拟题

2008-5-16 vb模拟题

一、程序填空：

1、以下程序的功能是：依次从弹出对话框中输入10个数字并输出到窗体中，将它们的最大值输出。 Private Sub Command1_Click() max=0

For i = 1 To 10

x = Val(____(1)____) Print x

If ____(2)____ Then ____(3)____ Next i Print Max End Sub

1）InputBox(\ 2）x>max@max

随机产生25个两位的随机数，将其组成一个五行五列的矩阵输出，并计算其右对角线元素之和。请将程序补充完整。 Private Sub Command1_Click() Dim x(1 To 5, 1 To 5) s = 0 For i = 1 To 5 For j = 1 To 5

x(i, j) = ____(1)____ Print x(i, j);

If ____(2)____ Then s = s + x(i, j) Next j Print Next i Print s

End Sub

1） Int(Rnd * 90 + 10) 2） i=j

3.下面程序的功能是：设计一个选课运行界面，如下图所示。它包含两个列表框，左边列表框list1为已可供选择的课程名，当单击某课程名后，将该课程加入到右边的列表框list2中，同时在左边列表框中删除。当右边课程数已满5门时，不允许再加入。请将程序补充完整。 Private Sub Form_Load() List1.Clear

List1.AddItem \大学计算机基础\List1.AddItem \程序设计\List1.AddItem \数据库技术与应用\List1.AddItem \程序设计\List1.AddItem \多媒体技术\List1.AddItem \硬件技术基础\

List1.AddItem \网络技术与应用\List1.AddItem \程序设计\End Sub

Private Sub List1_Click() If ____(1)____ Then

MsgBox \超过5门课程，不能再选！\ Exit Sub Else

____(2)____

List1.RemoveItem List1.ListIndex End If End Sub

1）List2.ListCount >= 5

2）List2.AddItem List1.Text

4. \下面程序的功能是：

随机产生20个两位的随机数，将其组成一个四行五列的矩阵并输出。请将程序补充完整。 Private Sub Command1_Click() Dim x(1 To 4,1 to 5) For i = 1 To 5 for j=1 to 4

x(i,j) =____(1)____ Print x(i,j); Next j ____(2)____ next i End Sub

1)Int(Rnd * 90 + 10) 2) Print 5、\下面程序的功能是：

找出被3、5、7除，余数均为1的最小的5个正整数。请将程序补充完整。

Private Sub Command1_Click() Dim count%, n% count = ____(1)____ n = 1 Do

n = ____(2)____

If n Mod 3 = 1 Or n Mod 5 = 1 Or n Mod 7 = 1 Then Print n

count = count + 1 End If Loop ____(3)____ End Sub

1）0 2）n+1 3）Until count = 5（ while count<5 ） 6、\下面程序的功能是：

将输入的字符串以反序显示，如输入\，显示\。请将程序补充完整。 Private Sub Command1_Click() s = InputBox(\输入字符串：\For i = ____(1)____ To 1 Step -1 Print ____(2)____; Next i End Sub

1）Len(s) 2）Mid(s, i, 1) 二、选择题：

1、 在Visual Basic 中称对象的数据为__________。 A、 属性 B、方法C、 事件 D、封装 （A）

2、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是__________。 A、单选按钮

B、图片框 C、通用对话框 D、文本框 （C）

3、双击窗体中的对象后，Visual Basic将显示的窗口是_（C）___。A、项目（工程）B、窗口工具箱 C、代码窗口 4、VB是一种_________的可视化编程程序。 A、 面向对象 B、面向过程

D、属性窗口

C、A 和 B D、面向机器（A）

5、为了使文本框同时具有水平和垂直滚动条，应先把MultiLine

本文来源：https://www.bwwdw.com/article/bhzt.html