二级VB上机题库25

1材料分析题1 / 10

查看答案

Private Sub Form_Click()
Pic.Print "VB等级考试"
End Sub

← 上一题回顶部下一题 →

2材料分析题2 / 10

查看答案

Private Sub subMenu1_Click()
Command1.Visible = True
End Sub
Private Sub subMenu2_Click()
Command1.Visible = False
End Sub

← 上一题回顶部下一题 →

3材料分析题3 / 10

　
Private Function xn(m As Integer) As Long
Dim i As Integer
Dim tmp As Long
'tmp = ?
For i = 1 To m
'tmp =?
Next
'? = tmp
End Function
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim t As Integer
Dim z As Long, x As Single
n = Val(Text1.Text)
x = Val(Text2.Text)
z = 0
For i = 2 To n
t = x - i
'z = z + ?
Next
Label1.Caption = z
Call SaveResult
End Sub
Private Sub SaveResult()
Open App.Path & "\out3.dat" For Output As #1
Print #1, Label1.Caption
Close #1
End Sub

查看答案

'1
'tmp*i或 i*tmp
'xn
'xn(t)
'4037040

← 上一题回顶部下一题 →

4材料分析题4 / 10

　
Dim arr
Private Sub Form_Load()
' ?= Array("第一项", "第二项", "第三项", "第四项")
Label1.Caption = arr(0)
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'? i As Integer
'Label1.Caption =?
If i = 3 Then
'i =?
Else
i = i + 1
End If
End Sub

查看答案

arr = Array("第一项", "第二项", "第三项", "第四项")
Static i As Integer
Label1.Caption = arr(i)
i = 0

← 上一题回顶部下一题 →

5材料分析题5 / 10

　
Private Sub Command1_Click()
Randomize
For k = 0 To 9
Text1(k) = CInt(Rnd() * 899 + 100)
Next
End Sub
Private Sub Command2_Click()
'================================================
'算法：
'1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数；
'2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是
' 偶数，则把此偶数放到第j个位置，j向前移1个位置；
'3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是
' 奇数，则把此奇数放到第i个位置，i向后移1个位置；
'4）重复2）、3），直到i=j
'5）把开始暂存的数放到i的位置
'=================================================

查看答案

Dim i%, j%, temp%, flag As Boolean
i = 0
j = 9
temp = Text1(j)
flag = True
While (i < j)
If flag Then
If Text1(i) Mod 2 = 0 Then
Text1(j) = Text1(i)
j = j - 1
flag = Not flag
Else
i = i + 1
End If
Else
If Text1(j) Mod 2 = 1 Then
Text1(i) = Text1(j)
i = i + 1
flag = Not flag
Else
j = j - 1
End If
End If
Wend
Text1(i) = temp
End Sub

← 上一题回顶部下一题 →

6材料分析题6 / 10

查看答案

按要求解答即可

← 上一题回顶部下一题 →

7材料分析题7 / 10

查看答案

Private Sub Shape1_Click()
Me.Sha1.Shape = 1
End Sub
Private Sub Shape2_Click()
Form1.Sha1 = 3
End Sub

← 上一题回顶部下一题 →

8材料分析题8 / 10

　
'给考生的程序
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out3.txt" For Output As #1
Print #1, Op1.Value, Op2.Value, Text1.Text
Print #1, Ch1.Value, Ch2.Value, Text2.Text
Close #1
End Sub

查看答案

'要求考生编写的程序
Private Sub C1_Click()
Dim a As String
a = "我是"
If Op1.Value Then
Text1.Text = a & Op1.Caption
Else
Text1.Text = a & Op2.Caption
End If
a = "我的爱好是"
If Ch1.Value = 1 Then
Text2.Text = a & Ch1.Caption
a = Text2.Text
End If
If Ch2.Value = 1 Then
Text2.Text = a & Ch2.Caption
End If
End Sub

← 上一题回顶部下一题 →

9材料分析题9 / 10

　
Dim i As Integer
Private Sub Form_Load()
'i = ?
'Timer1.Interval = ?
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'Label1.Caption = ?
If i = 3 Then
i = 0
Else
i = i + 1
End If
End Sub

查看答案

i = 0
Timer1.Interval = 1000
Label1.Caption = List1.List(i)

← 上一题回顶部下一题 →

10材料分析题10 / 10

　
Option Base 1
Dim sum(6) As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.txt" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub
Private Sub Command2_Click()
=========
?????
=========
End Sub
Private Sub Command3_Click()
Open App.Path & "\out5.txt" For Output As #1
For i = 1 To 6
Print #1, sum(i)
Next i
Close #1
End Sub

查看答案

For i = 1 To 6
sum(i) = 0
Next i
If Len(Text1.Text) = 0 Then
MsgBox "请先使用“读数”功能！"
Else
For i = 1 To Len(Text1.Text)
c = LCase(Mid(Text1.Text, i, 1))
Select Case c
Case "i"
sum(1) = sum(1) + 1
Case "j"
sum(2) = sum(2) + 1
Case "k"
sum(3) = sum(3) + 1
Case "l"
sum(4) = sum(4) + 1
Case "m"
sum(5) = sum(5) + 1
Case "n"
sum(6) = sum(6) + 1
End Select
Next i
End If

← 上一题回顶部下一题 →