1材料分析题1 / 10
查看答案
按要求解答即可
计算机类二级VB
二级VB上机题库7
10 题含答案VB
2材料分析题2 / 10
查看答案
Private Sub C1_Click()
Text2.Text = C1.Parent.Text1.Text
End Sub
Text2.Text = C1.Parent.Text1.Text
End Sub
3材料分析题3 / 10
Private Sub Command1_Click()
Dim S1 As String, S2 As String
Dim I1 As Integer
' S1 = ?
I1 = 1
Do
' Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1)
S2 = S2 & Mid(S1, I1, 1)
I1 = I1 + 1
Loop
' List1.AddItem ?
' S2 = ?
I1 = I1 + 1
Loop While I1 <= Len(S1)
End Sub
查看答案
Private Sub Command1_Click()
Dim S1 As String, S2 As String
Dim I1 As Integer
S1 = Text1.Text
I1 = 1
Do
Do While Mid(S1, I1, 1) <> " " And I1 <= Len(S1)
S2 = S2 & Mid(S1, I1, 1)
I1 = I1 + 1
Loop
List1.AddItem S2
S2 = ""
I1 = I1 + 1
Loop While I1 <= Len(S1)
End Sub
Dim S1 As String, S2 As String
Dim I1 As Integer
S1 = Text1.Text
I1 = 1
Do
Do While Mid(S1, I1, 1) <> " " And I1 <= Len(S1)
S2 = S2 & Mid(S1, I1, 1)
I1 = I1 + 1
Loop
List1.AddItem S2
S2 = ""
I1 = I1 + 1
Loop While I1 <= Len(S1)
End Sub
4材料分析题4 / 10
Private Sub C1_Click()
'Dim flag As Boolean
'题目：
'For i = 0 To ?
' If Cb1.List(i) = ? Then
' flag = True
' Else
' flag = False
' End If
'Next
'If flag Then
' MsgBox "已有此项"
' Cb1.Text = ""
'Else
' Cb1. ? Cb1.Text
'End If
查看答案
'正确程序：
Dim flag As Boolean
For i = 0 To Cb1.ListCount - 1
If Cb1.List(i) = Cb1.Text Then
flag = True
Else
flag = False
End If
Next
If flag Then
MsgBox "已有此项"
Cb1.Text = ""
Else
Cb1.AddItem Cb1.Text
End If
End Sub
'答案：
'Cb1.ListCount - 1
'Cb1.Text
'AddItem
Dim flag As Boolean
For i = 0 To Cb1.ListCount - 1
If Cb1.List(i) = Cb1.Text Then
flag = True
Else
flag = False
End If
Next
If flag Then
MsgBox "已有此项"
Cb1.Text = ""
Else
Cb1.AddItem Cb1.Text
End If
End Sub
'答案：
'Cb1.ListCount - 1
'Cb1.Text
'AddItem
5材料分析题5 / 10
Private Sub C1_Click()
Open "out5.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
查看答案
Private Sub Form_Load()
Open "in5.txt" For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, a$
Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10)
Loop
Close #1
End Sub
Open "in5.txt" For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, a$
Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10)
Loop
Close #1
End Sub
6材料分析题6 / 10
查看答案
按要求解答即可
7材料分析题7 / 10
查看答案
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
Text2.Text = Text1.Text
End Sub
8材料分析题8 / 10
查看答案
Private Sub C1_Click()
P1.Picture = LoadPicture("pic2.jpg")
P2.Picture = LoadPicture("pic1.bmp")
End Sub
P1.Picture = LoadPicture("pic2.jpg")
P2.Picture = LoadPicture("pic1.bmp")
End Sub
9材料分析题9 / 10
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out4.txt" For Output As #1
Print #1, Ch1.Value, Ch2.Value, Text1.Text
Close #1
End Sub
查看答案
'需要考生编写的程序
Private Sub C1_Click()
Text1.Text = "我选的课是"
If Ch1.Value Then
Text1.Text = Text1.Text + Ch1.Caption
End If
If Ch2.Value = 1 Then
Text1.Text = Text1.Text + Ch2.Caption
End If
End Sub
Private Sub C1_Click()
Text1.Text = "我选的课是"
If Ch1.Value Then
Text1.Text = Text1.Text + Ch1.Caption
End If
If Ch2.Value = 1 Then
Text1.Text = Text1.Text + Ch2.Caption
End If
End Sub
10材料分析题10 / 10
'提供给考生的程序
Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% <= Int(a / 2) And flag
If Int(a / b%) = a / b% Then
flag = False
Else
b% = b% + 1
End If
Loop
isprime = flag
End Function
查看答案
'要求考生编写的程序
Private Sub C1_Click()
Open "in5.txt" For Input As #1
Input #1, a%
Close #1
Text1.Text = a%
End Sub
Private Sub C2_Click()
a% = Text1.Text
Do
a% = a% + 1
Loop Until isprime(a%)
Text2.Text = a%
End Sub
Private Sub C3_Click()
Open "out5.txt" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
Private Sub C1_Click()
Open "in5.txt" For Input As #1
Input #1, a%
Close #1
Text1.Text = a%
End Sub
Private Sub C2_Click()
a% = Text1.Text
Do
a% = a% + 1
Loop Until isprime(a%)
Text2.Text = a%
End Sub
Private Sub C3_Click()
Open "out5.txt" For Output As #1
Print #1, Text2.Text
Close #1
End Sub