1材料分析题1 / 10
查看答案
按要求解答即可
计算机类二级VB
二级VB上机题库20
10 题含答案VB
2材料分析题2 / 10
查看答案
Private Sub Form_Click()
Text1.Left = 0
Text1.Top = 0
End Sub
Private Sub Text1_Change()
Text1.Left = Form1.Width - Text1.Width
Text1.Top = 0
End Sub
Text1.Left = 0
Text1.Top = 0
End Sub
Private Sub Text1_Change()
Text1.Left = Form1.Width - Text1.Width
Text1.Top = 0
End Sub
3材料分析题3 / 10
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
'arrN(i) = Int(Rnd * ?)
Next i
'Sum = ?
For i = 1 To 20
'If ? Then
'Sum = ?
End If
Next i
Print Sum
End Sub
查看答案
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
If arrN(i) > 500 Then
Sum = Sum + arrN(i)
End If
Next i
Print Sum
End Sub
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
If arrN(i) > 500 Then
Sum = Sum + arrN(i)
End If
Next i
Print Sum
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()
' 需要考生编写的代码
查看答案
Sum = 0
For i = 0 To 100
If i Mod 7 <> 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 100
If i Mod 7 <> 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
5材料分析题5 / 10
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
' Dim ?
Dim Sum, i, j
' Open App.Path & "\" & "datain.txt" ? As #1
For i = 1 To N
For j = 1 To M
' ?
Next j
Next i
Close #1
Print "初始矩阵为："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
' Sum = ?
For j = 1 To M
' ?
Next j
Print "第三行各项的和为：";
Print Sum
End Sub
查看答案
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat%(M, N)
Dim Sum, i, j
Open App.Path & "\" & "datain.txt" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, Mat%(i, j)
Next j
Next i
Close #1
Print
Print "初始矩阵为："
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i
Sum = 0
For j = 1 To M
Sum = Sum + Mat%(3, j)
Next j
Print
Print "第三行各项的和为：";
Print Sum
End Sub
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat%(M, N)
Dim Sum, i, j
Open App.Path & "\" & "datain.txt" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, Mat%(i, j)
Next j
Next i
Close #1
Print "初始矩阵为："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
Sum = 0
For j = 1 To M
Sum = Sum + Mat%(3, j)
Next j
Print "第三行各项的和为：";
Print Sum
End Sub
6材料分析题6 / 10
查看答案
按要求解答即可
7材料分析题7 / 10
查看答案
Private Sub Command1_Click()
VScroll1.Max = Form1.Height
VScroll1.Min = 0
VScroll1.LargeChange = 50
VScroll1.SmallChange = 10
End Sub
Private Sub VScroll1_Change()
Print Form1.VScroll1.Value
End Sub
VScroll1.Max = Form1.Height
VScroll1.Min = 0
VScroll1.LargeChange = 50
VScroll1.SmallChange = 10
End Sub
Private Sub VScroll1_Change()
Print Form1.VScroll1.Value
End Sub
8材料分析题8 / 10
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
'arrN(i) = ?
Next i
'Sum = ?
For i = 1 To 20
'If ? Then
'Sum = ?
End If
Next i
Print Sum
End Sub
查看答案
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
If arrN(i) < 500 Then
Sum = Sum + arrN(i)
End If
Next i
Print Sum
End Sub
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
If arrN(i) < 500 Then
Sum = Sum + arrN(i)
End If
Next i
Print Sum
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 100 Step 2
Sum = Sum + i * i
Next i
Fun = Sum
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
For i = 0 To 100 Step 2
Sum = Sum + i * i
Next i
Fun = Sum
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
10材料分析题10 / 10
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
' Dim ?
Dim i, j
' Open App.Path & "\" & "datain.txt" ? As #1
For i = 1 To N
For j = 1 To M
' ?
Next j
Next i
Close #1
Print "初始矩阵为："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
Print: Print
Print "右上 - 左下对角线上的数为："
For i = 1 To N
For j = 1 To M
' If ? Then
Print Tab(5 * i); Mat(i, j);
End If
Next j
Next i
End Sub
查看答案
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat(M, N) As Integer
Dim i, j
Open App.Path & "\" & "datain.txt" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, Mat%(i, j)
Next j
Next i
Close #1
Print
Print "初始矩阵为："
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i
Print: Print
Print "右上 - 左下对角线上的数为："
For i = 1 To N
For j = 1 To M
If i + j = 6 Then
Print Tab(5 * i); Mat(i, j);
End If
Next j
Next i
End Sub
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat(M, N) As Integer
Dim i, j
Open App.Path & "\" & "datain.txt" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, Mat%(i, j)
Next j
Next i
Close #1
Print "初始矩阵为："
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Next i
Print: Print
Print "右上 - 左下对角线上的数为："
For i = 1 To N
For j = 1 To M
If i + j = 6 Then
Print Tab(5 * i); Mat(i, j);
End If
Next j
Next i
End Sub