[vb真题]2018年福建高职招考本科技能第二场

第一题

题目

程序运行后，在文本框中输入字符串，单击“取子串”按钮，若输入的字符串长度>=5，则取从第 3 个字符开始的长度为 3 的子串，并显示在 Label2中，否则在Label2中显示“字符串长度不能小于5”。

代码

If Len(Text1) < 5 Then Label2 = "字符串长度不能小于5" Else Label2 = Mid(Text1, 3, 3)

第二题

题目

程序运行后，单击“点餐”按钮，实现将选餐结果及订餐时间（订餐时间为当前系统时间）显示在文本框中，文本框设置为多行文本显示。

代码

If Option1.Value = True Then a = Option1.Caption
If Option2.Value = True Then a = Option2.Caption
If Option3.Value = True Then a = Option3.Caption
Text1 = "您点的套餐是：" & a & "。" & vbCrLf & "订餐时间是：" & Now

第三题

题目

程序运行后，在文本框中输入一个1—9之间的整数，单击“开始打印图形”按钮，打印对应行数的图形。（必须使用双重循环）

代码

Cls
a = Val(Text1)
If a < 1 Or a > 9 Then
MsgBox "请输入一个1--9之间的整数", 0
Text1 = ""
Else
For i = a To 1 Step -1
Print Space(9 - i);
For j = 2 * i - 1 To 1 Step -1
Print "*";
Next j
Print
Next i
End If

第四题

题目

求每位学生4门学科成绩的最高分。程序运行后，点击“最高分”按钮，将随机生成的各科目成绩及求出的最高分显示在窗体上。注：（1）各科目成绩为系统随机产生的 50 到 99 之间的整数，且每次运行产生的随机数均不同，初始化随机数发生器的语句是“Randomize”。 （2）要求必须使用二维数组，双重循环实现功能。

代码

Cls
Print "姓名   科目1 科目2 科目3 科目4 平均分"
Dim a(4, 6)
For i = 1 To 4
For j = 1 To 6
Randomize
If j = 1 Then a(i, 1) = "学生" & i
If j > 1 And j < 6 Then
a(i, j) = Int(Rnd * 50 + 50)
Sum = Sum + a(i, j)
Else
a(i, 6) = Sum \ 4
End If
Print a(i, j) & Space(4);
Next j
Sum = 0
Print
Next i