1材料分析题1 / 10
查看答案
按要求解答即可
计算机类二级VB
二级VB上机题库28
10 题含答案VB
2材料分析题2 / 10
查看答案
Private Sub Command1_Click()
Text1.Enabled = True
End Sub
Private Sub Text1_Change()
Text2.Text = UCase(Text1.Text)
End Sub
Text1.Enabled = True
End Sub
Private Sub Text1_Change()
Text2.Text = UCase(Text1.Text)
End Sub
3材料分析题3 / 10
Dim a(20) As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in3.dat" For Input As #1
For k = 1 To 20
Input #1, a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
=======================
????
=======================
'以下程序段将已变换的数组元素显示在Text2文本框中
For k = 1 To 20
Text2 = Text2 + Str(a(k)) + Space(2)
Next k
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out3.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
查看答案
'考生编写
For i = 1 To 10
temp = a(i)
a(i) = a(20 - i + 1)
a(20 - i + 1) = temp
Next i
For i = 1 To 10
temp = a(i)
a(i) = a(20 - i + 1)
a(20 - i + 1) = temp
Next i
4材料分析题4 / 10
Option Base 1
Dim x As String, max_n As Integer
Private Sub Command1_Click()
Open App.Path & "\in4.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
sl = Text1.SelLength
st = Text1.SelText
Text2.Text = ""
' If ? Then
MsgBox "请先选择文本！"
Else
' For i = 1 To ?
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
' a(n) = ?
End If
Next
' For i = 1 To ?
If a(i) = 0 Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1)
End If
Next
End If
End Sub
查看答案
If sl = 0 Then
For i = 1 To sl
a(n) = a(n) + 1
For i = 1 To 26
For i = 1 To sl
a(n) = a(n) + 1
For i = 1 To 26
5材料分析题5 / 10
Option Base 1
Dim n%, tag_in%
Dim stud(1 To 10) As StudType
Private Sub Command1_Click()
If n < 10 Then
tag_in = 0
n = n + 1
Else
tag_in = 1
MsgBox "输入的学生人数已超过数组声明的个数！"
End If
If tag_in = 0 Then
If Text1 = "" Then
MsgBox "学号不能为空，请重输！"
' n =?
Else
' ? = Text1
stud(n).Name = Text2
stud(n).Average = Val(Text3)
End If
End If
Text1 = "": Text2 = "": Text3 = ""
End Sub
Private Sub Command2_Click()
Dim t As StudType
Picture1.Cls
For j = 1 To n - 1
' For k = ? To n
' If stud(k).Average > stud(j).? Then
t = stud(k)
' stud(k) = ?
stud(j) = t
End If
Next k
Next j
For j = 1 To n
Picture1.Print stud(j).Num; stud(j).Name; stud(j).Average
Next j
End Sub
查看答案
Option Base 1
Dim n%, tag_in%
Dim stud(1 To 10) As StudType
Private Sub Command1_Click()
If n < 10 Then
tag_in = 0
n = n + 1
Else
tag_in = 1
MsgBox "输入的学生人数已超过数组声明的个数！"
End If
If tag_in = 0 Then
If Text1 = "" Then
MsgBox "学号不能为空，请重输！"
n = n - 1
Else
stud(n).Num = Text1
stud(n).Name = Text2
stud(n).Average = Val(Text3)
End If
End If
Text1 = "": Text2 = "": Text3 = ""
End Sub
Private Sub Command2_Click()
Dim t As StudType
Picture1.Cls
For j = 1 To n - 1
For k = j + 1 To n
If stud(k).Average > stud(j).Average Then
t = stud(k)
stud(k) = stud(j)
stud(j) = t
End If
Next k
Next j
For j = 1 To n
Picture1.Print stud(j).Num; stud(j).Name; stud(j).Average
Next j
End Sub
Dim n%, tag_in%
Dim stud(1 To 10) As StudType
Private Sub Command1_Click()
If n < 10 Then
tag_in = 0
n = n + 1
Else
tag_in = 1
MsgBox "输入的学生人数已超过数组声明的个数！"
End If
If tag_in = 0 Then
If Text1 = "" Then
MsgBox "学号不能为空，请重输！"
n = n - 1
Else
stud(n).Num = Text1
stud(n).Name = Text2
stud(n).Average = Val(Text3)
End If
End If
Text1 = "": Text2 = "": Text3 = ""
End Sub
Private Sub Command2_Click()
Dim t As StudType
Picture1.Cls
For j = 1 To n - 1
For k = j + 1 To n
If stud(k).Average > stud(j).Average Then
t = stud(k)
stud(k) = stud(j)
stud(j) = t
End If
Next k
Next j
For j = 1 To n
Picture1.Print stud(j).Num; stud(j).Name; stud(j).Average
Next j
End Sub
6材料分析题6 / 10
查看答案
按要求解答即可
7材料分析题7 / 10
查看答案
Private Sub Command1_Click()
Text1.FontBold = True
End Sub
Private Sub Command2_Click()
Text1.FontItalic = True
End Sub
Text1.FontBold = True
End Sub
Private Sub Command2_Click()
Text1.FontItalic = True
End Sub
8材料分析题8 / 10
Private Sub C1_Click()
Timer1.Enabled = True
End Sub
Private Sub C2_Click()
Timer1.Enabled = False
End Sub
查看答案
Private Sub Op1_Click(Index As Integer)
Select Case Index
Case 0
Timer1.Interval = 1000
Case 1
Timer1.Interval = 3000
End Select
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
Select Case Index
Case 0
Timer1.Interval = 1000
Case 1
Timer1.Interval = 3000
End Select
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
9材料分析题9 / 10
Dim a(100) As Integer, num As Integer, n As Integer
Private Sub Command1_Click()
Dim k As Integer
n = 60
Open App.Path & "\in4.dat" For Input As #1
For k = 1 To n
Input #1, a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
num = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To n '“读数据”事件过程中已给出n的初值
' If num = ? Then Exit For
Next i
' If ? Then
MsgBox "该数不存在于数组中，不能执行删除操作！"
Else
n = n - 1
' For j = i To ?
' a(j) = ?
Next
End If
Text1 = ""
'以下程序段将执行删除操作后的数组a重新显示在Text1中
' For k = 1 To ?
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End Sub
查看答案
If num = a(i) Then Exit For
If i > n Then
For j = i To n
a(j) = a(j + 1)
For k = 1 To n
If i > n Then
For j = i To n
a(j) = a(j + 1)
For k = 1 To n
10材料分析题10 / 10
Option Base 1
Dim x As String, max_n As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
' sl = ?
st = Text1.SelText
Text2 = ""
If sl = 0 Then
MsgBox "请先选择文本"
Else
For i = 1 To sl
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
' a(n) = ?
End If
Next i
max_n = a(1): n = 1
' For j = ? To 26
' If ? Then
max_n = a(j)
End If
Next j
For i = 1 To 26
' If ? Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1)
End If
Next i
End If
End Sub
查看答案
Option Base 1
Dim x As String, max_n As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
sl = Text1.SelLength
st = Text1.SelText
Text2 = ""
If sl = 0 Then
MsgBox "请先选择文本"
Else
For i = 1 To sl
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
a(n) = a(n) + 1
End If
Next i
max_n = a(1): n = 1
For j = 2 To 26
If a(j) > max_n Then
max_n = a(j)
End If
Next j
For i = 1 To 26
If a(i) = max_n Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1)
End If
Next i
End If
End Sub
Dim x As String, max_n As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
sl = Text1.SelLength
st = Text1.SelText
Text2 = ""
If sl = 0 Then
MsgBox "请先选择文本"
Else
For i = 1 To sl
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
a(n) = a(n) + 1
End If
Next i
max_n = a(1): n = 1
For j = 2 To 26
If a(j) > max_n Then
max_n = a(j)
End If
Next j
For i = 1 To 26
If a(i) = max_n Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1)
End If
Next i
End If
End Sub