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

第一题

题目

选中单选按钮好，单击确定按钮，在文本框中显示一个随机生成的65-90的整数，并在标签中连续显示这么多个“好”，选中字符按钮，单击确定按钮，则在标签中显示这个随机数所转换的字符。不得使用循环。

代码

Text1 = Int(Rnd * 26 + 65)
If Option1.Value = True Then
Label1 = String(Val(Text1), "好")
Else
Label1 = Chr(Text1)
End If

吐槽

这题我纠结了一个下午，在想怎么不使用循环来实现，结果最后看别人是用string函数。如果不知道这个函数，实在想不出来怎么做。

第二题

题目

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

代码

Dim a(10)
Text1 = ""
For i = 1 To 10
a(i) = Int(Rnd * 900 + 100)
Text1 = Text1 & a(i) & Space(1)
Next i
Max = a(1)
For i = 2 To 10
If Max < a(i) Then Max = a(i)
Next i
Label1 = "十个数中最大的数是：" & Max

第三题

题目

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

代码

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

第四题

题目

分别单击0按钮和1按钮，再单击统计并输出按钮，则在label中显示相对应得二进制数，并统计0的个数和1的个数。单击初始化按钮则所有都还原，label清空。单击退出则退出。

代码

Dim str As String
Dim n0, n1 As Integer

#Private Sub Command1_Click()
str = str & "0"
n0 = n0 + 1
#End Sub

#Private Sub Command2_Click()
str = str & "1"
n1 = n1 + 1
#End Sub

#Private Sub Command3_Click()
str = ""
n0 = 0
n1 = 0
Label1 = ""
#End Sub

#Private Sub Command4_Click()
Label1 = "这个二进制的数是：" & str & Chr(13) & "这个数中0的个数是：" & n0 & ",1的个数是：" & n1
#End Sub

#Private Sub Command5_Click()
End
#End Sub