2020 Visual Basic程序设计(兰州理工大学)1452095501 最新满分章节测试答案

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

【作业】第5讲 循环结构 第5讲 单元作业

1、 问题:利用循环和Print方法显示有规律图形，如下图所示。保存工程和窗体，窗体文件名为：昵称-5-1.frm;工程名为：昵称-5-1.vbp。将工程文件和窗体文件压缩成：昵称-5-1.rar，以附件形式提交。提示：① 对于特殊字符“★”，通过汉字软键盘菜单中的“特殊符号”输入来实现。② 在String(n, "★")函数产生重复字符串，其中n为重复个数；也可通过Mid(s,n)函数取子串，其中：   Dim s As String = "★★★★★★★★★★★★★★★★★★★",③然后通过循环结构确定显示的起始位Tab(20 – 2 * i) ，显示有规律的子串。
评分规则: 【 工程能正确运行，结果正确，循环语句正确得2分；如果不能运行，但循环语句正确，得1分；否则0分。
】

2、 问题:求s=1+(1+2)+(1+2+3)+(1+2+3+4)+…+（1+2+3+4+…+n)，运行效果如下图所示。要求如下：（1）用For循环求前30项和。（2）用Do···Loop Until 求多项式和，直到和大于5000为止。保存工程和窗体，窗体文件名为：昵称-5-2.frm;工程名为：昵称-5-2.vbp。将工程文件和窗体文件压缩成：昵称-5-2.rar，以附件形式提交。
评分规则: 【 工程能正确运行，结果正确，循环语句正确得2分；如果不能运行，但循环语句正确，得1分；否则0分。
】

3、 问题:将Text1文本框输入的字母反序显示在Text2，运行效果如下图所示。保存工程和窗体，窗体文件名为：昵称-5-3.frm;工程名为：昵称-5-3.vbp。将工程文件和窗体文件压缩成：昵称-5-3.rar，以附件形式提交。提示：①要考虑字母包括大写和小写。②首先利用Len函数求Text1.Text字符串长度，然后利用For循环结构和Mid函数逐一取字符进行判断是否为字母，若是字母则利用语句：Text2.Text =字母 & Text2.Text，将字母连接到Text2文本框前面，实现反序。
评分规则: 【 工程能正确运行，结果正确，循环语句正确得2分；如果不能运行，但循环语句正确，得1分；否则0分。
】

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

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

【作业】第6讲 循环结构(续) 第6讲 单元作业

1、 问题:计算 的近似值，的计算公式为：界面自己设计。保存工程和窗体，窗体文件名为：昵称-6-1.frm;工程名为：昵称-6-1.vbp。将工程文件和窗体文件压缩成：昵称-6-1.rar，以附件形式提交。【提示】① 显示当n=50时、当n=1000时的结果。② 要防止大数相乘时溢出问题，将变量类型和常数2改为双精度型（即2#）。
评分规则: 【 工程能正确运行，结果正确，循环语句正确得2分；如果不能运行，但循环语句正确，得1分；否则0分。
】

2、 问题:编写程序，显示所有的水仙花数，程序的界面自行设计。所谓水仙花数，是指一个3位数，其各位数字的立方和等于该数字本身。例如，153是水仙花数，。保存工程和窗体，窗体文件名为：昵称-6-2.frm;工程名为：昵称-6-2.vbp。将工程文件和窗体文件压缩成：昵称-6-2.rar，以附件形式提交。提示：解该题的方法有两种：①利用三重循环，将三个一位数连接成一个3位数进行判断。例如，将i,j,k三个一位数连成一个三位数的表达式为：           i100+j10+k   ‘ i、j、k分别为三重循环的循环控制变量② 利用单循环将一个3位数逐位分离后进行判断。例如x是一个三位数，分离为三个一位数i、j、k： X=357i= x \100             ‘ i获得百位数结果 3j= (x Mod 100) \10       ‘ j获得十位数结果 5k=x Mod 10            ‘ k获得个位数结果 7
评分规则: 【 工程能正确运行，结果正确，循环语句正确得2分；如果不能运行，但循环语句正确，得1分；否则0分。
】

3、 问题:求Sn=a+aa+aaa+aaa+…aa…aaa(n个a)，其中a是通过滚动条获得的一个1~9(包括1，9)中的一个正整数，n是通过滚动条获得的5~10(包括5，10)中的一个数。例如：当a=2，n=5时，Sn=2+22+222+2222+22222。保存工程和窗体，窗体文件名为：昵称-6-3.frm;工程名为：昵称-6-3.vbp。将工程文件和窗体文件压缩成：昵称-6-3.rar，以附件形式提交。提示：①为了得到不断重复a的n位的数Temp，可用如下程序段实现：     Temp=0      For i=1 To n         Temp=Temp*10+a      Next i
评分规则: 【 工程能正确运行，结果正确，滚动条的使用正确得2分；如果不能运行，滚动条的使用正确，得1分；否则0分。
】

第6讲 循环结构(续) 第6讲 单元测验

1、 问题:若有如下程序，在文本框中输入“VisualBasic”，程序运行后Label1显示的是____。 Dim s$,ch$,k%s=""For k=1 TO Len(Text1.Text)    ch = Mid(Text1.Text,k,1)    s = ch+sNext kLabel1.Caption = s
选项：
A:BasicVisual
B:VISUALBASIC
C:cisaBlausiV
D:visualbasic
答案: 【cisaBlausiV】

2、 问题:有如下程序，用来求4个整数（从键盘输入）中的最小值。若程序运行后，依次输入56，88，23，14，则在Label1显示的是____。 Private Sub Command1_Click()Dim min%, k%, a%    For k = 1 To 4        a = Val(InputBox("输入一个整数"))        If a < min Then           min = a        End If    Next    Label1.Caption = minEnd Sub
选项：
A:14
B:23
C:56
D:88
E:0
答案: 【0】

3、 问题:刑警在处置某案件时采用“地毯式”方式搜寻犯罪嫌疑人，相当于计算机中的_____方法。
选项：
A:枚举法
B:迭代法
C:递归法
D:选择法
答案: 【枚举法】

4、 问题:两个小和尚合吃1个馒头，年轻和尚一次吃3个馒头，老和尚一次吃2个馒头。总共有40个和尚他们刚好吃40个馒头，问有多少个小和尚，年轻和尚和老和尚？程序如下，请在_处选择适当的内容，完善程序。    Dim y%, s%, x%    For x = 1 To 40        For y = 1 To 40            s = _            If s / 2 + y * 3 + x * 2 = 40 Then                Print x & "个老和尚， " & y & " 年轻和尚，" & s & "  个小和尚。" & vbCrLf            End If        Next    Next
选项：
A:x + y
B:40 – y
C:40 + x
D:40 – x – y
答案: 【40 – x – y】

5、 问题:若有程序，显示有规律的图形，效果如下图。 请在_处选择适当的内容，完善程序。Private Sub Command1_Click()    Dim n%, s$    s = Text1.Text    n = _    Cls    For i = 1 To n        Print Tab(2 * n – i); Mid(s, n – i + 1, i)    NextEnd Sub
选项：
A:Val(Text1.Text)
B:Len(s)
C:Mid(s, i, 1)
D:n + 1
E:Val(Mid(s, i, i))
答案: 【Len(s)】

6、 问题:下列关于定时器Timer控件的说法中，正确的是____。
选项：
A:当Enabled属性为False时，不产生Timer事件
B:当Enabled属性为True时，不产生Tick事件
C:当Interval属性为False时，不产生Timer事件
D:当Interval属性为True时，不产生Timer事件
E:当Visible属性为False时，不产生Timer事件
F:当Visible属性为True时，不产生Timer事件
答案: 【当Enabled属性为False时，不产生Timer事件】

7、 问题:拖动滚动条(ScrollBar)的滑块，下列___事件将被触发 。
选项：
A:Scroll
B:GetFocus
C:LostFocus
D:DragDrop
答案: 【Scroll】

8、 问题:在嵌套的内循环中，可以利用Exit语句跳出循环，跳到最外层的循环之外。
选项：
A:正确
B:错误
答案: 【错误】

9、 问题:要使定时器Timer1控件每隔1秒触发Timer事件，应将Interval属性设为10。
选项：
A:正确
B:错误
答案: 【错误】