1材料分析题1 / 10
查看答案
按要求解答即可
计算机类二级VB
二级VB上机题库19
10 题含答案VB
2材料分析题2 / 10
查看答案
Private Sub Form_Click()
' Label1.Left = -Label1.Width + Me.Width
' Label1.Top = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Label1.Left = -Label1.Width + Me.Width
Label1.Top = 0
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Left = -Form1.Label1.Width + Me.Width
' Label1.Top = 0
End Sub
' Label1.Left = -Label1.Width + Me.Width
' Label1.Top = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Label1.Left = -Label1.Width + Me.Width
Label1.Top = 0
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Left = -Form1.Label1.Width + Me.Width
' Label1.Top = 0
End Sub
3材料分析题3 / 10
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Min As Integer
Randomize
For i = 1 To 30
'arrN(i) = ?
Next i
'Min = ?
For i = 2 To 30
'If ? Then
Min = arrN(i)
End If
Next i
Print Min
End Sub
查看答案
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Min As Integer
Randomize
For i = 1 To 30
arrN(i) = Int(Rnd * 1000)
Next i
Min = arrN(1)
For i = 2 To 30
If arrN(i) < Min Then
Min = arrN(i)
End If
Next i
Print Min
End Sub
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Min As Integer
Randomize
For i = 1 To 30
arrN(i) = Int(Rnd * 1000)
Next i
Min = arrN(1)
For i = 2 To 30
If arrN(i) < Min Then
Min = arrN(i)
End If
Next i
Print Min
End Sub
4材料分析题4 / 10
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
' 需要考生编写的代码
查看答案
For i = 0 To 1000
If i Mod 7 <> 0 Then
Y = Y + 1
End If
Next i
Fun = Y
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
If i Mod 7 <> 0 Then
Y = Y + 1
End If
Next i
Fun = Y
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
5材料分析题5 / 10
' 提供给考生的程序
Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer
' 提供给考生的程序
Sub ReadData1()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 20
Input #1, Arr1(i)
Next i
Close #1
End Sub
' 提供给考生的程序
Sub ReadData2()
Open App.Path & "\" & "datain2.txt" For Input As #1
For i = 1 To 20
Input #1, Arr2(i)
Next i
Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
查看答案
' 要求考生编写的程序
Private Sub C1_Click()
ReadData1
ReadData2
End Sub
' 要求考生编写的程序
Private Sub C2_Click()
Dim Arr3(20) As Integer
Dim Sum As Integer
Sum = 0
For i = 1 To 20
Arr3(i) = Arr1(i) - Arr2(i)
Sum = Sum + Arr3(i)
Next i
Print "Sum = "; Sum
WriteData "dataout.txt", Sum
End Sub
Private Sub C1_Click()
ReadData1
ReadData2
End Sub
' 要求考生编写的程序
Private Sub C2_Click()
Dim Arr3(20) As Integer
Dim Sum As Integer
Sum = 0
For i = 1 To 20
Arr3(i) = Arr1(i) - Arr2(i)
Sum = Sum + Arr3(i)
Next i
Print "Sum = "; Sum
WriteData "dataout.txt", Sum
End Sub
6材料分析题6 / 10
查看答案
按要求解答即可
7材料分析题7 / 10
查看答案
Private Sub Command1_Click()
HScroll1.Max = Form1.Width
HScroll1.Min = 0
HScroll1.LargeChange = 50
HScroll1.SmallChange = 10
End Sub
Private Sub HScroll1_Change()
Print Me.HScroll1.Value
End Sub
HScroll1.Max = Form1.Width
HScroll1.Min = 0
HScroll1.LargeChange = 50
HScroll1.SmallChange = 10
End Sub
Private Sub HScroll1_Change()
Print Me.HScroll1.Value
End Sub
8材料分析题8 / 10
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer
Randomize
For i = 1 To 20
'arrN(i) = ?
Next i
'Sum = ?
For i = 1 To 20
'Sum = ?
Next i
'Aver = ?
Print Aver
End Sub
查看答案
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
Sum = Sum + arrN(i)
Next i
Aver = Sum / 20
Print Aver
End Sub
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
Sum = Sum + arrN(i)
Next i
Aver = Sum / 20
Print Aver
End Sub
9材料分析题9 / 10
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
' 需要考生编写的代码
查看答案
Sum = 0
For i = 0 To 200
If i Mod 3 = 0 Then
Sum = Sum + i
End If
Next i
Fun = Sum
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
For i = 0 To 200
If i Mod 3 = 0 Then
Sum = Sum + i
End If
Next i
Fun = Sum
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
10材料分析题10 / 10
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
For i = 1 To 12
For j = 1 To 10
Input #1, a(i, j)
Next j
Next i
Close #1
End Sub
Private Sub Command2_Click()
'考生编写
查看答案
For i = 1 To 12
Sum = a(i, 1)
For j = 2 To 10
Sum = Sum + a(i, j)
Next j
s(i) = Int(Sum / 10)
Next i
End Sub
Private Sub Command3_Click()
'以下程序段在Text1文本框内显示每组数的组号及平均值
Text1.Text = ""
For i = 1 To 12
If i < 10 Then
Text1.Text = Text1.Text + " " + Str(i) + " " + Str(s(i)) + Chr$(13) + Chr$(10)
Else
Text1.Text = Text1.Text + Str(i) + " " + Str(s(i)) + Chr$(13) + Chr$(10)
End If
Next i
End Sub
Private Sub Command4_Click()
Open App.Path & "\out5.dat" For Output As #1
For i = 1 To 12
Print #1, s(i)
Next i
Close #1
End Sub
Sum = a(i, 1)
For j = 2 To 10
Sum = Sum + a(i, j)
Next j
s(i) = Int(Sum / 10)
Next i
End Sub
Private Sub Command3_Click()
'以下程序段在Text1文本框内显示每组数的组号及平均值
Text1.Text = ""
For i = 1 To 12
If i < 10 Then
Text1.Text = Text1.Text + " " + Str(i) + " " + Str(s(i)) + Chr$(13) + Chr$(10)
Else
Text1.Text = Text1.Text + Str(i) + " " + Str(s(i)) + Chr$(13) + Chr$(10)
End If
Next i
End Sub
Private Sub Command4_Click()
Open App.Path & "\out5.dat" For Output As #1
For i = 1 To 12
Print #1, s(i)
Next i
Close #1
End Sub