2020 程序设计基础（VB）(集美大学) 最新满分章节测试答案

本答案对应课程为:点我自动跳转查看
本课程起止时间为:2020-02-17到2020-06-22
本篇答案更新状态:已完结

【作业】第4讲 选择结构 第4讲 单元作业

1、 问题:购买商品时，商品的总金额x和所要支付的钱y按如下图所示的对应关系折扣支付。现根据输入的总金额计算需要支付的钱。完成程序功能，界面自行设计。保存工程和窗体，窗体文件名为：昵称-4-1.frm;工程名为：昵称-4-1.vbp。将工程文件和窗体文件压缩成：昵称-4-1.rar，以附件形式提交。提示：用多分支结构实现，注意计算公式和条件表达式的正确书写。
评分规则: 【 工程能正确运行，计算结果正确，多分支结构正确得2分；如果不能运行，但多分支结构正确，得1分；否则0分。
】

2、 问题:输入x，y，z三个数，按从大到小的次序显示，程序运行结果如下图所示。保存工程和窗体，窗体文件名为：昵称-4-2.frm;工程名为：昵称-4-2.vbp。将工程文件和窗体文件压缩成：昵称-4-2.rar，以附件形式提交。提示：① 利用InputBox输入三个数，存放到数值型变量中，然后进行比较；若放在字符串变量中，有时将会得到不正确的结果（因为字符串是从左到右的规则比较，例如会出现”34”>“2345”>“126789”的情况）。② 三个数排序，只能通过两两比较，一般可用3个单分支的If语句来实现。方法如下: 先x与y比较，使得x>y；然后可x与z比较使得x>z，此时x最大；;最后y与z比较使得y>z。 也可用1个单分支if语句和1个嵌套的if语句来实现。③ 要显示多个数据可以用”；”逐一显示，也可利用”&”字符串连接符将多个变量连接显示。例如要输出x、y、z: Print “ 排序后”; x; “ “; y; “ “; z ‘ 用分号将多个变量显示 也可 Print “ 排序后” & x & “ “ & y & “ “ & z ‘用”&”字符串连接符思考：若要按从小到大的次序显示，程序作如何修改？
评分规则: 【 工程能正确运行，结果正确，if语句正确得2分；如果不能运行，但if语句正确，得1分；否则0分。
】

3、 问题:设计如下图所示的计算程序。输入参数，当选择函数和字型后按“计算”按钮，在标签Label3以选择的字型显示计算结果。保存工程和窗体，窗体文件名为：昵称-4-3.frm;工程名为：昵称-4-3.vbp。将工程文件和窗体文件压缩成：昵称-4-3.rar，以附件形式提交。提示：
评分规则: 【 工程能正确运行，结果正确，单选按钮和复选框的使用正确得2分；如果不能运行，单选按钮和复选框的使用正确，得1分；否则0分。
】

第5讲 循环结构 第5讲 单元测验

1、 问题:下列正确的For语句结构是_。
选项：
A:For 1 <= i <= 10 Next
B:For 1 <= i and i <= 10Next
C:For i=1 to 10 Next
D:For i=1,2,3,4Next
E:For i=10 to 1 step -1 Next
答案: 【<span style="color:red !important">For i=1 to 10Next;
For i=10 to 1 step -1 “`Next】

2、 问题:下列循环语句能正常结束的是_。
选项：
A:i = 5Do While i > 0 i = i + 1Loop
B:i = 1Do i = i + 2Loop Until i = 10
C:i = 10Do i = i + 1Loop Until i > 0
D:i = 6Do i = i + 2Loop While i > 2
答案: 【i = 10Do i = i + 1Loop Until i > 0】

3、 问题:从循环体 Do … Loop中退出，跳出循环体，应使用______。
选项：
A:Exit Loop
B:Exit Do
C:Exit While
D:End Do
E:End Loop
答案: 【Exit Do】

4、 问题:从循环体中 For … Next中退出，跳出循环体，应使用______。
选项：
A:Exit For
B:Exit Next
C:Exit
D:End For
E:End Next
答案: 【Exit For】

5、 问题:循环语句 For i = 9 To -3 Step -3 的执行次数是____。
选项：
A:0
B:1
C:4
D:5
E:6
答案: 【5】

6、 问题:从键盘输入一个正整数，将该数的各位分离出来。 请在___处填入适当的内容，完善程序。 Dim s, s1 As Integer s = Val(InputBox(“输入一个正整数：”)) Do While s > 0 s1 = ____ s = s \ 10 MsgBox(s1) Loop
选项：
A:s / 10
B:s – 10
C:s * 10
D:s mod 10
E:s \ 100
答案: 【s mod 10】

7、 问题:窗体上有一标签Label1，将1~9连接成123456789的9位数,显示在标签中。请在___处填入适当的内容，完善程序。 Dim i%, s& s = 0 For i = 1 To 9 s = _____ Next Label1.Caption = s
选项：
A:s + 10 * i
B:s * 10
C:s + 10 + i
D:s * 10 + i
E:s * i
答案: 【s * 10 + i】

8、 问题:下面程序的功能是在Label1中输出如图所示的图形。请在___处填入适当的内容，完善程序。 Private Sub Command1_Click() Dim i%, j% Label1.Alignment = 2 For i = 1 To 6 For j = 1 To _____ Label1.Caption = Label1.Caption + “*” Next j Label1.Caption = Label1.Caption + vbCrLf Next iEnd Sub
选项：
A:2 * i
B:2 * i – 1
C:2 * i + 1
D:5
E:3
答案: 【2 * i – 1】

9、 问题:下面程序段执行后，出了循环x的值为_。Dim x%x = 1Do While x < 10 x = x * 3Loop
答案: 【27】

10、 问题:找出1～100内被3或7除整除的整数个数。请在_处填入适当的内容(不要空格!!)，完善程序。Dim x%, i%x = 0For i = 1 To 100 If i Mod 3 = 0 Or i Mod 7 = 0 Then x = _ End IfNextText1.Text = x
答案: 【(以下答案任选其一都对)x+1;
1+x;
1+X;
X+1】

第4讲 选择结构 第4讲 单元测验

1、 问题:有下列If语句，说法正确的是__。 If x=1 Then y=1
选项：
A:x=1为赋值语句，y=1为关系表达式
B:x=1为关系表达式，y=1为赋值语句
C:x=1和y=1均为赋值语句
D:x=1和y=1均为关系表达式
答案: 【x=1为关系表达式，y=1为赋值语句】

2、 问题:假设文本框Text1中输入了一个字母，要求判断输入的字母为”A”～”E”正确，否则显示输入错误信息，下列语句中正确的是_______。
选项：
A:If “A” <= Text1.Text <= “E” Then MsgBox “输入正确” Else MsgBox “输入错误”
B:If A <= Text1.Text <= E Then MsgBox “输入正确” Else MsgBox “输入错误”
C:If “A” <= Text1.Text Or Text1.Text <= “E” Then MsgBox “输入正确” Else MsgBox “输入错误”
D:If A <= Text1.Text Or Text1.Text <= E Then MsgBox “输入正确” Else MsgBox “输入错误”
E:If “A” <= Text1.Text And Text1.Text <= “E” Then MsgBox “输入正确” Else MsgBox “输入错误”
F:If A <= Text1.Text And Text1.Text <= E Then MsgBox “输入正确” Else MsgBox “输入错误”
答案: 【If “A” <= Text1.Text And Text1.Text <= “E” Then MsgBox “输入正确” Else MsgBox “输入错误”】

3、 问题:下面程序段的功能是求两个数中的大数,_______是不正确的。
选项：
A:If x > y Then Max = x Else Max = y
B:Max = x : If y > x Then Max = y
C:Max = y : If x > y Then Max = x
D:If y > x Then Max = y : Max = x
E:If x > y Then Max = x : Max = y
答案: 【If y > x Then Max = y : Max = x;
If x > y Then Max = x : Max = y】

4、 问题:假设x是一个整数变量，要求判断x的值为1～4之间。Select语句形式如下，则Case表达式列表写法正确的是_______。 Select Case x Case 表达式列表
选项：
A:Case 4>=x>=1
B:Case x>=1 and x<=4
C:Case Is>=1 and Is<=4
D:Case 4>=Is>=1
E:Case 1 to 4
F:Case 1,2,3,4
答案: 【Case 1 to 4;
Case 1,2,3,4】

5、 问题:分段函数：,下面程序段中正确的是____。
选项：
A:If x < 0 Then y = 0If x < 1 Then y = 1If x < 2 Then y = 2If x >= 2 Then y = 3
B:If x > =2 Then y = 3ElseIf x > =1 Then y = 2ElseIf x > =0 Then y = 1Else y = 0End If
C:If x >= 2 Then y = 3If x >= 1 Then y = 2If x > 0 Then y = 1If x < 0 Then y = 0
D:If x < 0 Then y = 0ElseIf x > 0 Then y = 1ElseIf x > 1 Then y = 2Else y = 3End If
E:If x < 0 Then y = 0If 0 <= x <1 Then y = 1If 1 <= x < 2 Then y = 2If x >= 2 Then y = 3
答案: 【If x > =2 Then y = 3ElseIf x > =1 Then y = 2ElseIf x > =0 Then y = 1Else y = 0End If】

6、 问题:如果在文本框Text1输入80，程序运行后，显示的结果是_。 Dim x% x = Val(Text1.Text) Select Case x\5 Case 18 to 20 MsgBox( “优秀”) Case 16,17 MsgBox( “良好”) Case 12 to 15 MsgBox( “通过”) Case Else MsgBox( “不通过”) End Select
选项：
A:优秀
B:良好
C:通过
D:不通过
答案: 【良好】

7、 问题:如果在文本框Text1输入80，程序运行后，显示的结果是_。 Dim x% x = Val(Text1.Text) If x >= 60 Then MsgBox (“通过”) ElseIf x >= 80 Then MsgBox (“良好”) ElseIf x >= 90 Then MsgBox (“优秀”) Else MsgBox (“不通过”) End If
选项：
A:优秀
B:良好
C:通过
D:不通过
答案: 【通过】

8、 问题:在下列关于单选按钮的说法中，正确的是_____。
选项：
A:单选按钮的Value属性为Fasle时表示选中
B:一个单选按钮被单击一定会触发它的Click事件
C:一个单选按钮被选中不会影响其他单选按钮的状态
D:单选按钮的Value属性为vbGrayed时表示不可选择
E:用户可以同时选中一组单选按钮中的多个单选按钮
答案: 【一个单选按钮被单击一定会触发它的Click事件】

9、 问题:复选框CheckBox的_____属性表示是否被选中。
选项：
A:Value
B:Caption
C:Enabled
D:Visible
E:Text
答案: 【Value】

10、 问题:关于复选框CheckBox的单击事件，下列正确的说法是_____。
选项：
A:不影响其他复选框的状态

请输入手机号或商家订单号

打不开请联系客服QQ 2356025045 商家订单号在哪里？点此了解

---

商家订单号查看步骤

打开支付宝

方法一：我的 > 账单 > 账单详情 > 更多>复制商家订单号

方法二：我的 > 账单 >搜索关键字【网课小帮手】
> 账单详情 > 更多>复制商家订单号

方法三：联系客服QQ 2356025045

微信支付

我 > 支付 > 钱包 > 账单 > 账单详情

手机号用于查询订单，请认真核对

支付宝