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

第一题

题目

程序运行后，在文本框中输入用户名，单击“判断”按钮，先将输入的用户名左右两边的空格删除，再将用户名转换为小写字符，最后判断用户名是否为“admin”，若用户名是“admin”，则在label2中显示“正确用户”，否则在label2中显示“非法用户”。

代码

a = LCase(Trim(Text1))
If a = "admin" Then
Label2 = "正确用户"
Else
Label2 = "非法用户"
End If

第二题

题目

实现点餐功能，界面如图 2-1 所示。程序运行后，单击“点餐总计”按钮，实现将选餐结果显示在文本框中。

代码

If Option1.Value = True Then s = "米饭"
If Option2.Value = True Then s = "炒面"
If Check1.Value = 1 Then s = s & " 可乐"
If Check2.Value = 1 Then s = s & " 雪碧"
Text1 = "您点的食物是：" & s

第三题

题目

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

代码

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

第四题

题目

实现求各科目成绩的优秀率（科目成绩>=90为优秀）。程序运行后，点击“优秀率”按钮，将随机生成的各科目成绩及求出的优秀率显示在窗体上。注：（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)
If a(i, j) >= 90 And j <> 1 Then n = n + 1
If j = 6 Then a(i, 6) = FormatPercent(n / 4, 0, vbTrue)
Print a(i, j) & Space(4);
Next j
Print
n = 0
Next i