程序填空题
程序填空题（贯穿在理论课中分析讲解）
说明：阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确的答案。
1.试题1
【程序】
Private Sub Text1_KeyPress(K As Integer)
If K < Asc("0") Or K > Asc("9") Then
K = 0
Else
Label1.Caption = Chr(K) + Label1.Caption
End If
End Sub
【供选择的答案】
(1) Text1获得输入焦点后，依次按数字键1、3、5，Label1显示：
A、135
B、531
C、9
D、5
(2) Text1获得输入焦点后，依次按数字键2、7、9，Label1显示：
A、972
B、279
C、297
D、18
(3) Text1获得输入焦点后，依次按-、2、3、5键，Label1显示：
A、-532
B、-235
C、532
D、235
(4) Text1获得输入焦点后，依次按1、2、a、5键，Label1显示：
A、空白
B、12a5
C、5a21
D、521
2.试题2
【程序】
Private Sub Form_Load()
Text1.Text="": Form1.Cls
End Sub
Private Sub Text1_KeyPress(k As Integer)
Static s As Integer
If (Chr(k) < "0" Or Chr(k) > "9") And k<> 13 Then k=0
If k=13 Then s = s + Val(Text1.Text): Text1.Text = "": Print s;
End Sub
(1) 写出运行时在Text1中依次按“1↙3↙5↙”后窗体上的显示结果。
A、1 4 9
B、9
C、1 3 5
D、5
(2) 写出运行时在Text1中依次按“2↙4↙6↙”后窗体上的显示结果。
A、2 4 6
B、12
C、6
D、2 6 12
(3) 写出运行时在Text1中依次按“1↙-3↙5↙”后窗体上的显示结果。
A、1 -2 3
B、1 4 9
C、1 -3 5
D、3
(4) 写出运行时在Text1中依次按“1↙2a↙5↙”后窗体上的显示结果。
A、1 43 48
B、1 2 5
C、5
D、1 3 8
3.试题3
【程序说明】
界面设计如下图所示，程序运行时要求完成以下功能：
按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且a>b，并分别在Label1、Label2
中显示，此后Command1不可用；
在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；
按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。
【程序】
Dim n As Integer, n_error As Integer
(1)
Private Sub Command1_Click()
Dim c as Integer
a = 10 + Rnd * 90
b = 10 + Rnd * 90
If a < b Then (2)
Label1.Caption = a
Label2.Caption = b
n = n + 1
Text1.Text = ""
Command1.Enabled = False
End Sub
Private Sub Text1_ (3) (KeyAscii As Integer)
If KeyAscii<>13 Then (4)
If a - b = Val(Text1.Text) Then
MsgBox ("回答正确")
Else
MsgBox ("不回答正确")
n_error = n_error + 1
End If
Command1.Enabled = True
End Sub
Private Sub Command2_Click()
MsgBox (5)
End Sub
【供选择的答案】
(1) A、'小学生两位数减法训练程序B、a=0: b=0: c=0
C、n=0: n_error=0
D、Dim a As Byte, b As Byte, c As Byte
(2) A、b=a: a=b B、c=a: a=b: b=c
C、a=b: b=a
D、c=a: b=a : a=c
(3)A、keypress B、change C、keyDown D、KeyUp
(4)A、Exit Sub B、keyAscii=13 C、keyAscii=0 D、Exit Do
(5) A、″共″& n &″题，错″& n error & ″题″
B、″共n 题，错n error题″
C、″共″+ n + ″题，错″+ n error +″题″
D、共& n & ″题，错″& n error & ″题″
4.试题4
【程序说明】单击Command1后计算a?x2＋b?x＋c的值并显示，界面设计以及运行时的显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。
【程序】
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, x As Single, y As Single
a = Text1(0).Text:
b = Text1(1).Text
c = Text1(2).Text: x = Text1(3).Text
y = a * x * x + b * x + c
Label3.Caption = y
End Sub
Private Sub Text1_(1) (Index As Integer, (2) )
Select Case (3)
Case "A" To "Z"
K = 0
Case (4)
K = 0
End Select
End Sub
【供选择的答案】
(1) A、keyPress B、change C、keyDown D、keyup
(2) A、keyAscii As Integer B、Value C、Text() D、k As Integer
(3) A、Chr(KeyAscii) B、Chr(K) C、Asc(K) D、Asc(KeyAscii)
(4) A、a To z B、'a' To 'z' C、"a" To "z" D、'a'...'z'
5.试题5
【程序说明】
单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。
例如：输入123显示321，输入-567显示-765。
【程序】
(1)
Private Sub Form_Load()
(2)
End Sub
Private Sub Command1_Click()
Text1.Text = "": n = InputBox("n=")
End Sub
Private Sub Command2_Click()
If n < 0 Then n = -n: Text1.Text = "-"
While n <> 0
Text1.Text = (3)
(4)
Wend
End Sub
【供选择的答案】
(1) A、Dim n As Byte B、Dim n As Integer
C、Dim n As String
D、Public n As Byte
(2) A、Text1.Locked = True B、Text1.Locked = False
C、Text1.Visible = True
D、Text1.Visible = False
(3) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text
C、Text1.Text & n/10
D、Text1.Text & n Mod 10
(4) A、n = n \ 10 B、n = n / 10
C、n = n Mod 10
D、n = n - 10
6.试题6
【程序】
Private Sub Command1_Click()
Dim a As Integer, b As Integer, x As Long, i As Integer
On Error GoTo qq
a = InputBox("a=")
b = InputBox("b=")
x = a
While Not (a Mod x = 0 And b Mod x = 0)
x = x - 1
Wend
Print x
Exit Sub
qq: MsgBox "请重输"
Exit Sub
End Sub
【供选择的答案】
(1)单击Command1后，依次输入8、6后，显示：
A、2
B、24
C、14
D、1
(2)单击Command1后，依次输入28、16后，显示：
A、44
B、1
C、112
D、4
(3)单击Command1后，依次输入3、5后，显示：
A、15
B、1
C、8
D、125
(4)单击Command1后，依次输入4、32987后，显示：
A、空白
B、1
C、0
D、请重输
7.试题7
【程序】
Dim m As Integer
Private Sub Command1_Click()
Dim a As Integer, i As Integer, f As Integer
a = InputBox("a=")
f = 1: i = 2
Do While i <= a / 2
If a Mod i = 0 Then f = f + i
i = i + 1
m = m + 1
Loop
Form1.Cls: Print f
End Sub
【供选择的答案】
(1) 运行时第1次单击Command1输入7后，窗体上的显示结果为：
A、1
B、3
C、5
D、7
(2) 运行时第2次单击Command1输入8后，窗体上的显示结果为：
A、2
B、7
C、8
D、6
(3) 运行时第3次单击Command1输入9后，窗体上的显示结果为：
A、3
B、5
C、7
D、4
(4) 运行时3次单击Command1、并依次输入7、8、9后，变量m的当前值为：
A、6
B、7
C、8
D、3
8.试题8
【程序说明】
若列表框控件List1中某表项为其他两表项之和，单击Command1后将这些表项添加到列表框List2中（如下图所示）。
【程序】
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, n As Integer
n = (1)
For i = 0 To n - 1
For j = 0 To n - 1
For k = 0 To n - 1
If (2) Then
If (3) Then
List2.AddItem List1.List(i)
(4)
End If
End If
Next k
If k <= n - 1 Then Exit For
Next j
Next i
End Sub
【供选择的答案】
(1) A、ListCount B、List1.ListCount-1
C、List1.ListCount
D、ListCount-1
(2) A、i <> j Or j <> k Or i <> k B、i <> j And j <> k And i <> k
C、i <> j Or j <> k
D、Not i= j Or j = k Or i = k
(3) A、List1.List(i) = List1.List(j) + List1.List(k)
B、Val(List1.List(i)) = Val(List1.List(j)) + Val(List1.List(k))
C、List(i) =List(j) + List(k)
D、List(i) =List(j) & List(k)
(4) A、k=k+1 B、j=j+1 C、Exit Do D、Exit For
9.试题9
【程序说明】
单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。
Private Sub Command1_Click()
Dim i As Integer, j As Integer
(1)
For i = 0 To (2)
For j = 0 To (3)
If List1.List(i) = List2.List(j) Then (4)
Next j
If (5) Then List3.AddItem List1.List(i)
Next i
End Sub
【供选择的答案】
(1) A、List3.Clear B、List3.List="" C、List3.delete D、List3.Cls
(2) A、List1.ListCount B、List1.ListCount - 1
C、List2.ListCount
D、List2.ListCount - 1
(3) A、List2.ListCount - 1 B、List2.ListCount
C、List1.ListCount – 1
D、List1.ListCount
(4) A、Exit For B、Exit C、Exit Do D、Break
(5) A、j< List2.ListCount B、j<= List2.ListCount
C、j> List2.ListCount
D、j>= List2.ListCount
10.试题10
【程序】
(1) 控件List1的MultiSlect属性值为：
A、True
B、0 None
C、1 Simple
D、False
(2)控件List1的Listcount属性值为：
A、2
B、3
C、4
D、5
(3)控件List1的Selected数组各元素中，值为True的元素的索引值（下标）为：
A、0、2、4
B、1、3、5
C、1、3
D、2、4
(4)控件List1的Text属性值为：
A、”张三”
B、“刘七”
C、“李四”
D、“张三王五刘七”
11.试题11
【程序】
Private Sub Command1_Click()
Dim i As Integer, j As Integer, x As Integer
List1.Clear
List1.List(0) = InputBox("x=")
For i = 1 To 3
x = InputBox("x=")
For j = 0 To List1.ListCount - 1
If x < List1.List(j) Then List1.AddItem x, j:Exit For
Next j
If j = List1.ListCount Then List1.AddItem x
Next i
End Sub
【供选择的答案】
(1) 单击命令按钮Command1后输入3、2、7、5这4个数，列表框中依次显示：
A、2 3 7 5
B、2 3 5 7
C、7 5 3 2
D、2 5 3 7
(2) 单击命令按钮Command1后输入3、-4、6、5这4个数，列表框中依次显示：
A、6 5 3 -4
B、3 -4 6 5
C、-4 3 5 6
D、3 -4 5 6
(3) 如果删除其中语句“Ex it For“，单击命令按钮Command1后输入2、3、4、5这4个数，列表框中依次显示：
A、2 4 5 3
B、4 5 3 2
C、5 4 3 2
D、2 3 4 5
(4) 如果删除其中语句“Ex it For“，单击命令按钮Command1后输入2、3、5、3这4个数，列表框中依次显示：
A、2 3 3 5
B、2 3 2 5
C、5 3 2 2
D、2 3 5 2
12.试题12
【程序说明】运行时每隔10秒，显示上第几节课或晚餐、午休。
【程序】
Private Sub Form_Load()
Timer1.Interval= (1)
End Sub
Private Sub (2) _Timer()
Dim x as single
x= (3) +Minute(Time)/60
select case x
case Is>21
Form1.capti on=“Over”
case (4)
Form1.capti on=“9~11”
case Is>18
Form1.capti on=“晚餐”
case Is>=14
Form1.capti on=“5~8”
case Is>=12
Form1.capti on=“午休”
case Is>=8
Form1.capti on=“1~4”
End Select
End Sub
【供选择的答案】
(1) A、10 B、100 C、1000 D、10000
(2) A、Interval B、Command1 C、Timer1 D、Timer
(3) A、Hour(Now) B、House(Time) C、Hour(Date) D、Hour()
(4) A、19,20,21 B、19 To 21 C、19..20 D、Is>=19 And Is<=21
13.试题13
【程序】
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static k As Byte
Form1.CurrentX=0: Form1.CurrentY=0 '窗体的所有其他属性均取缺省值
Form1.Cls
If k = 0 Then k = 1 Else k = 0
If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _
Form1.ForeColor = RGB(0, 0, 255)
Print Time
End Sub
【供选择的答案】
(1) 激活Timer1后，每间隔1秒显示一次系统时间，方式是：
A、蓝、绿色交替显示
B、蓝色显示
C、绿色显示
D、红色显示
(2) 系统时间的显示位置，是在：
A、窗体右上角
B、窗体左上角
C、窗体右下角
D、窗体左下角
(3) 如果将Timer过程中的语句“Static k As Byte”改为“Dim k As Byte”，激活Timer1
后，窗体系统时间显示上的颜色为：
A、蓝、绿色交替
B、蓝色
C、绿色
D、红色
(4) 如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是：
A、Date,Time
B、Date;Time
C、Date-Time
D、Date + Time
14.试题14
【程序】
Private Sub Command1_Click()
Dim b As Single
If P1.ScaleHeight > P1.ScaleWidth Then
b = P1.ScaleWidth / P1.ScaleHeight
Else
b = P1.ScaleHeight / P1.ScaleWidth
End If
P1.Circle (0, 0), P1.ScaleWidth / 2, vbRed, , , b
End Sub
Private Sub Form_Load()
P1.ScaleMode = 3
P1.FillStyle = 0
P1.FillColor = RGB(0, 0, 255)
P1.Scale (-P1.ScaleWidth/2, P1.ScaleHeight/2)-(P1.ScaleWidth/2, -P1.ScaleHeight/2) End Sub
【供选择的答案】
(1) 窗体加载后，图片框控件P1的坐标原点被设置在：
A、图片框左上角
B、图片框右下角
C、图片框右上角
D、图片框中心
(2) 窗体加载后，图片框控件P1的坐标单位被设置为：
A、厘米
B、像素
C、毫米
D、缇
(3) 单击命令按钮Command1后，图片框控件P1中的显示为：
A、圆角矩形
B、扇形
C、内接椭圆
D、矩形
(4) 图片框控件P1中所绘制图形的边线颜色和填充颜色分别为：
A、红色、蓝色
B、红色、绿色
C、黑色、绿色
D、黑色、蓝色
15.试题15
【程序说明】
运行时，可以在图片框控件p1用红色绘制下列坐标线并加上数字显示。
Private Sub Form_Activate()
P1.Height = P1.Width
P1.FontSize = 10
(1) (-10, 110)-(110, -10)
(2)
P1.Line (-5, 0)-(100, 0)
P1.Line (0, -5)-(0, 100)
For i = (3)
P1.Line (i, 0)-(i, 2)
P1.Line (0, i)-(2, i)
Next i
For i = 1 To 9
P1.CurrentX = i * 10 - 2
P1.CurrentY = -2
(4)
Next i
End Sub
【供选择的答案】
(1) A、P1.Draw B、P1.Line C、P1.Print D、P1.Scale
(2) A、P1.ForeColor = RGB(255,0,0) B、P1.FillColor = RGB(255,0,0)
C、P1.FillColor = VbRed
D、P1.ForeColor = Red
(3) A、1 To 9 Step 1 B、10 To 90 C、10 To 90 Step 10 D、2 To 9
(4) A、PSet i B、P1.Print i C、P1.Pset i D、Print i
16.试题16
【程序说明】
界面设计以及运行时HScroll1.Value值为90时的显示分别如下图左、图右所示。
【程序】
Private Sub Form_Load()
Picture1.Width = Picture1.Height
Picture1.Scale (-10, 10)-(10, -10)
Picture1.BorderStyle = 0
HScroll1.SmallChange = 2: https://www.wendangku.net/doc/7d14627250.html,rgeChange = 10
End Sub
Private Sub HScroll1_Change()
Dim t As Single
Picture1.Cls
t = HScroll1.Value * 3.14159 / 180
Label1.Caption = HScroll1.Value
Picture1.Circle (0, 0), 10, vbRed
Picture1.Line (0, 0)-(9 * Cos(t), 9 * Sin(t))
End Sub
(1) 决定运行时图片框控件边框不显示的相关属性为：
A、BackColor
B、ForeColor
C、FillStyle
D、BorderStyle
(2) 滚动条Value属性值为180时，以原点为起点的直线指向：
A、12点方向
B、9点方向
C、6点方向
D、3点方向
(3) 滚动条Value属性值为270时，以原点为起点的直线指向：
A、12点方向
B、9点方向
C、6点方向
D、3点方向
(4) 下列说法中正确的是：
A、拖动滚动条滑块的过程中以及结束后都不会触发HScroll1_Change事件
B、拖动滚动条滑块的过程结束后立即触发HScroll1_Change事件
C、单击滚动条两端箭头时Value的增量为10或-10。
D、单击滚动条上空白区域时Value的增量为2或-2。
17.试题17
【程序说明】
在图片框上拖动鼠标绘制一个黄色矩形；鼠标按下、抬起位置分别为其斜对角线顶点，再绘制一个与矩形内接、轮廓线为红色的椭圆。
【程序】
Dim x1 As Single, y1 As Single
Private Sub Picture1_MouseDown(Button As Integer, ShIft As Integer, x As Single, y As Single) （1）
End Sub
Private Sub Picture1_MouseUp(Button As Integer, ShIft As Integer, x As Single, y As Single) Dim x0 As Single, y0 As Single, b As Single
Picture1.Line (x1, y1)-(x, y), （2）
x0 = x1 + (x - x1) / 2
y0 = y1 + (y - y1) / 2
b = Abs(y1 - y) / Abs(x1 - x)
If （3）Then
Picture1.Circle (x0, y0), Abs(y1 - y) / 2, 255, , , b
Else
Picture1.Circle (x0, y0), Abs(x1 - x) / 2, 255, , , b
End If
End Sub
Private Sub Form_Load()
（4）
End Sub
【供选择的答案】
(1)A、Currenx=x:Currenty=y B、x=x1:y=y1
C 、Picture1.Pset(x,y),VbYellow D、x1=x:y1=y
(2) A、VbYellow,B B、Vbyellow,BF
C、VbYellow,Fill
D、Vbyellow,FB
(3) A、b>1 B、b<1 C、b=1 D、b<>1
(4) A、FillStyle=0 B、Fillstyle=True
C、Fillstyle=1
D、Fillstyle=False
18.试题18
【程序说明】
统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command1将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。
Dim n As Integer
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "显示"
P1.Enabled = True: n = 0
Else
Command1.Caption = (1)
P1.Enabled = False: MsgBox("单击该区域" + (2) + "次")
End If
End Sub
Private Sub Form_Activate()
P1.Width = P1.Height
P1.Scale(-3, 3) - (3, -3)
P1.FillStyle = (3)
P1.FillColor = (4) : P1.Circle(0, 0), 2
P1.FillColor = vbwhite: P1.Circle(0, 0), 1
End Sub
Private Sub Form_Load()
Command1.Caption = "开始": P1.Enabled = False
End Sub
Private Sub P1_MouseDown(Button As Integer, ShIft As Integer, _
x As Single, y As Single)
If x * x + y * y >= 1 And (5) Then n = n +1
End Sub
【供选择的答案】
(1) A、"退出"B、"开始"C、"显示"D、"开始"
(2) A、n B、Val(n) C、Str(n)D、Trim(n)
(3) A、1 B、0 C、2 D、3
(4) A、vbblank B、Rgb(255,0,0) C、vbwhite D、Rgb(255,255,0)
(5) A、x*x+y*y<=4B、x>2 And y>2 C、x*x+y*y<=2 D、x*x+y*y>4
19.试题19
【程序说明】
图片框控件P1 、P2除Name 属性外均缺省值，将鼠标在P1拖动绘制矩形框（边框颜色通过通用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角：
鼠标抬起后，将P1中矩形区域的图象在P2中重新绘制，如下图所示。
【程序】
（1）
Private sub p1_ MouseDown(Button As Integer, ShIft As Integer,X As Single, Y As Single)
X1=X: Y1=Y
End Sub
Private Sub p1_ Mouseup (Button As Integer, ShIft As Integer, X As single, Y As Single )
Dim j As Single, i As Single, jk As Single, ik As Single
Dim (2)
jk = P2.ScaleWidth / (X - x1): ik = P2.ScaleHeight / (Y - y1)
Commondialogl.Action = (3)
P1.Line (x1,y1)-(x,y),Commondialogl.Color, B
For j =x1 To x
For i =y1 To Y
C= (4) ,读取该点处的颜色值
（5）
Next i,j
End Sub
【供选择的答案】
（1）A、Dim x As Single, y As Single B、Dim x2 As Single, y2 As Single
C、Public x1 As Single, y1 As Single
D、Dim x1 As Single, y1 As Single
(2) A、c As Long B、c As Integer C、c As Single D、c As Double
(3) A、1 B、2 C、3 D、4
(4) A、p1.pset(j, i ) B、p2.pset(j,i )
C、p1.point(j,i)
D、p1.point(i,j )
(5) A、p2. pSet((j-x1)*jk,(i-y1)*ik),c B、p1.pset((j-x1)*jk,(i-y1)*ik),c
C、p2. pSet((i-y1)*ik,(j-x1)*jk),c
D、p1. pset((i-y1)*ik,(j-x1)*jk),c
20.试题20
【程序】
Private Sub Form_Load()
Form1.Height = Form1.Width * 2 / 3
Form1.FillColor = RGB(0, 0, 255)
Form1.FillStyle = vbSolid
End Sub
Private Sub Form_Activate()
Scale (0, 0)-(300, 200)
paint.Caption = "Circle"
Line -(150, 100), FillColor, BF
End Sub
Private Sub paint_Click()
Form1.Cls
If paint.Caption = "Circle" Then
paint.Caption = "Rectanfle"
Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, _
255, , , ScaleHeight / ScaleWidth
Else
paint.Caption = "Circle"
Line -(150, 100), FillColor, BF
End If
End Sub
(21) 菜单项标题为“Circle”、名称为“paint”，单击该菜单项后窗体上显示：
A、圆
B、纵轴大于横轴的椭圆
C、横轴大于纵轴的椭圆
D、矩形
(22) 菜单项标题为“Rectanfle”、名称为“paint”，单击该菜单项后所显示图形：
A、红色边框无填充色的椭圆
B、兰色边框黑色填充的矩形
C、黑色边框兰色填充的椭圆
D、兰色边框兰色填充的矩形
(23) 菜单项标题为“Circle”，两次单击名称为“paint”的该菜单项，窗体显示：
A、椭圆
B、矩形
C、1个椭圆和1个矩形
D、1个椭圆和1个正方形
(24) 菜单项标题为“Rectanfle”，两次单击名称为“paint”的该菜单项，窗体显示：
A、椭圆
B、矩形
C、1个椭圆和1个矩形
D、1个椭圆和1个正方形
程序填空题
1．下列程序由键盘输入一个文件名，然后把从键盘输入的字符依次存放到磁盘文件中，直到输入一个"#"为止。 #include "" main( ) { FILE *fp; char ch,filename[10]; scanf("%s",filename); /*用户输入存在磁盘上的文件名*/ if((fp= ⑦ (filename,"w"))==NULL) { printf("cannot open file\n"); exit(0); } while((ch=getchar())!='#') ⑧ ; fclose(fp); } 2．下列程序的功能是输出一个整数x的绝对值。将程序补充完整，填在空内。 #include <> main() { int x, ① ; scanf("%d",&x); y= ② ; printf("%d\n",y); } 3．下列程序的功能是输出1~100之间能被7整除的所有整数。将程序补充完整，填在空内。 main() { int i;
for(i=1; ③ ;i++) { if(i%7) ④ ; printf("%d ",i); } } 4．以下程序用以删除字符串中所有的空格，请填空。 main() { char s[100]={"Our teacher teach C language!"}; int i,j; for(i=j=0;s[i]!= '\0';i++) if(s[i]!= ' ') { ⑤ ;j++;} s[j]= ⑥ ; printf("%s\n",s); } 5．结构体数组中存有三个人的姓名和年龄，以下函数fun的功能是输出三人中最年长者的姓名和年龄。 struct man { char name[20];int age;}person[]={{"Mary",16},{"Tom",21},{"Jim",18}}; void fun( ⑦ person[ ] ) { int i,old=0; for(i=0;i<2;i ++) if(person[old].age 三、程序填空题 导读：在程斥填空题中，已经给出了程序的主干，读者首先要理解程序的思路, 再选择正确的内容填入空白处，使程序完成既定的功能。这类习题的设计就是要引导读者逐步堂握编程的方法。本节习题的难度适中，可能有些典型的程序在课堂上己经有所接触，读者一定要独立完成它，这样就可以逐步提高自己的编程能力。在程序设计语言学习的中期，读者对程序设计已经有了初步的了解，而白己编写程序乂不知从何处入手，此时解答此类题目可以避免盲目性，从而提高学习的效率。 【3.1】下面程序的功能是不用第三个变量，实现两个数的对调操作。 ttinclude for(i=0； i<10； i++) scanf &a[i]); findmin(a, 10, k)； printf ("%d, %d\n", *k, a L*kJ)； } 【3.4】下面程序的功能是计算1-3+5-7+……-99+101的值。 main() { int i, s=0： for(i=l； i<=101： i+=2) {①; s二s+t： ②； } printf ("%d\n", s)； } [3.5]有以下程序段： s=l. 0； for(k=1： k<=n: k++) s=s+l. 0/(k*(k+1))； printf ("%f\n", s)； 填空完成下述程斥，使之与上述程序的功能完全相同。 s=0. 0： ①； k=0； do { s二s+d； ②； d=1.0/(k*(k+l))； }while(③)； printf ("%f\n", s); [3.6]下而程用的功能是从键盘上输入若干学生的学习成绩，统计并输出最高成绩和最低成绩，当输入为负数时结束输入。 main () ；、float x, amax, amin； scanf &x)； amax=x: amin=x； 导读：在程序填空题中，已经给出了程序的主干，读者首先要理解程序的思路，再选择正确的容填入空白处，使程序完成既定的功能。这类习题的设计就是要引导读者逐步掌握编程的方法。本节习题的难度适中，可能有些典型的程序在课堂上已经有所接触，读者一定要独立完成它，这样就可以逐步提高自己的编程能力。在程序设计语言学习的中期，读者对程序设计已经有了初步的了解，而自己编写程序又不知从何处入手，此时解答此类题目可以避免盲目性，从而提高学习的效率。 【3.1】下面程序的功能是不用第三个变量，实现两个数的对调操作。 #include C语言程序设计试题1 一、单项选择题 1．C语言规定,在一个源程序中main函数的位置______d___ 。 A．必须在最开始B．必须在最后 C．必须在预处理命令的后面D．可以在其他函数之前或之后 2．以下选项中,_________d__ 是C语言关键字 A．printf B．include C．fun D.default 3．已知有声明"int a=3,b=4,c;",则执行语句"c=1/2*(a+b);"后,c的值为____a_ 。 A．0 B．3 C．3.5 D．4 4．设指针变量占4个字节的内存空间,若有声明"char *p="123";int c;",则执行语句 "c=sizeof(p);"后,c的值为__d__ A．1 B．2 C．3 D．4 5．已知有声明"int a=3,b=4;",下列表达式中合法的是_d___。 A．a+b=7 B．a=|b| C．a=b=0 D．(a++)++ 6．已知有声明"char s[20]="Hello";",在程序运行过程中,若要想使数组s中的内容修改为"Good",则以下语句中能够实现此功能的是___d_。 A．s="Good"; B．s[20l="Good"; C．strcat(s,"Good"); D．strcpy(s,"Good"); 7．已知有声明"int a[4][4]={{1,2,3,4},{5,6,7,8},{9,10,11,12},{13,14,15,16}};",若需要引用值为12的数组元素,则下列选项中错误的是_a___ 。 A．*(a+2)+3 B．*(*(a+2)+3) C．*(a[2]+3) D．a[2][3] 8．已知有声明"int n;float x,y;",则执行语句"y=n=x=3.89;"后,y的值为_b___ 。 A．3 B．3．0 C．3．89 D．4．0 9．已知有声明"int a=12,b=15,c;",则执行表达式"c=(a||(b-=a))"后,变量b和c的值分别为 __b__。 A．3,1 B．15,12 C．15,1 D．3,12 10．下面的函数定义正确的是_____d________ A）float fun (float x ; float y) {return x*y;} B）float fun (float x,y) {return x*y;} C）float fun (x,y) {int x,y;return x*y;} D）int fun (int x, int y) {return x*y;} 11.某程序需要使用一个代表常数3.14的符号常量名P,以下定义中正确的是_d___。 A.#define P 3.14; B.#define P(3.14) C.#define P=3.14; D.#define P 3.14 12.下列四个选项中,属于C语言关键字的是__c__ 。 A.Float B.single C.double D.real 13.已知某编译系统中signed int类型数据的长度是16位,该类型数据的最大值是_D___。 A.32767 B.32768 C.127 D.65535 导出题库试题(1～100) 共计104道试题 一、程序填空答案（104题） 【程序填空】 1功能：求两个非负整数的最大公约数和最小公倍数。 【1】r != 0 或r 【2】r=m%n 或r=m-m/n*n 【3】n 【4】gcd,lcm 或n,lcm 2功能：下面的程序是求1!+3!+5!+……+n!的和。 【1】s=0 【2】i+=2 或i=i+2 或i++,i++ 【3】j<=i 或i>=j 或j 二、填空题 １．根据下图写出InputBox函数中的参数。 InputBox(（1）, （2）, （3）) ２．执行下面的程序，在窗体上 显示的输出结果的第一行是 （４），第二行是（５）。 Option explicit Private sub form_click() Dim I as integer, j as integer J=10 For I=1 to j I = I+1 J = j - i Next I Print I Print j End Sub ３．执行下面的程序，在窗体上显示的输出结果的第一行是（６），第三行是（７）。 Private sub form_click() Dim a as integer Dim I as integer A=2 For I=1 to 9 Call sub1(I, a) Print I,a Next I End Sub Private Sub Sub1(x as integer, y as integer) Static n as integer Dim I as integer For I=3 to 1 step –1 N=n+x X=x+1 Next I Y=y+n End sub ４．执行下面的程序后，A(1,3)值是（８），A(2,2)值是（９），A(3,1)值是（１０）。 Option explicit Private sub form_click() Dim A(3,3) As integer, I as integer Dim j as integer, k as integer, n as integer For k=1 to 5 If k<=3 then 程序填空题 导读：在程序填空题中，已经给出了程序的主干，读者首先要理解程序的思路，再选择正确的内容填入空白处，使程序完成既定的功能。这类习题的设计就是要引导读者逐步掌握编程的方法。本节习题的难度适中，可能有些典型的程序在课堂上已经有所接触，读者一定要独立完成它，这样就可以逐步提高自己的编程能力。在程序设计语言学习的中期，读者对程序设计已经有了初步的了解，而自己编写程序又不知从何处入手，此时解答此类题目可以避免盲目性，从而提高学习的效率。 【】下面程序的功能是不用第三个变量，实现两个数的对调操作。#include <> main() { int a,b； scanf("%d%d",&a,&b)； printf("a=%d,b=%d\n",a,b)； a= ①； b= ②； a= ③； printf("a=%d,b=%d\n",a,b)； } 【】下面程序的功能是根据近似公式：π2/6≈ 1/12+1/22+1/32+ …… +1/n2,求π值。 #include <> double pi(long n) { double s=； long i； for(i=1；i<=n；i++) s=s+ ①； return( ②)； } 【】下面的程序的功能是求一维数组中的最小元素。 findmin(int *s,int t,int *k) { int p； for(p=0,*k=p；p 三、程序填空题 导读：在程序填空题中，已经给出了程序的主干，读者首先要理解程序的思路，再选择正确的内容填入空白处，使程序完成既定的功能。这类习题的设计就是要引导读者逐步掌握编程的方法。本节习题的难度适中，可能有些典型的程序在课堂上已经有所接触，读者一定要独立完成它，这样就可以逐步提高自己的编程能力。在程序设计语言学习的中期，读者对程序设计已经有了初步的了解，而自己编写程序又不知从何处入手，此时解答此类题目可以避免盲目性，从而提高学习的效率。 【3.1】下面程序的功能是不用第三个变量，实现两个数的对调操作。 #include 【3.2】下面程序的功能是根据近似公式：π2/6≈ 1/12+1/22+1/32+ …… +1/n2,求π值。 #include 程序填空题1、 #include _____2_____; n=n/10 } printf("%d\n",k); } 3、 #include C语言程序填空题及答 案 集团企业公司编码：（LL3698-KKI1269-TM2483-LUI12689-ITT289- 程序填空题 1、 #include } 3、 #include C语言程序设计试题(第1套) 一.单项选择题（30分，每题2分） 1.用C语言编写的代码程序______。 A、可立即执行 B、是一个源程序 C、经过编译即可执行 D、经过编译解释才能执行 2. C语言中用于结构化程序设计的三种基本结构是______。 A、顺序结构、选择结构、循环结构 B、if、switch、break C、for、while、do-while D、if、for、continue 3. 以下选项中合法的实型常数是______。 A、B、E-3 C、.2E0 D、 4. 假定x和y为double型，则表达式x=2,y=x+3/2的值是______。 A、B、3 C、D、 5. ch是字符型变量，下面不正确的赋值语句是______。 A、ch = 65; B、ch="a"; C、ch ='\ n'; D、ch= 9+ '0'; 6. 下列有关C语言程序书写格式的说法哪个是错误的 A、C程序的书写格式比较自由，一个语句可以占多行，一行也可以有多个语句。 B、C语句必须要有分号。 C、C语言程序的标识符必须使用小写字母。 D、用{ } 括起来的部分，通常表示了程序的某一层次结构，称为块。 7.下面程序段所表示的数学函数关系是______。 x= -1; if (a!=0) if (a>0) x=1; else x=0; -1 (a<0) 1 (a<0) A、x= 0 (a=0) B、x= -1 (a=0) 1 (a>0) 0 (a>0) 0 (a<0) -1 (a<0) C、x= -1 (a=0) D、x= 1 (a=0) 1 (a>0) 0 (a>0) 8. 以下关于do-while循环的不正确描述是______。 A) do-while的循环体至少执行一次 B) do-while的循环体可以是复合语句 C) 在do-while循环体中，一定要有能使while后面表达式的值变为零("假")的操作 D) do-while循环由do开始，用while结束，在while(表达式)后面不能写分号 9. 以下程序执行后sum的值是______。 A) 15 B) 14 C) 不确定 D) 0 main() { int i , sum=0; for(i=1;i<6;i++) sum+=i; printf("%d\n",sum); } 10.若有说明语句：int a[][3]={1,2,3,4,5,6}; 则a数组第一维的大小是。 A. 1 B. 2 C.3 D. 无确定值 11. C语言允许函数值类型的缺省定义，此时该函数值隐含的类型是______。 A、float型 B、long型 C、int型 D、double型 12.下面正确的函数定义形式为 A、double fun(int x;int y) B、double fun(int x,int y); C、double fun(int x,y) D、double fun(int x,int y) 13.以下程序运行后，输出结果是______。 #define ADD(x) x+x 第四章模块化程序设计练习题及参考答案 一、填空题 1、以下程序的运行结果是（111），把x定义为静态变量运行结果是（123）。void increment(void) { int x=0; x+=1; printf("%d",x);} main() { increment(); increment(); increment(); } 2、若输入的值是-125，以下程序的运行结果是（-125=-5*5*5） #include "" main() { int n; void f(int n); scanf("%d",&n); printf("%d=",n); if(n<0) printf("-"); n=fabs(n); fun(n); } void fun(int n) { int k,r; for(k=2;k<=sqrt(n);k++) { r=n%k; while(r==0) { printf("%d",k); n=n/k; if(n>1)printf("*"); r=n%k; } } if(n!=1) printf("%d\n",n); } 3、设有以下宏定义： #define WIDTH 80 #define LENGTH WIDTH+40 则执行赋值语句:v=LENGTH*20;(v为int型)后，v的值是（880） 4、设有以下宏定义： #define WIDTH 80 #define LENGTH (WIDTH+40) 则执行赋值语句：k=LENGTH*20;(k为int型变量)后，k的值是（2400） 5、下面程序的运行结果是（5） #define DOUBLE(r) r*r main() { int x=1,y=2,t; t=DOUBLE(x+y); printf("%d\n",t);} 6、下面程序的运行结果是（36） #define MUL(z) (z)*(z) main() { printf("%d\n",MUL(1+2)+3); } 7、下面程序的运行结果是（212） #define POWER(x) ((x)*(x)) main() { int i=1; while(i<=4) printf("%d,",POWER(i++)); } 8、下面程序的运行结果是（9） #define MAX(a,b) (a>ba:b)+1 main() { int i=6,j=8,k; printf("%d\n",MAX(i,j)); } 二、选择题 1、以下正确的说法是（D）建立自定义函数的目的之一是： A）提高程序的执行效率 B）提高程序的可读性 C）减少程序的篇幅 D）减少程序文件所占内存 2、以下正确的说法是（B） A）用户若需调用标准库函数，调用前必须重新定义 B）用户可以重新定义标准库函数，若如此，该函数将失原有含义。 C）系统根本不允许用户重新定义标准库函数。 D）用户若需调用标准函数，调用前不必使用预编译命令将该函数所在文件包括到用户源文件中，系统自动去调用。 3、以下正确的函数定义形式是（C） A）double fun(int x,int y) B）double fun(int x;int y) C）double fun(int x,int y); D）double fun(int x,y) 4、以下正确的说法是（D）。在C语言中： A）实参与其对应的形参各占用独立的存储单元。 B）实参和与其对应的形参共占用一个存储单元。 C）只用当实参和与其对应的形参同名时才共占用存储单元。 《C语言程序设计》模拟试卷一 一、单项选择题（每题2分，共30分） 1、下列有关C语言的叙述中错误的是（）。 A) C语句必须以分号结束 B) 任何一个C程序中有且只有一个主函数 C) 复合语句在语法上可被看作一条语句 D) C程序中对数据的任何操作都可由运算符实现 2、以下不能定义为用户标识符的是（）。 A) MAIN B) _HJ C) 2ong D) LINE1 3、下列符号中用来表示C语言中的回车换行的是（）。 A) \r B) \n C) \b D) \t 4、如有如下定义：int a=1，则语句printf(“%d,%d”, a, ++a)；的运行结果为（）。 A) 1, 1 B) 1, 2 C) 2, 2 D) 2, 1 5、已知ch为字符型变量，下面表达式中正确的是（）。 A) ch=’\xff ’B) ch=’\ff ’C) ch=’ ff ’D) ch=” ff ” 6、以下能正确定义一维数组的是（）。 A) int a[5]={0,1,2,3,4,5}; B) int a[5]=”012345”; C) char a[ ]=”012345”;D) char a[5]={0,1,2,3,4,5}; 7、以下语句中能正确定义变量并赋初值的是（）。 A) char c=65; B) float f=f+1.1; C) double x=12.3e3.6; D) int m=n=2.0; 8、在执行下列程序时输入:1357924,则程序的运行结果为（）。 main( ) { int x, y; scanf(“%2d%2d”,&x,&y); printf(“%2d”,x*y); } A) 13 B) 1357 C) 74 D) 741 9、执行下列程序段后输出的结果是（）。 第1.题*------------------------------------------------------- 【程序填空】 --------------------------------------------------------- 功能：下面的程序是求1!+3!+5!+……+n!的和。 -------------------------------------------------------*/ #include 2012-2013学年二学期C语言期末考试试卷(A卷)班级:___________学号:___________姓名:___________得分:___________ 题号一二三四五六七八九十成绩复核得分 阅卷 题目部分，(卷面共有24题,100分,各大题标有题量和总分) 一、填空题(24小题,共100分) 1． 以下程序的功能是计算下面函数的值。请填空。 #include 3． 已定义一个含有30个元素的数组s，函数fav1的功能是按顺序分别赋予各元素从2开始的偶数，函数fav2则按顺序每五个元素求一个平均值，并将该值存放在数组w中。请填空。 #define SIZE 30 fav1(float s[]) { int k,i; for(k=2,i=0;i 模块三循环程序设计习题及答案 一、填空题 1、当在数据处理中要重复执行相同的操作时，宜采用程序结构来实现。 2、循环的3要素是、、。 3、在循环语句体中包含另一个循环语句的用法称为。 4、执行循环语句体中的break语句后将使用包含它的循环语句。 5、要结束当前正在执行循环体语句而直接进入下一循环周期，需要执行语句。 6、在for语句中表达式允许省略，但不能少，语句for( ; ;) ;构成的是循环。 7、在for语句中，省略表达式2时，则循环为循环。 8、执行语句for(i=1;i++<4; );后变量i的值是。 9、要使用循环程序提前结束本次循环周期并开始下一个循环周期，应在循环体内有条件使用语句。 10、在每次循环周期均要执行一次的语句，称为。 11、for语句括号内的3个表达式的作用分别是、和循环控制变量的更新。 二、选择题 1、若k为整形变量，则while循环共循环（）。 k=5; while(k>=0) k-1; A、无限循环 B、6次 C、5次 D、4次 2、与while( ! n) ; 中表达式！dn等价的是（）。 A、dn>=0 B 、dn!=0 C、dn == 0 D、dn != 1 3、以下程序段，while循环执行的次数是（） int k=0; while( k == 1) k++; A、无限次 B、有语法错，不能执行 C、一次也不执行 D、执行1次 4、在C语言中，当do while语句中的条件为（）时，结束该循环。 A、0 B、1 C、TRUE D、非0 5、下面程序段的输出结果是（） do { b-=a; a++; }while(b--<0); A、10，-1 B、2，8 C、9，0 D、4，-3 6、以下描述正确的是（） Ａ、由于do while循环中循环体语句只能是一条可执行语句，所以循环体内不能使用复合语句。 B、do while循环由do开始，用while结束，在while(表达式）后面不能写分号 C、在do while循环体中，一定要有能使while后面匠值变为零的操作 D、do while循环中，根据情况可以省略while 7、若有如下程序段，其中s、a、b、c均已定义为整型变量，且a、c均已赋值（c大于0）。 s=c; for(b=1;b<=c;b++) s=s+1; 则与上述程序段功能等价的赋值语句是（） A、s=a+b; B、s=a+c; C、s=s+c; D、s=b+c; 8、假定a,b,c,d均已定义为整型变量，且a、c均已赋值，a大于0，c大于0，则与程序段for(d=a,b=1;b<=c;b++) d--;功能等价的语句是（） A、d=a+b; B、d=a+c; C、d=a-b; D、d=a-c 9、下列关于for循环的说法正确的是（） A、for循环只能用于循环次数已经确定的情况 功能：输入一个整数n，将n中各位上为偶数的数取出，并按原来从高位到低位相反的顺序组成一个新数，并输出。 例如，输入一个整数27638496，输出为64862。 -------------------------------------------------------*/ #include 第1章 1.以下叙述不正确的是（）。 A、C程序的基本组成单位是函数 B、在C程序中，注释说明只能位于一条语句的后面 C、一个C源程序必须包含一个main函数 D、一个C源程序可由一个或多个函数组成 2.C语言的注释定界符是（）。 A、\* *\ B、{ } C、[ ] D、/* */ 3.C语言规定，在一个源程序中，main函数的位置（）。 A、必须在最开始 B、必须在系统调用的库函数的后面 C、必须在最后 D、可以任意 4.一个C程序的执行是从（）。 A、本程序文件的第一个函数开始,到本程序main函数结束 B、本程序的main函数开始,到main函数结束 C、本程序的main函数开始,到本程序文件的最后一个函数结束 D、本程序文件的第一个函数开始,到本程序文件的最后一个函数结束 5.以下叙述中正确的是（）。 A、C程序中注释部分可以出现在程序中任意合适的地方 B、分号是C语句之间的分隔符,不是语句的一部分 C、花括号“{“和”}”只能作为函数体的定界符 D、构成C程序的基本单位是函数,所有函数名都可以由用户命名 6.以下叙述正确的是（）。 A、在对一个C程序进行编译的过程中，可发现注释中的拼写错误 B、C语言本身没有输入输出语句 C、在C程序中，main函数必须位于程序的最前面 D、C程序的每行中只能写一条语句 7.C语言源程序的基本单位是（）。 A、子程序 B、过程 C、函数 D、标识符 8.下列标识符中，不合法的C语言用户自定义标识符是（）。 A、printf B、sin C、enum D、_ 9.下列四个选项中，均是C语言关键字的选项是（）。 A、if struct type B、switch typedef continue C、signed union scanf D、auto enum include 10.以下叙述中错误的是（） A、用户所定义的标识符应尽量做到"见名知意" B、用户所定义的标识符允许使用关键字 C、用户定义的标识符中,大、小写字母代表不同标识 D、用户所定义的标识符必须以字母或下划线开头 11.下列字符序列中，可用作C标识符的一组字符序列是（）。 A、#md，&12x，month，student_n! B、D56，r_1_2，name，_st_1 C、S.b，sum，average，_above D、class，day，lotus_1，2day 12.下面四个选项中，均是不合法的用户标识符的选项是（）。 A、_123 temp int B、A P_0 do C、b-a goto int D、float la0 _A 13.下列四组选项中，均不是C语言关键字的选项是（）。 A、file IF type B、include scanf casec语言程序填空题1
C语言程序的设计填空题及答案复习用
C语言程序设计试题1
c语言程序填空题
1-8道程序填空题
C语言程序设计程序填空题库及答案
c语言程序填空题完整
程序填空题(1)
C语言程序填空题及答案
C语言程序设计试题第1套(山东建筑大学)
模块化程序设计练习题及答案
C语言程序设计模拟试题1附答案
-程序填空部分试题及答案
C语言练习题填空题1
循环程序设计习题及答案
程序填空题库
C语言选择题(1-4章期末复习)