大学计算机VB必考操作题汇总(全)
Private Su b Command1_Click()
Dim x As Integer, y As Integer
Text1.Text = InputBox("请输入年份")
x = V al(Text1.Text)
Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _
Or (x Mod 4) = 0 And (x Mod 400 = 0)
End Sub
Private Sub Command2_Click()
Dim x As Integer, y As Integer
Text2.Text = InputBox("请输入月份")
y = V al(Text2.Text)
Select Case y
Case 3 To 5
Text4.Text = "春季"
Case 6 To 8
Text4.Text = "夏季"
Case 9 To 11
Text4.Text = "秋季"
Case 1, 2, 12
Text4.Text = " 冬季"
End Select
End Sub
Private Sub Command3_Click()
Dim x As Integer, y As Integer
Text1.Text = InputBox("请输入年份")
x = V al(Text1.Text)
Text3.Text = (x Mod 4) = 0 And (x Mod 100 <> 0) _
Or (x Mod 4) = 0 And (x Mod 400 = 0)
Text2.Text = InputBox("请输入月份")
y = V al(Text2.Text)
Select Case y
Case 1, 3, 5, 7, 8, 10, 11
Text5.Text = "31天"
Case 4, 6, 9, 12
Text5.Text = "30天"
Case 2
If Text1.Text = 0 Then
Text5.Text = "29天"
Else
Text5.Text = "28天"
End If
End Select
End Sub （判闰年）
Private Sub Command1_Click()
Dim m%, n%, d%, sun%, no$, name$
no = InputBox("输入学号")
name = InputBox("输入姓名")
m = V al(Text1.Text)
n = V al(Text2.Text)
d = V al(Text3.Text)
sun = m + n + d
If m > 95 And n > 95 And d > 95 Then
Label5.Caption = name & "获一等奖学金" ElseIf m >= 90 And n >= 90 And d >= 90 Then
Label5.Caption = name & "获二等奖学金" ElseIf m >= 88 And n >= 88 And d >= 88 Then
Label5.Caption = name & "获三等奖学金" Else
Label5.Caption = name & "没有奖学金""" End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label5.Caption = " "
End Sub
Private Sub Command3_Click()
End
End Sub （判奖学金）
Private Sub Command1_Click()
Dim x!, f!
x = V al(InputBox("请输入x的值"))
If (x < 0 And x <> -3) Then
f = x ^ 2 + x - 6
ElseIf (x >= 0 And x < 10 And x <> 2 And x
<> 3) Then
f = x ^ 2 - 5 * x + 6
Else
f = x ^ 2 - x - 1
End If
MsgBox "f(x)的值是" & f
End Sub （求f(x)）
Private Sub Command1_Click()
Dim m!, n%, d!
m = V al(Text1.Text)
n = V al(Text2.Text)
d = n - 110
Label5.Caption = " 按你的身高，标准体重为：" & d & "公斤"
If m - d > 5 Then
Label6.Caption = "你比较胖，请注意瘦身" ElseIf m = d Then
Label6.Caption = "你是标准体重"
Else
Label6.Caption = "你比较瘦，请注意锻炼" End If
End Sub
Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Label5.Caption = " "
Label6.Caption = " "
End Sub
Private Sub Command3_Click()
End
End Sub (胖瘦)
Private Sub Command1_Click()
Dim m$, n%, d!
m = Text1.Text
n = V al(Text2.Text)
d = V al(Text3.Text)
If m = "男" And n >= 18 And n <= 20 And d > 1.63 Then
Label5.Caption = "符合征兵条件"
ElseIf m = "女" And n >= 16 And n <= 18 And d > 1.6 Then
Label5.Caption = "符合征兵条件" Else
Label5.Caption = "不符合征兵条件"
End If
End Sub
Private Sub Command2_Click()
End
End Sub （征兵）
Private Sub Command1_Click()
Dim m!, n, r%, dj!
m = V al(Text1.Text)
n = V al(Text2.Text)
dj = V al(Text3.Text)
Select Case m
Case 9 To 12
r = 90
Case 12 To 16
r = 80
Case 16 To 21
r = 70
End Select
Label5.Caption = "打折率为：" & Str(r) & "%"
Label6.Caption = "共收款" & r * dj * n / 100 & "元"
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = Time()
End Sub （买水果）
Private Sub Command1_Click()
Dim m%, n%, r%, dj!
m = V al(Text1.Text)
n = V al(Text2.Text)
dj = V al(Text3.Text)
Select Case m
Case 1 To 5
If n <= 20 Then r = 20 Else r = 30
Case 7 To 9
If n <= 20 Then r = 5 Else r = 15
Case Else
r = 20
End Select
Label4.Caption = "所订机票的优惠率为：" & Str(r) & "%"
Label6.Caption = "单张票价为" & (100 - r) * dj / 100 & "元" & "，共收款" & (100 - r) * dj * n / 100 & "元"
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = Month(Date)
End Sub （机票优惠）
Private Sub Command1_Click()
i = V al(Text1.Text)
j = V al(Text2.Text)
k = V al(Text3.Text)
m = V al(Text4.Text)
If (i < j) Then c = i: i = j: j = c
If (i < k) Then c = i: i = k: k = c
If (i < m) Then c = i: i = m: m = c
If (j < k) Then c = j: j = k: k = c
If (j < m) Then c = j: j = m: m = c
If (k < m) Then c = k: k = m: m = c
Text5.Text = i
Text6.Text = j
Text7.Text = k
Text8.Text = m
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = "" Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub (四个数排序)
Private Sub Command1_Click()
i = V al(Text1.Text)
j = V al(Text2.Text)
k = V al(Text3.Text)
m = i
If (i < j) Then m = j
If (m < k) Then m = k
Text4.Text = m
End Sub
Private Sub Command3_Click()
End
End Sub （三个数的大数）
Private Sub Command1_Click()
i = V al(Text1.Text)
j = V al(Text2.Text)
k = V al(Text3.Text)
m = Abs(i)
If (m < Abs(j)) Then m = Abs(j)
If (m < Abs(k)) Then m = Abs(k)
Text4.Text = m
End Sub
Private Sub Command3_Click()
End
End Sub （按绝对值求大数）Private Sub Command1_Click()
Dim m!, n!, r%, dj!
Text1.Text = InputBox("请输入你的收入") m = V al(Text1.Text)
Select Case m
Case 1000 To 1500
r = 2: n = (m - 1000) * r / 100: dj = m - n Case 1501 To 5000
r = 3: n = (m - 1500) * r / 100: dj = m - n Case Is > 5000
r = 4: n = (m - 1500) * r / 100: dj = m - n Case Else
r = 0: n = 0: dj = m
End Select
Text2.Text = n & "元"
Text3.Text = dj & "元"
End Sub
Private Sub Command2_Click()
End
End Sub （税金）
Private Sub Command1_Click()
End Sub
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single Dim D As Single, x1 As Single, x2 As Single
a = V al(InputBox("请输入一元二次方程的系数a"))
b = V al(InputBox("请输入一元二次方程的系数b"))
c = V al(InputBox("请输入一元二次方程的系数c"))
If a = 0 Then
a = InputBox("请重新输入系数a")
End If
D = b * b - 4 * a * c
If D >= 0 Then
x1 = (-b + Sqr(D)) / (2 * a)
x2 = (-b - Sqr(D)) / (2 * a)
Print "x1="; Format(x1, "0. ####")
Print "x2="; Format(x2, "0. ####")
Else
Print "此方程在实数范围内无解"
End If
End Sub （求根）
Private Sub Command1_Click()
Dim str As String, s!, n%
n = 0
Print Tab(5); "成绩"; Tab(20); "等级"
For i = 1 To 5
Text1.Text = InputBox("请输入学生的成绩") If V al(Text1) < 0 Or V al(Text1) > 100 Then str = "数据不合法"
n = n + 1
Else
If V al(Text1) >= 60 Then
str = "合格"
Else
str = "不合格"
End If
s = s + V al(Text1.Text)
End If
Print Tab(5); V al(Text1); Tab(20); str
Next i
Print Tab(10); "平均成绩为: " & s / (5 - n) End Sub （计算成绩）
Private Sub Command2_Click()
Dim i%, n%, sum!
sum = 0: n = 0
For i = 101 To 500 Step 2
sum = sum + i
n = n + 1
Next i
Text1.Text = sum
Text2.Text = n
End Sub
Private Sub Command1_Click()
Dim i%, n%, sum!
i = 101: sum = 0: n = 0
Do Until i > 500
sum = sum + i
n = n + 1
i = i + 2
Loop
Text1.Text = sum
Text2.Text = n
End Sub （所有奇数和他们的和）
Private Sub Form_Click()
n1 = InputBox("输入n")
m1 = InputBox("输入m")
If m1 > n1 Then ' m>n
m = m1: n = n1
Else
m = n1: n = m1
End If
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
Print Tab(5); m1; " , "; n1; " 的最大公约数为: "; n
End Sub （最大公约数）
Private Sub Command1_Click()
Dim s!, f!, n%
n = InputBox("请输入n的值")
s = 0: f = 1
For i = 1 To n
f = i * i / (i + 1)
s = s + f
Next i
MsgBox "s=1*1/(1+1)+2*2/(2+1)+...=" & s End Sub （求和）
Private Sub Command1_Click()
Dim i%, n#, t#, e#, x!, t1#
e = 0 ' 存放累加和结果
i = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第i 项值
t1 = 1 ' 存放x的幂
x = InputBox("输入x的值：")
Do While t > 0.00001
e = e + t
i = i + 1
n = n * i
t1 = t1 * x
t = t1 / n
Loop
Print "计算了"; i; " 项"; "e的^x的值是"; e
End Sub （求e的值）
Private Sub Command2_Click()
' Dim x%, y%, z%
For x = 1 To 33
For y = 1 To 20
z = 100 - x - y
If 9 * x + 15 * y + z = 300 Then
Picture2.Print x, y, z
End If
Next y
Next x
End Sub
Private Sub Command1_Click()
' Dim x%, y%, z%
For x = 1 To 33
For y = 1 To 20
For z = 3 To 99 Step 3
If (3 * x + 5 * y + z \ 3 = 100) And (x + y + z = 100) Then
Picture1.Print x, y, z
End If
Next z
Next y
Next x
End Sub （白鸡问题）
Private Sub Command1_Click()
Dim i!, n!, sum!
i = 1: sum = 1: n = 1
Do Until sum > 20000
sum = sum * i
n = n + 1
i = i + n
Loop
Text1.Text = sum
Text2.Text = n - 1
End Sub （求和）
Private Sub Command1_Click()
s = 0
For i = 300 To 400
If i Mod 3 = 0 Then
num7 = num7 + 1
s = s + i
End If
Next i
Print "100-400之间能被3整除的数字和为："; s
End Sub （求3的倍数和）Private Sub Command1_Click()
Dim s!, f!, n%
n = InputBox("请输入n的值")
s = 0: f = 1
For i = 1 To n
s = s + 1 / f
f = f * i
Next i
Print "s=1+1/2!+1/3!+...="; s
End Sub （求s的值）Private Sub Command1_Click() num = 0
num7 = 0
For i = 1 To 100
If i Mod 7 = 0 Then
num7 = num7 + 1
num = num + i
End If
Next i
Text1.Text = Str(num)
Text2.Text = Str(num7) & "个" End Sub （求7的倍数）
Private Sub Command1_Click() Dim s!, f!, n%
n = InputBox("请输入n的值") s = 0: f = 1
For i = 1 To n
f = f * i
s = s + f / (i + 1)
Next i
Print "s=1!/2+2!/3+3!/4+...="; s End Sub （求s的值）
Private Sub Command1_Click() Dim i!, n!, sum!, f!
i = 1: sum = 1: n = 1: f = 1
Do Until f < 0.000001
i = i * (n + 1)
f = 1 / (i - 1)
sum = sum + f
n = n + 1
Loop
Text1.Text = sum
Text2.Text = n - 1
End Sub （求和）Private Sub Command1_Click() Dim s!, f!, n%
n = InputBox("请输入n的值") s = 0: f = 1
For i = 1 To n
f = 2 * i - 1
s = s + 1 / f
Next i
Print "s=1+1/3+1/5+1/7+...="; s
End Sub （求s的值）
Private Sub Form_Click()
Dim p As Single
Dim r As Single
Dim n As Integer
p = 15000
r = 0.05: r1 = 0.08
n = 0
Do
p = p * (1 + r)
n = n + 1
Loop Until n = 5
Do
p = p * (1 + r1)
n = n + 1
Loop Until p > 30000
Print n; "年后", "产值="; p; " 是原来的两倍以上"
End Sub （求产量翻番）
Option Base 1
Private Sub max1(ByV al m1%, ByV al m2%, ByV al m3%, ByV al m4%)
Max = m1
If m2 > Max Then Max = m2
If m3 > Max Then Max = m3
If m4 > Max Then Max = m4
Text5.Text = Max
End Sub
Private Sub Command1_Click()
m1 = V al(Text1.Text)
m2 = V al(Text2.Text)
m3 = V al(Text3.Text)
m4 = V al(Text4.Text)
Call max1(m1, m2, m3, m4) End Sub （求最大数）
Option Base 1
Private Function min(ByV al m1%, ByV al m2%, ByV al m3%, ByV al m4%) As Integer min = m1
If m2 < min Then min = m2
If m3 < min Then min = m3
If m4 < min Then min = m4
End Function
Private Sub Command1_Click()
m1 = V al(Text1.Text)
m2 = V al(Text2.Text)
m3 = V al(Text3.Text)
m4 = V al(Text4.Text)
mn = min(m1, m2, m3, m4)
Text5.Text = mn
End Sub （求最小数）
Private Sub Form_Click()
Dim r!
r = V al(InputBox("请输入圆的半径：")) CirArea r
End Sub
Public Sub CirArea(r)
Const PI = 3.1415926
Dim area!
area = PI * r * r
MsgBox "圆的面积为：" & area
End Sub （求圆面积）
Option Base 1
Private Function f!(ByV al n%)
Dim i%, s!
If n = 1 Then
f = 0.5
Else
f = 0: s = 1
For i = 2 To n
s = s + i
Next i
f = 1 / s
End If
End Function
Private Sub Command1_Click()
Dim s!, i%, n%
s = 0
n = V al(InputBox("请输入项数n")) Text1.Text = n
For i = 1 To n
s = s + f(i)
Text2.Text = s
Next i
End Sub （求s）
Option Base 1
Private Function f!(ByV al n%)
f = n * n / (n + 1)
End Function
Private Sub Command1_Click()
Dim s!, i%, n%
s = 0
n = V al(InputBox("请输入项数n")) Text1.Text = n
For i = 1 To n
s = s + f(i)
Print f(i)
Text2.Text = s
Next i
End Sub （求s）
Private Sub Command1_Click()
For I = 100 To 200
If I Mod 3 <> 0 Then
List1.AddItem I
End If
Next I End Sub
Private Sub Command2_Click()
List1.Clear
End Sub (列表框输出)
Private Sub Form_Click()
Dim a(), i%, k%, x%, n%
a = Array(1, 4, 7, 9, 12, 14, 23, 56)
n = UBound(a)
x = V al(Text1)
For k = 0 To n
If x = a(k) Then Exit For
Next k
If k > n Then MsgBox "找不到此数": Exit Sub
For i = k + 1 To n
a(i - 1) = a(i)
Next i
n = n - 1
ReDim Preserve a(n)
For i = 0 To n
Print a(i);
Next i
End Sub （删除某数）
Private Sub Form_Click()
Dim a() As Integer, n%, i%, b() As Integer
n = V al(InputBox("请输入数组元素的个数："))
ReDim a(n)
Print "原数组如下："
For i = 1 To n
a(i) = Int(Rnd * 11 + 10)
Print a(i);
Next i
For i = 1 To n - 1
For j = i + 1 To n
If a(j) = a(i) Then a(j) = 0
Next j
Next i
k = 0 '用k来统计非零元素的个数
For i = 1 To n
If a(i) <> 0 Then k = k + 1
Next i
ReDim b(k) '存放删除相同元素后的数组元素
j = 1
For i = 1 To n
If a(i) <> 0 Then b(j) = a(i): j = j + 1
Next i
Print "删除后："
For i = 1 To k
Print b(i);
Next i
End Sub （删除相同数）
Private Sub Command1_Click()
Const NUM = 45
Dim a(1 To NUM) As Integer, i%, n%
Dim b(0 To 10) As Integer, k%
n = V al(InputBox("请输入学生人数N", , "15"))
For i = 1 To n
a(i) = V al(InputBox("请输入第" & i & "个成绩"))
Do While a(i) < 0 Or a(i) > 100
MsgBox ("请输入0-100的分数")
a(i) = V al(InputBox("请输入第" & i & "个成绩"))
Loop
List1.AddItem a(i)
k = Int(a(i) / 10)
b(k) = b(k) + 1
Next i
For i = 0 To 9
List2.AddItem Str(i * 10) & "---" & Str(i * 10 + 9) & "分数段的人数是：" & b(i) Next i
List2.AddItem "100分的学生人数是：" & b(10)
End Sub
Private Sub Command2_Click()
List1.Clear
List2.Clear
End Sub
Private Sub Command3_Click()
End
End Sub （分类统计成绩）Private Sub Command1_Click()
Const N = 10
Dim a%(1 To N), i%, j%, imin%, t% Randomize
For i = 1 To N '产生N个[1,100]之间的随机整数
a(i) = Int(Rnd * 100 + 1)
Next i
Picture1.Print "排序前：" '打印输出排序前的数据
For i = 1 To N
Picture1.Print a(i);
If i Mod 10 = 0 Then Picture1.Print
Next i
For i = 1 To N - 1 '用冒泡法进行排序
For j = 1 To N - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Next i
Picture1.Print "排序后：" '打印输出排序后的数据
For i = 1 To N
Picture1.Print a(i);
If i Mod 10 = 0 Then Picture1.Print
Next i
End Sub （冒泡法）
Private Sub Form_Click()
Const N = 5, m = 6
Dim a%(1 To N), b%(1 To m), c%(1 To m + N), i%, j%
Randomize
For i = 1 To N '产生a数组的元素
a(i) = Int(Rnd * 100 + 1)
Next i
Call maopao(a)
Print "输出a数组"
For i = 1 To N
Print a(i); " ";
Next i
For i = 1 To m '产生b数组的元素
b(i) = Int(Rnd * 100 + 1)
Next i
Call maopao(b())
Print "输出b数组"
For i = 1 To m
Print b(i); " ";
Next i
i = 1: j = 1: k = 1
Do While (i <= N And j <= m)
If (a(i) < b(j)) Then
c(k) = a(i): k = k + 1: i = i + 1
Else
c(k) = b(j): k = k + 1: j = j + 1
End If
Loop
Do While (i <= N And k <= m + N)
c(k) = a(i)
k = k + 1
i = i + 1
Loop
Do While (j <= m And k <= m + N)
c(k) = b(j)
k = k + 1
j = j + 1
Loop
Print "输出c数组"
For k = 1 To m + N
Print c(k); "";
If k Mod 5 = 0 Then Print
Next k
End Sub
Public Sub maopao(aa%())
For i = 1 To UBound(aa) - 1 '用冒泡法进行排序
For j = 1 To UBound(aa) - i
If aa(j) > aa(j + 1) Then
t = aa(j)
aa(j) = aa(j + 1)
aa(j + 1) = t
End If
Next j
Next i
End Sub （两表合并）
Private Sub Command1_Click()
Max = 50: Min = 100
ave = 0
Randomize
For i = 1 To 20
a = Int(Rnd() * 50 + 50)
List1.AddItem a
ave = ave + a
If a > Max Then Max = a
If a < Min Then Min = a
Next i
ave = ave / 20
List2.AddItem "最大数是" & Str(Max)
List2.AddItem "最小数是" & Str(Min)
List2.AddItem "平均数是" & Str(ave)
End Sub
Private Sub Command2_Click()
List1.Clear
List2.Clear
End Sub （求20个数的大.小数）Public Sub sort(a%())
Dim i%, max%
n = V al(InputBox("请输入数组的上界")) Randomize
Print "原数组："
For i = LBound(a) To n '给数组赋值并显示
a(i) = Int(Rnd * 100)
Print a(i);
Next i
max = a(LBound(a))
For i = LBound(a) To n
If a(i) > max Then max = a(i)
Next i
Print "数组中的最大数是："; max
End Sub
Private Sub Form_Click()
Dim ar(1 To 50) As Integer '数组最大只有50个元素
Call sort(ar())
End Sub （求最大函数）
Private Sub Command1_Click()
Dim i%, n%, s!
i = 1: s = 1
Text1.Text = InputBox("请输入n")
n = V al(Text1.Text)
For i = 1 To n
s = s * i
Next i
Text2.Text = s
End Sub （求n!）Private Sub Command1_Click()
Dim m%, n%, r%, dj!
m = V al(Text1.Text)
n = V al(Text2.Text)
Select Case m
Case Is < 50
r = n * 1#
Case 50 To 200
r = n * 0.8
Case 200 To 500
r = n * 0.7
Case Is > 500
r = n * 0.65
End Select
Text3.Text = r
End Sub
Private Sub Command2_Click()
End
End Sub (求运费)
Private Sub Command1_Click()
Dim v!
v = V al(Text1.Text)
If (v > 7.91 And v < 11.19) Then
Text2.Text = "飞船绕地球做匀速圆周运动" ElseIf (v >= 11.19 And v < 16.67) Then
Text2.Text = "飞船离开地球的控制,围绕太阳转"
ElseIf (v >= 16.67) Then
Text2.Text = "飞船挣脱太阳引力飞出太阳系"
End If
End Sub
End Sub （飞船）
Private Sub Form_Click()
Dim n%, s!, i%, f!
n = V al(InputBox("请输入n："))
s = 0
For i = 1 To n
Call sf(i, f)
Print f
s = s + f
Next i
Text1.Text = "1+(1+2)...=" & s End Sub
Public Sub sf(n%, f!)
Dim i%
f = 0
For i = 1 To n
f = f + i
Next i
End Sub （用过程求s）
计算机题库VB25
试卷编号：25 所属语言：Visual Basic 试卷方案：VB程序设计 试卷总分：100分 共有题型：4种 一、单选共15题（共计30分） 第1题（2.0分）题号:2299 难度:中第1章 将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是(). A:运行的机器上无VB系统所需的动态连接库 B:缺少.frm窗体文件 C:该可执行文件有病毒 D:以上原因都不对 答案：A 第2题（2.0分）题号:2344 难度:中第2章 下列字符串常量中,最大的是(). A:"北京" B:"上海" C:"天津" D:"广州" 答案：C 第3题（2.0分）题号:2436 难度:中第2章 能正确表达a≤1或a≥5的逻辑表达式是(). A:a<=1或a>=5 B:a<=1,a>=5 C:a<=10 Or a>=5 D:a<=l And a>=5 答案：C 第4题（2.0分）题号:2539 难度:中第2章 用一个程序段对一个对象被单击(或双击)做出响应,从而实现指定的操作,称为(). A:可视化程序设计 B:事件驱动编程机制 C:过程化程序实际方法
D:非过程化程序设计语言 答案：B 第5题（2.0分）题号:2601 难度:中第3章 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() K = 3 If X < 3 Then Print X + 3; If X < 4 Then Print X + 4; If X < 5 Then Print X + 5; If X< 6 Then Print K + 6; Print End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(). A:6 7 8 9 B:7 8 9 C:8 9 D:9 答案：B 第6题（2.0分）题号:2662 难度:中第3章 运行下面程序后,在窗体中显示的是(). Private Sub Form_Click() a$="*": b$="$" For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next k Print End Sub A:*** ** **** B:*$*$*$ C:1*$2*$3*$ D:$$$$$$$$$ 答案：D
全国计算机等级考试二级VB笔试试题及答案
2009年9月全国计算机等级考试二级VB笔试试题及答案 一、选择题（每小题2分，共70分） 一、选择题 1．下列数据结构中，属于非线性结构的是（）。 A. 循环队列 B.带链队列 C.二叉树 D.带链栈 答案C Array解析树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（）。 A. 循环队列 B.栈 C.队列 D.二叉树 答案B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针 答案D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（）。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量
C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数 答案A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合 答案B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6.下列选项中不属于结构化程序设计原则的是（）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案A 7.软件详细设计产生的图如下 该图是( ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图 答案C 8.数据库管理系统是（）。
计算机二级VB考试题及答案
计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If
Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1
Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)
2012年全国计算机等级考试二级VB上机考试试题题库
2012二级VB上机考试试题题库 VB考试上机试题 1) .新建一个工程，实现单击Command1将text1中的内容复制（或者剪切）到Text2中。（要求使用Clipboard对象）保存。 窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点”恢复“，把text1中的内容恢复出来。提示：定义一个变量用来存放text1中的内容。 2) .新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。 3) .新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。保存。 4) .新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。5) .新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。保存。
6) 。新建一个工程，包含两个窗体Form1,Form2。实现功能制作－－－欢迎界面，时间为三秒，三秒后，Form1消失，Form2出现。保存。 7) 。新建一个工程，实现功能限制：在Text1中只能输入10个字母，超过的在Text2中显示。保存。 8) 。新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。保存。 9) 。新建一个工程，实现功能点击Command1按钮，读取系统的汉字字型，在ComBox列表框中显示。保存。 10) 。新建一个工程，实现单击Commmand1将Text1的内容剪切到Text2中。（上次的那道题目是复制）保存。 11) 。新建一个工程，其中含五个单选按钮，两个面板StratusBar1. 第一面板题“欢迎探讨”，点击单选按钮时，第二个面板标题为选中的标题号。保存。 12) 。新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路径的文件名，显示在一文本框内。保存。
计算机二级VB第7章选择题及答案
第七章理论复习题1、阅读下列程序： Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3 n = n + i m = m + i ^ 2 Next Print m, n End Sub 运行时两次单击窗体结果为（）。 A、14 6 14 6 B、14 6 14 12 C、14 6 28 6 D、14 6 28 12 2、窗体上的命令按钮编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 2 To 4 For j = 3 To 5 array1(i, j) = i * j Next j Next i Print array1(2, 4) + array1(3, 4) End Sub 运行时，单击命令按钮后输出的结果是（）。 A、9 B、13 C、程序出错 D、20 5、以下数组声明语句中数组a包含的元素个数为（）。Dim a(3,-2 to 1,5) A、96 B、75 C、60 D、13 6、有声明Dim a(-3 to 1,3) As Integer，则下列叙述中正确的是（）。 A、数组a是二维动态数组 B、数组a共有20个元素 C、a（0,0）不是该数组的元素 D、a（1,1）是该数组的第十个元素 7、下列叙述中错误的是（）。 A、控件数组的每一个元素共享同样的事件过程 B、控件数组的每一个元素都有与之相关联的下标值 C、控件数组的每一个元素都有不同的name属性作为标识 D、可在运行过程中删除控件数组的某个元素 8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（）。 A、R eDim arr(7) B、R eDim Preserve arr(7)
2016年计算机二级《VB》基础练习题及答案(2)
2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较
全国计算机二级VB考试真题和答案
2007年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种：Visual Basic 第一部分计算机基础知识 1．微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是。 A．A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件 B．B．Moore定律指出，单块IC的集成度平均每半年翻一番 C．C．从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高 D．D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡 2．在下列有关通信中使用的传输介质的叙述中，错误的是。 A．A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100m B．B．同轴电缆可用于传输电视信号 C．C．光纤价格高，一般不在校园网和企业网中使用 D．D．微波的波长很短，适合于长距离、大容量无线通信 3．二进制数（1010） 2与十六进制数（B2） 16 相加，结果为。 A．(273) 8B.(274) 8 C.(314) 8 D.(313) 8 4.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有。 A．1个汉字和9个西文字符 C.3个汉字和5个西文字符 B.2个汉字和7个西文字符 D.4个汉字和3个西文字符 5.在下列有关CPU的叙述中,错误的是 . A. A.CPU的主要组成部分有运算器、控制器和寄存器组 B. B.CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所 不同 C. C.为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU） D. D.目前PC机所有的CPU芯片均为Intel公司的产品 6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。这些程序运行的顺序是。 A．A．POST程序->CMOS设置程序->系统自举程序->引导程序 B．B．POST程序->引导程序->系统自举程序->CMOS设置程序 C．C．CMOS设置程序->系统自举程序->引导程序->POST程序 D．D．POST程序->CMOS设置程序->引导程序->系统自举程序 7.目前PC机一般都有USB和FirWire接口,用于连接各种外部设备.在下列关于这两种接口的叙述中,错误的是 . A. https://www.360docs.net/doc/c112864029.html,B是一种串行接口,可以连接键盘、鼠标器、优盘、数码相机等 多种设备
计算机二级VB考试试题
站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。 一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108
2020年计算机二级考试VB基本操作题冲刺
2020年计算机二级考试VB基本操作题冲刺 二、基本操作题 41基本操作题 在考生文件夹下，打开Ecommerce数据库，完成如下操作： (1)打开Ecommerce数据库，为表Customer增加一个字段，字段 名为email、类型为字符、宽度为20。 (2)为Customer表的“性别”字段定义有效性规则，规则表达式为：性别$“男女”，出错提示信息为“性别必须是男或女”，默认值为“女”。 (3)通过“会员号”字段建立客户表Customer和订单表OrderItem 之间的永久联系;通过“商品号”字段建立商品表Article和订单表OrderItem之间的永久联系。 (4)为以上建立的联系设置参照完整性约束：更新规则为“级联”;删除规则为“限制”;插入规则为“限制”。 参考解析： (1)具体步骤如下： ① 从“文件”菜单中选择“打开”命令，在弹出的“打开”对话框中选择文件类型为“数据库”，选中Ecommerce数据库后单击“确定”按钮。 ② 打开Ecommerce数据库，右击Customer表，在弹出的快捷菜 单中选择“修改”命令，通过表设计器为该表添加题目要求的字段。 (2)打开Customer表设计器，选中性别字段，在“字段有效性” 组框中的“规则”后面的文本框中输入字段级有效性规则：性别$“男
女”，在“信息”后面的文本框中输入出错提示信息：“性别必须是男或女”，在“默认值”后面的文本框中输入：女。 (3)具体步骤如下： ① 拖放Customer表的“会员号”主索引到OrderItem表的普通索引标志“会员号”上，在Customer表和OrderItem表之间建立永久关系。 ② 按照同样的方法，在Article表和OrderItem表之间建立永久关系。 (4)具体步骤如下： ① 在两表永久关系的连线上右击，选择“编辑参照完整性”快捷命令。 ② 弹出“参照完整性设计器”对话框，在“更新规则”页中选中“级联”单选按钮;在“删除规则”页中选中“限制”单选按钮;在“插入规则”页中选中“限制”单选按钮。 ③ 按照同样的方法设置另一关系的参照完整性。
(完整word版)计算机二级VB编程题目含答案
Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i ^ 2 Next i Text2.Text = s End Sub Private Sub Command1_Click() ''' 不得删除本行注释 Dim i As Integer Open App.Path & "\" & "yssj.txt" For Input As #1 For i = 1 To 10 Input #1, a(i) Next i Close #1 End Sub Private Sub Command2_Click() ''' 不得删除本行注释 Dim i As Integer Text1.Text = "" For i = 1 To 10 If a(i) Mod 3 = 2 Then Text1.Text = Text1.Text & Str(a(i)) End If Next i End Sub
Private Sub command1_Click() '''不得删除本行注释 Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text) a = 0 b = 0 For i = 1 To n a = a + i b = b + a Next i Text2.Text = b End Sub Private Sub Command1_Click() '''不得删除本行注释 Dim i%, xh$, xm$ Open App.Path & "\" & "Xhxm.txt" For Output As #1 For i = 1 To 3 xh = InputBox("请输入学号") xm = InputBox("请输入姓名") Write #1, xh, xm Next i Close #1 End Sub Private Sub Command2_Click() '''不得删除本行注释 Dim s as string Open App.Path & "\" & "Xhxm.txt" For Input As #2 Do While Not EOF(2) Line Input #2, s Text1.Text = Text1.Text & s & vbCrLf Loop Close #2 End Sub
计算机二级VB选择题及答案补充选择
1、下列叙述中，错误的是（B ）。 A、VB程序代码不区分字母大小写 B、VB程序代码中使用“//”表示注释一行 C、VB程序代码中不能使用数字作为标识符的首字符 D、VB程序代码以“回车换行”作为语句结束标志 2、下列关于VB代码编辑时常用组合键的叙述错误的是（C ）。 A、Ctrl＋C表示复制选定代码 B、Ctrl＋X表示剪切选定代码 C、Ctrl＋P表示粘贴代码 D、Ctrl＋Y表示删除整行代码 3、用户自定义数据类型的成员不能是（A）。 A、数组 B、日期型 C、货币型 D、定长字符串 4、如要表示一个在100～300000之间变化的整数，应使用（C）型变量。 A、Integer B、String C、Long D、Byte 5、下列赋值语句中，正确的是（C ）。 A、i + j = 10 B、2i = j C、j = i + j D、i = j = 0 6、能正确表达2的3次幂的表达式是（B ）。 A、2 * 3 B、2 ^ 3 C、2 ** 3 D、2 & 3 7、表达式123 + 23 Mod 100 \ 7的值是（D ）。 A、6 B、126 C、20 D、132 8、表达式12000 + "123" & 100的值是（A ）。 A、"12123100" B、12223 C、24300 D、"12223" 9、下列表达式中，非法的是（C ）。 A、a
D、a=b+c 10、表达式23 + 23 Mod 50 \ 7的值是（C）。 A、23 B、46 C、25 D、123 11、下列表达式的值为15的是（C ）。 A、Int(14.6) B、Fix(14.6) C、Round(15.3)（该函数是按照指定的小数位数进行四舍五入运算的结果） D、Trunc(15.3) 12、返回值为非字符串的函数是（C ）。 A、Ucase B、Str C、Asc D、Chr 13、Print方法紧密输出时，用（D ）分隔多个表达式。 A、空格 B、逗号 C、冒号 D、分号 14、以下程序段中有（C ）处错误。 ReDim a As Integer n + 3 = n a = 0 ; b = 1 Print n + 3 = n A、1 B、2 C、3 D、4 15、下列语句中能清除运行时在窗体中显示的文本的是（A ）。 A、Form1.Cls B、Form1.Clean C、Form1.Release D、Form1.Clear 16、在立即窗口中执行语句：a=InputBox("请输入姓名：","姓名","张三"),出现输入对话框后 直接选择"确定"按纽后，a的值为（B）。 A、姓名 B、张三 C、请输入姓名： D、以上都不对 17、在属性窗口设置窗体的Moveable属性为False，使得窗体（B ）。 A、不可见 B、不可移动
计算机二级考试《VB》模拟试题及答案
计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案 一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。 要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。
“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件 名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有 两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。 单击“重输”按钮，则清空Textl中的`内容，等待用户输入由 空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最 长的单词，并将其显示在Text2中。某一次的运行效果如图所示。 请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确 内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两 个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标 题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数 组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最 后将排列结果显示在Text2中。某一次运行结果如图所示。 请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。
全国计算机VB等级考试历年全真试题(共15套,含答案)
全国计算机VB等级考试历年全真试题 （共15套，含答案） ２００５年4月份二级VB真题（附参考答案） （考试时间90分钟，满分100分） 一、选择题((1)~(35)每小题2分，共70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 (1)数据的存储结构是指 A) 存储在外存中的数据B) 数据所占的存储空间量 C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示 (2)下列关于栈的描述中错误的是 A)栈是先进后出的线性表B) 栈只能顺序存储
C)栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针 (3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 A) 冒泡排序为n/2 B) 冒泡排序为n C) 快速排序为n D) 快速排序为n(n-1)/2 (4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为 A) log2n B) n/2 C) n D) n+1 (5)下列对于线性链表的描述中正确的是 A)存储空间不一定是连续，且各元素的存储顺序是任意的 B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面 C)存储空间必须连续，且前件元素一定存储在后件元素的前面 D)存储空间必须连续，且各元素的存储顺序是任意的 (6)下列对于软件测试的描述中正确的是 A)软件测试的目的是证明程序是否正确 B)软件测试的目的是使程序运行结果正确 C)软件测试的目的是尽可能多地发现程序中的错误 D)软件测试的目的是使程序符合结构化原则 (7)为了使模块尽可能独立，要求 A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 (8)下列描述中正确的是 A) 程序就是软件 B) 软件开发不受计算机系统的限制 C) 软件既是逻辑实体，又是物理实体 D) 软件是程序、数据与相关文档的集合 (9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 A) 数据与程序独立存放 B) 不同的数据被存放在不同的文件中 C) 不同的数据只能被对应的应用程序所使用 D) 以上三种说法都不对 (10) 用树形结构表示实体之间联系的模型是
VB考试题及答案
1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。 2、下列过程不能在标准模块中定义的是( A )。 A、事件过程 B、子过程 C、函数过程 D、公共过程 3、以下叙述中错误的是D A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程 D、事件过程可以像通用过程一样由用户定义过程名 2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。 2、自定义的过程有两种形式：＿Sub＿和＿Function＿。 3、用于退出过程的语句是( D )。 A、Exit B、Exit For C、Exit Do D、Exit Sub 4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。 5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。 1、在窗体代码中有以下事件过程的声明，其中Private表示( B ) Private Sub lblAbc_Change() …… End Sub A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被其它过程调用 D、此过程只可以被本工程中的其它过程调用 9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。 A、Add 12,5 B、Call(2*x,Add(1.57)) C、Call Add x,y D、Call Add(12,12,x) 10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。 A、Sub Procl(ByVal,n,ByVal m) B、Sub Procl(n,ByVal m) C、Sub Procl(n,m) D、Sub Procl(ByVal n,m) 6、写出单击命令按钮Command1时的窗体显示结果。 Public Sub Proc(ByRef n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x as Integer,y As Integer x=15:y=30 Call Proc(x,y) Print x;y
福建省计算机二级VB编程题
编程题 N = Val(Text1.Text) Select Case N Case 80 To 100 Text2.Text = "优良" Case 60 To 79 Text2.Text = "合格" Case 0 To 59 Text2.Text = "不合格" End Select Dim i%, s& N = Val(Text1.Text) s = 0
If i Mod 2 = 0 Then s = s + i Next i Text2.Text = Str(s) Dim i As Integer N = Val(Text1.Text) Text2.Text = "" For i = N To 1000 If i Mod 8 = 1 Then Text2.Text = Text2.Text & i & " " Next i Dim i As Integer s = 0 N = Val(Text1.Text)
s = s + i ^ i Next i Text2.Text = s Dim i%, n%, a As String * 1 n = 0 For i = 1 To Len(Text1.Text) a = Mid(Text1.Text, i, 1) If a >= "0" And a <= "9" Then n = n + 1 Next i Text2.Text = Str(n) Dim a As Double, b As Double, c As Double '保留本行定义 a = Val(Text1.Text)
b = Val(Text2.Text) c = Val(Text3.Text) If b ^ 2 - 4 * a * c >= 0 Then Text4.Text = "实数解" Else Text4.Text = "复数解" End If N！ S=1 For i=1 to n S=s*i Next i 1+1!+2!+3！+。。。+n！ Dim i%, t&,n%,s&
大学计算机VB程序设计考试题目
实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text
计算机等级考试二级VB模拟试题四及答案解析
计算机等级考试二级VB模拟试题四及答案解析 一、选择题 (1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为 A)命令按钮移动到距窗体左边界、上边界各500的位置 B)窗体移动到距屏幕左边界、上边界各500的位置 C)命令按钮向左、上方向各移动500 D)窗体向左、上方向各移动500 正确答案: B (2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 A)TabStop B)Enabled C)Visible D)TabIndex 正确答案: D (3)以下定义数组或给数组元素赋值的语句中，正确的是 A)Dim a As Variant a=Array(1,2,3,4,5) B)Dima(10)As Integer a=Array(1,2,3,4,5) C)Dim a%(10) a(1)="ABCDE" D)Dim a(3),b(3)As Integer a(0)=0 a(1)=1 a(2)=2 b=a 正确答案: A (4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A)For i=0 ToList1.ListCount-1 …… Next B)For i=0 To List1.Count-1 …… Next C)For i=1 To List.ListCount …… Next
D)For i=1 ToList1.Count
2013计算机二级(VB)考试机试题库
2013年VB题库 第01套简单应用题 （1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加一个单选 按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，标题依次为"飞机"、 "火车"、"汽车"，再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过 程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单 击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按 钮时，在Text1中显示"我开汽车去"，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = "我坐" b = "我开" ' Select Case ? ***** Index ***** Case 0 Text1.Text = a + Me.Op1(0).Caption + "去" Case 1 ' Text1.Text = ? + Me.Op1(1).Caption + "去" ***** a ***** Case 2 Text1.Text = b + Me.Op1(2).Caption + "去" End Select End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为"性别"、"身份"；在F1中添加两个单选按钮控件Op1、Op2，标题分别为"男"、"女"；在F2中添加两个单选按钮控件Op3、Op4，标题分别为"学生"、"教师"；再添加一个命令按钮，名称为C1，标题为"确定"。如图所示。请编写适当的事件过程，使得在运行时，在F1、F2中各选一个 单选按钮，然后单击"确定"按钮，就可以按照下表把结果显示在文本框中。 性别身份在文本框中显示的内容 男学生我是男学生 男教师我是男教师 女学生我是女学生 女教师我是女教师 最后把修改后的文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 … ***** 请考生编写程序***** If op1 and op3 then Text1.Text=”我是男学生” If op1 and op4 then Text1.Text=”我是男教师” If op2 and op3 then Text1.Text=”我是女学生” If op2 and op4 then Text1.Text=”我是女教师” *****第01套综合应用题 以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是 其前面两个数之和。 在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图所示。
计算机二级考试题库：VB程序题
编写一个复制字符串的程序，如图x_17.jpg 所示。 * 界面要求： * 使用文本框、命令按钮完成。 * 运行要求： * 1、点击“清除”按钮，将所有的文本框内容清空； * 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中， * 否则，将上面文本框所有内容复制到下面文本框中。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序： * 使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7 * 从小到大排序，并以紧凑格式在一行上输出。 编写一个秒表程序，如图K_309.jpg 所示。 * 界面要求： * 使用一个标签、两个命令按钮、一个时钟控件完成。 * 运行要求： * 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒； * 2、点击“结束计时”按钮，停止计时。 * 3、未计时时，“开始计时”按钮可用，“结束计时”按钮不能用。 * 计时过程中，“开始计时”按钮不可用，“结束计时”按钮能用。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序： * 利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，* 找出其中的最大值和最小值。 编写程序： * 求出斐波那契数列前9项的和。 * 提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。 编写一个字母转换的程序，如图K_401.jpg 所示。 * 界面要求： * 使用文本框、命令按钮控件完成。 * 运行要求： * 在文本框1中输入任意字符串； * 点击“字母转换”按钮，将小写字母转换成大写字母，大写字母转换成小写字母，其余字母不变， * 并在文本框2中显示转换后的字符串。 * （此题要求上载窗体文件，不要求填写程序运行结果） 编写程序：