[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
评论列表