1、(1)产生“C”到“L”范围内的一个大写字符。(2)产生100到200(包括100和200)范围内的一个正整数。(3)取字符型变量S中从第五个字符起的6个字符。(4)将变量X的值按四舍五入保留小数点后两位。(5)将任意一个两位数X的个位数与十位数对换。4.写出下列表达式的值(1)123+23 Mod 107 + Asc(“A”)(2)100+“100”& 100(3)Int(68.55*100+0.5)/100(4)已知A$=“87654321”,求表达式 Val(Left$(A$,4)+Mid$(A$,4,2)的值。第四章 控制结构习题1. 求A、B、C三个数中的最大值(A、B、C为任意整数
2、)。2. 计算s=1+12+123+134+.+1. 103. 编一个程序,计算某个学生的奖学金等级是否为一等奖学金,以三门功课成绩m1、m2和m3为评奖依据,奖学金一等奖评定标准如下:(1)平均分大于95分。 (2)有两门成绩是100分,且第三门功课不低于80分。4输入一个数字(0-7),显示对应的星期一至星期日。5. 求二次方程ax2+bx+c=0的实数根。6. 计算分段函数:y=7. 随机产生20个0100之间的整数,求小于50的整数之和。第五章 数组习题1在VB6.0 中,数组的下界默认为0,用什么语句可以重新定义数组的默认下界?2要分配存放12个元素的整型数组,下列数组声明(下界若无
3、,按默认规定)哪些符合要求?(1)n=12 (2) Dim a%( ) Dim a( 1 To n ) AS Integer n=11 ReDim a(n)(3) Dim a%2,3 (4) Dim a(1,1,2 ) AS Integer(5) Dim a%(10) (6) Dim a!( ) ReDim a(1 To 20) ReDim a(3 To 2) AS Integer(7) Dim a%(2,3) (8) Dim a(1 To 3 1To 4 ) AS Integer3. 已知下面的数组声明,写出它的数组名、数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。 Di
4、m a(-1 To 2 ,3) As Intger4. 声明一个一维字符类型数组,有20个元素,每个元素最多放10个字符,要求:(1)由随机数形成小写字母构成的数组,每个元素的字符个数由随机数产生,范围110。(2)要求将生成的数组分4行显示,规定每个元素宽度为10。(3)显示生成的字符数组中字符最多的元素。第六章 过程习题 1、子过程和函数过程的异同点是什么?2、什么是形参?什么是实参?3、调用子过程或函数过程时,实参与形参的对应关系如何?应注意什么问题?4、值传递与地址传递的选择及其特点是什么?5、要使变量在某事件过程中保值,有哪几种变量声明的方法?6、下面程序的输出结果是 ( ) Pri
5、vate Sub command1_Click() ch= ACBFDE proc ch Print ch End Sub Private Sub proc(ch As String) S= For k=Len(ch) To 1 Step-1 s=s & Mid(ch , k , 1) Next k ch=s A)EDFBCA B)FEDCBA C)A D)F 7、在窗体上画一个名称为Command1的命令按钮,并编写以下程序 Private Sub Command1_Click() Print fun(ABCD) End Sub Function fun(st As String) As S
6、tring stlen = Len(st) temp = For k = 1 To stlen / 2 temp = temp + Mid(st, k, 1) + Mid(st, stlen - k + 1, 1) Next k fun = temp End Function程序运行时,单击命令按钮,则窗体上显示的是_ A)ABCD B)ACBD C)ADBC D)BCAD8、在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim a(10) As Integer, x As IntegerFor i = 1 To 1
7、0 a(i) = 8 + iNext ix = 1Print a(f(x)End SubFunction f( ByRef x As Integer)x = x + 3f = xEnd Function程序运行后,单击命令按钮,输出结果为。A) 12 B) 15 C) 16 D) 189、函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码是 ( )A)Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function B)Function
8、 F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End IfC)Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 ElseD)Function F1(b As Integer) If b Mod 2 0 Then Return 0 Return 1 End If End Function 10、编写一个过程,用来计算圆的面积。要求在主程序中用Inputbox语句输入任意圆的半径然后调用过程并输出圆的面积。11、编写一个函数,用来计算圆的面积。要求在主程序中用Inputbox
9、语句输入任意圆的半径然后调用函数并输出圆的面积。12、编写一个过程,用来计算并输出S=1+1/2+1/3+1/100的值。13、编写求解一元二次方程ax2+bx+c=0的过程,要求a、b、c及解x1、x2 都以参数传送的方式与主程序交换数据,输入a、b、c和输出x1、x2的操作放在主程序中。第七章 用户界面设计习题一、选择题:1.下列控件中,没有Caption属性的是()。A框架B列表框C复选框D单选按钮2.复选框的Value属性为1时,表示()。A 复选框未被选中 B复选框被选中C 复选框内有灰色的勾 D 复选框操作有错误3.用来设置粗体字的属性是()。AFontItalic B FontN
10、ame C FontBold D FontSize4.在用菜单编辑器设计菜单时,必须输入的项有()。A快捷键B标题C索引D名称5.在下列关于菜单的说法中,错误的是()。A每个菜单项都是一个控件,与其他控件一样也有自己的属性和事件。B除了Click事件之外,菜单项还能响应其他如DblClick等事件。C菜单项的快捷键不能任意设置。D在程序执行时,如果菜单项的Enabled属性为False,则该菜单项变成灰色,不能被用户选择。6.在下列关于通用对话框的叙述中,错误的是()。ACommonDialog1.ShowFont显示字体对话框。B在打开或另存为对话框中,用户选择的文件名可以经FileTitl
11、e属性返回。C在文件打开或另存为对话框中,用户选择的文件名及其路径可以以FileName属性返回。D通用对话框可以用来制作和显示帮助对话框。7.以下正确的语句是()。 A CommonDialog1.Filter =All Files|*.*|Pictures(*.bmp)|*.BmpB CommonDialog1.Filter =All Files|*.*Pictures(*.bmp)*.BmpC CommonDialog1.Filter = All Files|*.*|Pictures(*.bmp)|*.BmpD CommonDialog1.Filter = All Files|*.*|P
12、ictures(*.bmp)|*.Bmp8.在下面关于窗体事件的叙述中,错误的是()。A在窗体的整个生命周期中,Initialize事件只触发一次。B在用Show显示窗体时,不一定发生Load事件。C每当窗体需要重画时,肯定会触发Paint事件。DResize事件是在窗体的大小有所改变时被触发。9.下面关于多重窗体的叙述中,正确的是()。A作为启动对象的Main子过程只能放在窗体模块内。B 如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况决定是否加载或加载哪一个窗体。C没有启动窗体,程序不能执行。D以上都不对。10.如果Form1是启动窗体,并且Form1的L
13、oad事件过程中有Form2.Show,则程序启动 后( )。A发生一个运行时错误B发生一个编译错误C在所有的初始化代码运行后Form1是活动窗体D在所有的初始化代码运行后Form2是活动窗体11.假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,程序结束后变量x的值为()。Dim x As IntegerPrivate Sub Timer1_Timer() For i = 1 To 10 x = x + 1 Next iA1000 B 10000 C 10 D 以上都不对12.当用户按下并且释放一个键后会触发KeyPress、KeyUP和Key
14、Down事件,这三个事件发生的顺序是()。AKeyPress KeyDown KeyUp B KeyDown KeyUp KeyPressC KeyDown KeyPress KeyUp D 没有规律13.在下列关于键盘事件的说法中,正确的是()。A按下键盘上的任意一个键,都会引发KeyPress事件B大键盘上的“1”键和数字键盘上的“1”键的KeyCode码相同CKeyDown和KeyUp的事件过程中有KeyAscii参数D大键盘上的“4”键的上档字符是“$”,当同时按下Shift和大键盘上的“4”键时,KeyPress事件过程中的KeyAscii参数值是“$”的ASCII值。14.在Key
15、Down或KeyUp的事件过程中,能用来检查Ctrl和F3是否同时按下的表达式为 ()。A(Button=vbCtrlMask) And (KeyCode=vbKeyF3)B KeyCode=vbKeyControl+vbKeyF3C (KeyCode=vbKeyF3) And (Shift And vbCtrlMask)D (Shift And vbCtrlMask) And (KeyCode and vbKeyF3)15.当用户将焦点移到另一个应用程序时,当前应用程序的活动窗体将()。A发生DeActivate事件B发生LostFocus事件C发生DeActivate和LostFocus事
16、件 DDeActivate和LostFocus事件都不发生二、填空题:1.复选框属性设置为2Grayed时,变成灰色,禁止用户选择。2.在程序运行时,如果将框架的属性设为False,则框架的标题呈灰色,表示框架内的所有对象均被屏蔽,不允许用户对其进行操作。3.滚动条响应的重要事件有和Change。4.当用户单击滚动条的空白处时,滑块移动的增量值由属性决定。5.滚动条产生Change事件是因为值改变了。6.如果要每隔15s产生一个Timer事件,则Interval属性应设置为。7. 函数将返回系统的时间。8.当用户单击鼠标右键时,MouseDown、MouseUp和MouseMove事件过程中的
17、Button参数值为。9.当用户同时按下Ctrl和Shift键并单击鼠标时,MouseDown、MouseUp和MouseMove事件过程中的Shift参数值为 。10.如果要在程序运行期间改变鼠标的形状,必须先将MousePointer设置为vbCustom,然后在程序中用LoadPicture函数将需要的图标文件(.ico)或指针文件(.cur)装入 属性中。11.只要将MousePointer属性设置为 ,鼠标指针就恢复原样。12.如果窗体的 属性设为True,则控件的KeyPress事件过程,可以接收到在窗体的KeyPress过程中修改过的KeyAscii值。13.控件的 属性设置为1
18、时启用自动拖放模式。14.当源对象被拖动到目标对象上方时,在目标对象上将引发 事件,释放时又会引发事件。15.控件的 属性决定控件被拖动时显示的图标。16.菜单的热键指使用 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 符号,在菜单中这一字符会自动加上 ,表示该字符是一个热键字符。17.如果在建立菜单时在标题文本框中输入一个“”,那么菜单显示时形成一个分隔线。18.如果把菜单项的 属性设置为True,则该菜单项成为一个选项。19.不管是在窗口顶部菜单条上显示的菜单,还是隐藏的菜单,都可以用 方法把它们作为弹出菜单在程序运行期间显示出来。20.假定有一个通
19、用对话框控件CommonDialog1,除了用CommonDialog1.Action=3显示颜色对话框之外,还可以用 方法显示。21.在显示字体对话框之前必须设置 属性,否则将发生不存在字体错误。22.在用Show方法后显示自定义对话框时,如果Show方法后带 参数就将窗体作为模式对话框显示。23.在VB中,除了可以指定某个窗体作为启动对象之外,还可以指定 作为启动对象。24.每当一个窗体成为活动窗口时触发 事件,当另一个窗体或应用程序被激活时在原活动窗体上产生 事件。25.如果窗体不在内存中,则Show方法自动把窗体装入内存,此时引发事件。第8章 数据文件习题(1)设已打开5个文件,文件号
20、分别为1,2,3,4,5。要关闭所有文件,以下语句正确的是( ) A)Close#1,2,3,4,5 B)Close#1;#2;#3;#4;#5 C)Close#1-#5 D)Close (2)要建立一个学生的随机文件,如下定义了学生的记录类型,由学号、姓名、三门课程成绩(百分制)组成,下列程序段正确的是( )A) Typy stud1 no As Integer name As String score(1 To 3) As Single End TypeB) Typy stud1 name As String * 10 score( ) As SingleC) Typy stud1 sco
21、re(1 T为3 ) As SingleD) Typy stud1 score(1 To 3 )(3)下面叙述不正确的是( )A)若使用Write # 语句将数据输入到文件,则各数项之间自动插入逗号,并且将字符串加上双引号。B)若使用 Print # 语句输出到文件,则各数据项之间没有逗号分隔,且字符串不加双引号。C)Write # 语句和 Print # 语句建立的顺序文件格式完全一样。D)Write # 语句和 Print # 语句均实现向文件写入数据。(4)FileFiles.Pattern=“*.dat”程序代码执行后,会显示( ) A)只包含括展名为“*.dat”的文件 B)第一个d
22、at文件 C)包含所有文件 D)会显示磁盘的路径(5)如果准备读文件,打开顺序文件“Text.dat”的正确语句是( ) A)Open “text.dat” For Write As #1 B) Open “text.dat” For Binary As #1 C) Open “text.dat” For Input As #1 D) Open “text.dat” For Random As #1(6)执行语句Open “C:studata.dat” For Input As #2 后,系统( ) A)将C盘当前文件夹下名为studata.dat的文件的内容读入内存 B)在C盘当前文件夹下建
23、立名为studata.dat的顺序文件 C)将内存数据存放在C盘当前文件夹下名为studata.dat的文件中 D)将某个磁盘文件的内容写入C盘当前文件夹下名为studata.dat的文件中(7)下面对语句功能说明中错误的是() Open “text.dat” For Output As #FreeFileA)以顺序输出模式打开文件text.datB)如果文件text.dat不存在,则建立一个新文件C)如果文件text.dat已存在,则打开该文件,新写入的数据将添加到该文件中D)如果文件text.dat已存在,则打开该文件,新写入的数据将覆盖原有的数据(8)如果在C盘当前文件夹下已存在名为st
24、udata.dat 的顺序文件,那么执行语句Open“C:studata.dat” For Append As #1 之后,将( ) A)删除文件中原有内容 B)保留文件中原有内容,并在文件尾填加新内容 C)保留文件中原有内容,并在文件头填加新内容 D)以上均不对(9)随机文件用于读数据的语句是( ) A)Get B)Writ C)Print D)Input (10)设有语句Open “d:test.txt” For Output As #1,以下叙述中错误的是( ) A)若D盘根目录下无test.txt文件,则该语句创建此文件 B)用该语句建立的文件的文件号为1 C)该语句打开D盘根目录下一
25、个已存在的文件test.txt之后就可以从文件中读取信息 D)执行该语句后,就可以通过Print # 语句向文件test.txt中写入信息(11)以下叙述中错误的是( ) A)顺序文件中的数据只能按顺序读取 B)对同一个文件,可以用不同的方式和不同的文件号打开 C)执行Close语句,可将文件缓冲区中的数据写到文件中 D)随机文件中各记录的长度是随机的(1)在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空白处填上适当的内容,将程序补充完整。 Open “
26、c:test.dat” For _ As #1 For i=1 To Len(Text1.text) Print #1, mid(Text1.Text,I,1) Next Close #1(2)随机文件以_为单位读写,随机文件的记录是_记录。(3)随机文件使用 Put 语句写数据,使用_语句读数据。(4)有一个事件过程,其功能是:从已存在于磁盘上的顺序文件nm1.txt 中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件nm2.txt 中。请填空。Private Sub Form_Click() Dim x As Single,y As Single Open “nm1.txt” For Input As #1 Open “nm2.txt” For Input As #2 Do While Not EOF(1) _ Print x y=x2 Pr
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1