本栏目下题库来源于互联网,轻速云承诺对于用户导入平台的题库是严格保密的,不会在此呈现!
轻速云给您提供更好的在线考试系统服务!
二级VB上机题库20
1、【 简答题
    
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 [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 * 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
2、【 简答题
    
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
    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 = ?
    For j = 1 To M
'        ?
    Next j
    Print
    Print "第三行各项的和为:";
    Print Sum
End Sub [10分]
解析:
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
3、【 简答题
    [10分]
解析:
  按要求解答即可
4、【 简答题
    
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 [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 * 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
5、【 简答题
    
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
    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 ? Then
                Print Tab(5 * i); Mat(i, j);
            End If
        Next j
    Next i
End Sub [10分]
解析:
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
6、【 简答题
    [10分]
解析:
  按要求解答即可
7、【 简答题
    
Sub SaveData()
    Open App.Path & "\" & "outtxt.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
Function Fun()
    ' 需要考生编写的代码 [10分]
解析:
    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
8、【 简答题
    
Sub SaveData()
    Open App.Path & "\" & "outtxt.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
Function Fun()
    ' 需要考生编写的代码 [10分]
解析:
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
9、【 简答题
    [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
10、【 简答题
    [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
1
1页,共10个题库
1页,共10个题库
轻速云给您提供更好的在线考试系统服务!
推荐
推荐题库
众多企事业单位的信赖之选
36万+企事业单位的共同选择
查看更多合作案例
众多企事业单位的信赖之选
开始使用轻速云组织培训考试
四步组织一场考试答题,一键搭建企业培训平台
免费使用 免费使用 预约演示
咨询热线
400-886-8169
周一到周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1 轻速云科技提供专业的在线考试系统、在线培训系统
联系我们
客服热线客服热线:400-886-8169 | 周一至周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1
轻速云科技提供专业的在线考试系统、在线培训系统
在线咨询 400-886-8169