《程序设计基础》复习题【附答案】
《程序设计基础》复习题一及答案
一.判断题
(1)(错)事件过程由某个用户事件或系统事件触发执行,但不能被其他过程调用。
(2)(错)若X=2, Y=5,则表达式 Y-2>X AND X+2>Y 的结果为:True。
(3)(错)常量是指在程序运行过程中其值可以改变的那些量。
(4)(错,timer没有)VB工具箱中的所有控件都具有宽度(Width)和高度(Height)属性。
(5)(错)定义变量:Dim max,min as Single , 则max 和 min 的数据类型均为Single。
(6)(对)如果创建的菜单项的标题是一个减号“-”,则该菜单项显示为一条分隔线。
(7)(错)标准模块文件的扩展名是“*.VBP”。
(8)(错,都不能)定时器控件可以响应Click事件,但不能响应DbClick事件。
(9)(错)在默认情况下,数组下标下界的缺省值为1。
(10)(对)在使用字体对话框时,需要对其Flags属性先进行相应设置。
二.单选题
(11)在Visual Basic中,表示鼠标单击事件的是 C 。
A)Activate B)DoubleClick C)Click D)MouseDown
(12)用于设置计时器时间间隔的属性是 A 。
A)Interval B)Name C)Left D)Top
(13)函数Int(10*Rnd)是在 D 范围内的整数。
A)[1,10] B)[1,10] C) [0,9) D)[0,9]
(14)Select case语句结构的结尾应使用 D 。
A)End B) End Case C) End Sub D) End Select
(15)改变了容器的坐标系后,该容器的 A 属性值不会改变。
A)left B)scaleleft C)scaletop D)scalewidth
(16)执行下列语句后,列表框中各表项顺序为 D
List1.Clear
For i=1 to 4 : List1.AddItem i-1,0 :Next i
A)B)C)D)
(17)输入对话框InputBox的返回值的类型是 A 。
A)字符串 B)整数 C)浮点数 D)长整数
(18)将焦点主动设置到指定的控件或窗体上,应采用 B 方法。
A)SetDate B)SetFocus C)SetText D)GetData
(19)有如下程序段:
Dim I As Integer , S As Integer
S = 1
FOR I = 1 TO 8 STEP 2
S = S * I
NEXT I
PRINT “S = “ ; S
运行结果为 B
A)S = 9 B)S = 105 C)S = 1 D)S = 16
(20)利用以下___D____语句,可以输出日期和时间信息。
A)Print Date B)Print Month C)Print Time D)Print Now
(21)一只漂亮的酒杯被摔碎了,则漂亮,酒杯,摔是___D____。
A)对象,属性,事件 B)对象,属性,方法
C)属性,对象,方法D)属性,对象,事件
(22)将通用对话框以“打开文件对话框”方式打开,则选以下A方法。
A) ShowOpen B)ShowColor C)ShowSave D)ShowFont
(23)执行语句“Line (100, 100)-(150, 200), vbBlue, B”,在窗体上绘制出一个矩形,那
么该矩形的面积 = A 。
A)5000 B)10000 C) 15000 D)20000
(24)如何使一个标签或按钮控件在运行时不可用___C____。
A)把它的Visible属性设置成False B)把它的Visible属性设置成True
C)把它的Enabled属性设置成False D)把它的Enabled属性设置成True
(25)下列 C 表达式的结果为"1234556789"。
A)Trim("12345 "+" 56789") B)Ltrim("12345 ")+Rtrim(" 56789")
C)Rtrim("12345 ") & ("56789")D)Ltrim("12345 ") & Rtrim(" 56789") (26)将图形框(PictureBox)控件的AutoSize属性设置为True后,则对于图形框而言,
____B____。
A)图形框中的图片自动改变大小适应图形框
B)图形框自动改变大小适应其中的图形
C)如果图片的大小比图形框大,则图形框自动裁剪图象以适应图形框的大小。
D)如果图片的大小比图形框小,则图形框大小不发生变化。
(27)要获得当前驱动器应使用驱动器列表框的哪个属性 B 。
A)Path B)Drive C)Dir D)Pattern
(28)以下关于函数过程的叙述中,正确的是____A____。
A)函数过程形参的类型与函数返回值的类型没有关系
B)在函数过程中,过程的返回值可以有多个
C)数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D)如果不指明函数过程参数的类型,则该参数没有数据类型
(29)单击滚动条的滚动箭头时,产生的事件是___C____。
A)Click B)Scroll C) Change D)Move
(30)以下能返回文件长度的函数是__B___。
A)BOF B)LOF C)LEN D)EOF
三.程序填空题
【程序填空1】在C盘当前文件夹下已存在名为Data.txt的文件,利用文本框(Text1)输入若干英文单词。要求每输入一个单词后,按下回车键将文本框中的单词写入文件,然后清除文本框的内容以便输入下一个单词。当在文本框中输入的单词是“END”时,则表示结束输入(对于单词“END”不论大小写都视为结束),最后将文件关闭。
Private Sub Form_Load()
(31)
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If (32) = "END" Then
Close #
End
Else
(33)
Text1.Text = ""
End If
End If
End Sub
(31)Open "C:\Data.txt" For Output As #1
(32)UCase(Text1.Text)
(33)Write #1, Text1
【程序填空2】程序运行后如下图所示,Label1的Caption显示为"字体定时变大",影响字体大小的属性每隔0.5秒增加1,数值在[8,72]之间变化。
Option Explicit
Private Sub Form_Load()
Timer1.Enabled = True
(34)
Label1.Caption = "字体定时变大"
End Sub
Private Sub Timer1_Timer()
Static i As Integer
If i < 7 Or i >= 72 Then i = 7
i = i + 1
(35)
End Sub
(34)Timer1.Interval = 500
(35) Label1.FontSize = i
【程序填空3】已知五个数存放在数组中,用冒泡法对该数组进行递减排序(冒泡法:一旦发现数组中两个数逆序马上交换这两个数)。
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
Dim n%, i%,j%, t%
a(1) = 53: a(2) = 34: a(3) = 45: a(4) = 89: a(5) = 23
For i = 1 To 4(确保第i轮循环后,a(i)位置上存放第i大的数)
For j = 5 To i+1 Step -1
If (36)Then
t = a(j)
(37)
a(j - 1) = t
End If
Next j
Next i
For i = 1 To 5
Print a(i);
Next i
End Sub
(36)a(j) > a(j - 1)
(37)a(j) = a(j - 1)
《程序设计基础》复习题二及答案
一、判断题
1.(错)任何控件都有一个Caption属性。
2.(对)对于事件驱动型应用程序,每次运行时的执行顺序可以不一样。
3.(错)用以下语句定义:Dim max,min as Single , 则max 和 min 的数据类型均为Single。
4.(对)通用对话框不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作,如果想要实现这些功能则需要编程实现。
5.(对)用Scale方法改变了窗体坐标系后,窗体的Left、Top属性值不变。
6.(对)在某列表框中一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2。
7.(错,标准模块文件格式为.bas)VB中工程文件是指与该工程有关的全部文件和对象,其扩展名是.vbp;窗体文件包括窗体及其控件的正文描述,其扩展名是.frm;标准模块文件是可选的,其扩展名是.cls。。
8.(错,Clear方法)用Cls方法可以清除组合框中的所有表项。
9.Frame控件可以作为其他控件的容器。
10.(错)Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性。
二、单选题
11.P的值为-3时,-P^2的值是___B_____。
A、9
B、–9
C、6
D、-6
12.以下程序段的执行结果为_____A_______。
A=0: B=1
Do
A=A+B
B=B+1
Loop While A<10
Print A;B
A、10 5
B、A B
C、0 1
D、10 30
13.设置列表框中列表数量的属性是__B____。
A、List
B、ListCount
C、ListIndex
D、Columns
14.要获得当前驱动器应使用驱动器列表框的哪个属性__B__。
A、Path
B、Drive
C、Dir
D、Pattern
15.以下Case语句中错误的是___C_____。
A、Case 0 To 10
B、Case Is>10
C、Case Is>10 And Is<50
D、Case 3,5,7,Is>10
16.执行语句s=Len(Mid("VisualBasic",0,5))后,s的值是___D_____。
A、Visual
B、Basic
C、6
D、表达式有错
17.以下关于函数过程的叙述中,正确的是___A_____。
A、函数过程形参的类型与函数返回值的类型没有关系
B、在函数过程中,过程的返回值可以有多个
C、当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D、如果不指明函数过程参数的类型,则该参数没有数据类型
18.在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:
Private Sub TxtA_KeyPress(keyascii as integer)
…………
End Sub
若焦点位于文本框中,则能够触发KeyPress事件的操作是____D____。
A、单击鼠标
B、按下键盘上的“A”键
C、鼠标滑过文本框
D、按下键盘上的任意键
19.执行行下面的事件过程,在窗体显示的内容是___B_____。
Private Sub Command1_Click()
Dim a As Variant
a = Array(12, 23, 34, 45, 56)
For i = 1 To 3
Print Trim(a(i));
Next I
End Sub
A、122334
B、233445
C、12 23 34
D、23 34 45
20.将图形框(PictureBox)控件的AutoSize属性设置为True后,则对于图形框而言,
____B____。
A、图形框中的图片自动改变大小适应图形框
B、图形框自动改变大小适应其中的图形
C、如果图片的大小比图形框大,则图形框自动裁剪图象以适应图形框的大小。
D、如果图片的大小比图形框小,则图形框大小不发生变化。
21.在图形框控件picture1上坐标(100,100)和(500,500)之间画一条红色直线,写作__C__。
A、Line (100,100)-(500,500) vbRed
B、Line (100,100)-(500,500) RGB(0,255,0)
C、picture1.Line (100,100)-(500,500) RGB(255,0,0)
D、picture1.Line (100,100)-(500,500) Red
22.下列赋值语句中,___C_____是错误的。
A、x=x+1
B、x=x+y
C、x+y=x
D、x=4>6
23.单击滚动条的滚动箭头时,产生的事件是____C______。
A、Click
B、Scroll
C、 Change
D、Move
24.在程序运行期间可以用____D______函数把图形装入窗体、图片或图象框。
A、Autosize
B、Stretch
C、Picture
D、LoadPicture
25.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后,单击命令按钮,则窗体上显示的内容是____B______。
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、无数据输出
26.___C____对象具有Clear方法。
A、窗体
B、复选框
C、列表框
D、图片框
27.设a=16,b=7,c=1,则表达式 a \ 3 + 2 = b And c = 91 Mod 3的结果_____A_____。
A、True
B、False
C、1
D、出错信息
28.设有如下通用过程:
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程:
Private Sub Command1_Click()
Dim arr(5) As Variant
Dim n as Integer
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是 A
A、10
B、15
C、25
D、24
29.窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim num As Integer
For num = 1 To 6 Step 3
Print num;
Next num
Print num
End Sub
程序运行后,单击命令按钮,则窗体上显示的内容是____C______。
A、1 4 4
B、1 3 5
C、1 4 7
D、无数据输出
30.以下___A____方式打开的文件只能读不能写。
A、Input
B、Output
C、Append
D、Random
三、程序填空
程序1.在C盘当前文件夹下建立一个名为Data.txt的顺序文件,要求用文本框输入若干英文单词,每次按下回车键时将文本框中的内容写入文件,并清除文本框的内容,直到文本框输入END为止,最后关闭文件。
Private Sub Form_Load()
(31)
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If (32) = "END" Then
(33)
End
Else
(34)
Text1.Text = ""
End If
End If
End Sub
31. Open "C:\Data.txt" For Output As #1
32. UCase(Text1.Text)
33. Close #1
34. Write #1, Text1
程序2.下面程序的作用是利用随机函数产生100个随机整数,范围在[20,120]之间(包含20和120),打印其中为5或7的倍数的数,求出它们的总和并打印。请将下列程序补充完整。
Private Sub Command1_Click()
SUM=0
For i = 1 To 100
X = Int ( (35) )
If (36) Then
SUM=SUM+X
(37)
End If
Next i
Print "SUM="; SUM
End Sub
35. Int(Rnd*101+20)
36. X Mod 5 = 0 Or X Mod 7 = 0
37. Print X;
程序3.单击窗体后,用输入对话框输入x 、n ,然后按下式计算结果。要求:将计算结果以标签控件显示,且标签控件每秒随机变换一次颜色。
S =)!
1(!4!3!232++??+++n x x x x n
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Form_Click()
Dim x As Single, n As Integer, i As Integer, t As Single
(38)
s = 0
x = InputBox("x=")
n = InputBox("n=")
(39)
for i= (40)
t = t * x / i
s = s + t
Next i
(41)
End Sub
Private Sub Timer1_Timer()
Label1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
38.Dim s As Single
39.t = 1
40.2 To n+1
https://www.360docs.net/doc/9c12980096.html,bel1.Caption = s
程序4.设计一个程序,用于从文本框Text1输入课程名称,单击按钮,添加到列表框(List1)中显示出来。
具体要求:单击“Command1”按钮,若文本框Text1.Text中不是空格串,并且列表中也没有,则将该课程添加列表框中,然后清除文本框Text1的内容,再将焦点返回到文本框Text1,以便再次在文本框Text1输入内容,继续添加。
Private Sub Command1_Click()
Dim I As Integer
Dim AddFlag As Boolean
(42)
If (43) Then
For i = 0 To (44)
If List1.List(i) = Text1.Text Then
AddFlag = False
Exit For
End If
Next i
If AddFlag Then List1.AddItem Text1.Text
End If
Text1.Text = ""
(45)
End Sub
42.AddFlag = -1
43.text1.text <> “”
44.List1.ListCount-1
45.text1.SetFocus
工程热力学期末考试试题
一、1.若已知工质的绝对压力P=,环境压力Pa=,则测得的压差为(B)A.真空pv= B.表压力pg=.真空pv= D.表压力p g= 2.简单可压缩热力系的准平衡过程中工质压力降低,则(A) A.技术功为正 B.技术功为负 C.体积功为正 D.体积功为负 3.理想气体可逆定温过程的特点是(B)=0 =>W s>s″ 16.可逆绝热稳定流动过程中,气流焓的变化与压力变化的关系为(B) ====pdv 17、饱和湿空气的相对湿度(B)A.>1B.=1C.<<<1 18.湿空气的焓h为(D)湿空气的焓湿空气的焓干空气与1kg水蒸汽焓之和干空气的焓与1kg干空气中所含水蒸汽的焓之和 二、多项选择题 1.单位物量的理想气体的热容与_____有关。(ACDE)A.温度B.压力C.气体种类D.物量单位E.过程性质 2.卡诺循环是__AD___的循环。 A.理想化 B.两个定压、两个绝热过程组成 C.效率最高 D.可逆 3.水蒸汽h-s图上的定压线(AD)A.在湿蒸汽区为直线B.在过热蒸汽区为直线C.在湿蒸汽区为曲线 D.在过热蒸汽区为曲线 E.在湿蒸汽区和过热蒸汽区是斜率不同的直线 4.理想气体经绝热节流后,前后稳定截面上的__BD___相等。 5.A.压力B.温度C.比体积D.焓E.熵
C++程序设计基础课后答案 第八章
8.1 阅读下列程序,写出执行结果 1.#include
cout << p3 -> fun() << endl; } 2.#include