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

第一题

题目

在窗体上画一个名为“Cmd1”，标题为“清除”的命令按钮。程序运行后，窗体的标题为“欢迎光临”，如图1-1所示；单击命令按钮，则清除窗体的标题，如图1-2 所示；单击窗体，则窗体上显示“欢迎光临”。

图1-1

图1-2

图1-3

代码

Form1.Caption = ""

第二题

题目

程序运行后，单击按钮，判断输入框输入的正整数的奇偶性。判断结果显示在 Label2 中。

代码

a = Val(InputBox("请输入一个正整数"))
If a Mod 2 = 1 Then
Label2 = "奇数"
Else
Label2 = "偶数"
End If

第三题

题目

程序运行后，单击按钮则窗体上显示所有2位的降序数，要求每行显示10个降序数。说明：降序数，是指一个正整数任意高位上数字不低于相邻低位上的数字，比如某个数ab满足a>=b，则ab就是一个降序数，如87，66等。
算法设计思路：循环求出10～99之间每个数的个位和十位数，首先判断十位数是否大于等于个位数，如果是就将该数输出，并且计数变量加1；再判断计数变量值是否等于10，如果是则换行输出，并且计数变量重新置0。

代码

Print "所有2位的降序数有："
For i = 10 To 99
a = Val(Mid(i, 1, 1))
b = i Mod 10
If a >= b Then
Print i;
n = n + 1
End If
If n = 10 Then
Print
n = 0
End If
Next i