《2018年学考程序专题14题》由会员分享，可在线阅读，更多相关《2018年学考程序专题14题（4页珍藏版）》请在金锄头文库上搜索。
1、1 2018年学考程序专题 班级：姓名：学号： 1.小明编写了程序功能如下：在文本框Text1中输入长度不超过10 位的数字字符串， 单击按钮Command1后，在标签Labe1 上显示“升序” 或 “非升序” 。 比如字符串 “ 1234 ” 、 “ 1223”定义为升序 字符串（ “ 1223 ”中1 2 2 3） ，而“ 321” 、 “ 1314”是非升 序字符串。程序运行界面如下图所示： (1) 代码中“Command1_Click”是其中“ Click ”是（ 填 ：方法名/ 属 性名 /事件处理过程名/ 对象名） （ 2）实现上述功能的VB程序如下，请在划线处填入合适的代码。 P
2、rivate Sub Command1_Click() Dim s As String Dim i As Integer, n As Integer, flag As Boolean s = 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 个轮子 )和小轿车（车有
3、4 个轮子），根据停车场车辆总 数和总的车轮数，分别计算出三轮车和小轿车可能的车辆数。编写 VB程序，实现如下功能: 在文本框Text1 、 Text2 中分别输入： 36、 114，单击“计算”按钮 Command1 后,在标签 Label1 中显示计算结果，运行结果界面如下图所示。 1）在设计应用程序界面时, 窗口的标题显示文字“统计车辆数”是修改了窗体(From1) 的 _属性。 （2） 为实现上述功能, 请在划线处填入合 适代码或选项。 Private Sub Command1_Click() Dim t As Integer, j As Integer, x As Integer,
4、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 = 1 ch = Mid(cp, i, 1) If ch = 0 And ch = 9 Then Exit Do Exit Do 用于退出循环 Loop If Val(ch) = 0 Then t = Mid(s, 5, 1) ElseIf Val(ch) = a And ch = A And ch = 97 And ch = 97 And Asc(ch)
5、 = 97 And Chr(ch) = 122） 5. 编写 VB 程序，实现如下功能：单击“启动”按钮 Command1 ，在列表框 List1 内每隔 2 秒输出一个由30 个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。 ( 字母 A和字母 a 的 ASCII 码值分别为65、97)(1) 该程序除窗体外使用了_（填数字） 个对象。 (2) 为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Timer1.Enabled = _ End Sub Private Sub Timer1_Timer() Dim s As Stri
6、ng, c As String ,a As Integer, e As Integer, h As Integer Randomize s = For a = 1 To 30 e = Int(Rnd() * 52 + 1) If e t2 Then Max = t1 ： Min = t2 Else Max = t2 ： Min = t1 If t3 Max Then Max = t3 ElseIf t3 Min Then Min = t3 End If If Max * Min 0 Then alw = Max - Min ElseIf Max 0 Then alw = -Min Else alw = End If Text7.Text = End Sub
