[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
未经允许不得转载:Sansmall's Blog » [vb真题]2019年福建高职招考本科技能第二场
发表于2020-05-09 11:49
Dim a As String, b As String, c As Integer, d As Integer
Private Sub Command1_Click()
a = UCase(InputBox("请输入字母1:")) 'g
c = Asc(a) '72
End Sub
Private Sub Command2_Click()
b = UCase(InputBox("请输入字母1:")) 'a
d = Asc(b) '65
End Sub
Private Sub Command3_Click()
If c > d Then
Label1.Caption = b & "到" & a & "之间的字母有:"
Else
Label1.Caption = a & "到" & b & "之间的字母有:"
End If
If c > d Then
t = c
c = d
d = t
End If
For i = c To d
n = Chr(i)
Label1.Caption = Label1.Caption & n & Space(1)
Next i
End Sub
2020-05-09 23:58
2020-05-14 10:12