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

第一题

题目

在文本框中输入一个字符串，选中大写单选按钮再单击确定按钮，在标签框中显示转换成大写的字符串，选中小写单选按钮再单击确定按钮，在标签框中显示转换成小写的字符串。

代码

If Option1.Value = True Then Label2 = "转换后结果：" & UCase(Text1)
If Option2.Value = True Then Label2 = "转换后结果：" & LCase(Text1)

第二题

题目

单击按钮后在文本框中随机生成10个2位数，中间用空格隔开，并在标签中显示出奇数个数和偶数个数。

代码

For i = 1 To 10
a = Int(Rnd * 90 + 10)
If a Mod 2 = 1 Then
ji = ji + 1
Else
ou = ou + 1
End If
b = b & a & Space(1)
Next i
Text1 = b
Label1.Caption = "奇数的个数是：" & ji & "偶数的个数是：" & ou

第三题

题目

在文本框中输入一个1-20的数字，生成n行n列的矩阵，要求矩阵的次对角线为0，其他为1，点击显示按钮将其打印出来。（双重循环）

代码

a = Text1
If a < 1 Or a > 20 Then
Text1 = ""
MsgBox "请输入1-20的数字", 0
Else
For i = 1 To a
For j = 1 To a
If j + i = a + 1 Then
Print "0" & Space(1);
Else
Print "1" & Space(1);
End If
Next j
Print
Next i
End If

第四题

题目

点击按钮1，输入字母1的值，点击按钮2输入字母2的值，点击按钮3将字母1到字母2中所有的字母输出在标签中，单击按钮4，退出。

代码

Dim a, b, c

#Private Sub Command1_Click()
a = LCase(InputBox(""))
#End Sub

#Private Sub Command2_Click()
b = LCase(InputBox(""))
#End Sub

#Private Sub Command3_Click()
Label1 = a & "到" & b & "之间的字母有："
If Asc(a) > Asc(b) Then c = a: a = b: b = c
For i = Asc(a) To Asc(b)
d = Chr(i)
Label1 = Label1 & Chr(i) & Space(1)
Next i
#End Sub