18学考程序专题14题.docxVIP

2018年学考程序专题 班级：姓名：学号: 1.小明编写了程序功能如下： 在文本框 Textl中输入长度不超过 10位的数字字符串，该文档为文档投稿赚钱网作品，版权所有，违责必纠 单击按钮 Commandl后，在标签Label上显示升序”或非升序”。比如字符串 1234 ”、该文档为文档投稿赚钱网作品，版权所有，违责必纠 “ 1223 ”定义为 升序 字符串(“ 1223 ”中1V 2 2 3)，而“321 ”、“1314 ”是非升 序字符串。程序运行界面如下图所示：该文档为文档投稿赚钱网作品，版权所有，违责必纠 (1)代码中“ Command1_Click”是 其中“ Click ”是 (填：方法名/属该文档为文档投稿赚钱网作品，版权所有，违责必纠 性名/事件处理过程名 /对象名) (2)实现上述功能的 VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim s As String Dim i As Integer, n As Integer, flag As Boolean该文档为文档投稿赚钱网作品，版权所有，违责必纠 i = 1: flag = Trues = Text1.Text i = 1: flag = True Do While i n If Then flag = False Exit Do 退出Do循环 End If i = i + 1 Loop If Then Label1.Caption = 升序 Else Label1.Caption = 非升序 End If End Sub 2.某停车场只停放了三轮车 (车有3个轮子)和小轿车(车有 4个轮子)，根据停车场车辆总 数和总的车轮数，分别计算出三轮车和小轿车可能的车辆数。 编写VB程序，实现如下功能：该文档为文档投稿赚钱网作品，版权所有，违责必纠 在文本框Text1、Text2中分别输入：36、114,单击计算”按钮Command侑，在标签Label1 中显示计算结果，运行结果界面如下图所示。该文档为文档投稿赚钱网作品，版权所有，违责必纠 1)在设计应用程序界面时 ，窗口的标题显示文字统计车辆数是修改了窗体 (From1)的该文档为文档投稿赚钱网作品，版权所有，违责必纠 属性。 (2)为实现上述功能，请在划线处填入合 适代码或选项。 Private Sub Command1_Click() Dim t As Integer, j As Integer, x As Integer, y As Integer该文档为文档投稿赚钱网作品，版权所有，违责必纠 Dim cout As Integer, s As String t = Val(Text1.Text) j = Val(Text2.Text) x = 0 : cout = 0 s =结果： Do While x = t