vb课后习题答案

A2 Public Class SyA_2

Private Sub SyA_2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

MsgBox("欢迎您使用https://www.doczj.com/doc/e8565102.html,！")

End Sub

End Class

A3 Public Class SyA_3

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Label3.Text = TextBox1.Text

End Sub

End Class

A4 Public Class SyA_4

Dim x As Integer, y As Integer, k As Integer

Dim flag As Boolean = True

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

x = 250 : y = 250

Label7.Location = New Point(x - 100, y + 110)

PictureBox1.Location = New Point(x, y)

Timer1.Interval = 10

Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label6.Text = Label7.Left

If flag = True Then

y -= 1

Label7.Location = New Point(x - 100, y + 110)

PictureBox1.Location = New Point(x, y)

Label3.Text = "上"

Label7.BackColor = Color.Blue

Label7.ForeColor = Color.FloralWhite

If (Integer.Parse(Label5.Left) <= 0) Then

flag = False

End If

Else

y += 1

Label7.Location = New Point(x - 100, y + 110)

PictureBox1.Location = New Point(x, y)

Label3.Text = "下"

Label7.BackColor = Color.FloralWhite

Label7.ForeColor = Color.Blue

If (Integer.Parse(Label7.Top) + Integer.Parse(Label7.Height) >= Integer.Parse(Me.Width)) Then

flag = True

End If

End If

End Sub

End Class

A5 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

TextBox1.Text = Val(TextBox1.Text) + 1

End Sub

A6 Public Class SyA_6

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox3.Text = TextBox1.Text ^ TextBox2.Text

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

If TextBox3.Text = TextBox1.Text ^ TextBox2.Text Then TextBox3.Text = "正确" Else TextBox3.Text = "错误"

End Sub

End Class

B1 Module Module1

Sub Main()

Dim a AsBoolean

Dim b AsBoolean

a = True

b = False

Console.WriteLine("{0} {1} {2} {3}", "a", True, "b", False) Console.WriteLine("{0} {1} {2} {3} {4}", a, "AND", b, "为a", a And b) Console.WriteLine("{0} {1} {2} {3} {4} {5}", a, "AND", "Not", b, "为a", a AndNot b)

Console.WriteLine("{0} {1} {2} {3} {4} {5} {6} ", a, ">", b, "OR", b, "为a", a > b Or b)

Console.ReadLine()

EndSub

End Module

B2 Module Module2

Sub main()

Dim x As Integer

Dim y As Integer

Console.Write("Input x =")

x = Console.ReadLine

Console.Write("Input y =")

y = Console.ReadLine

Console.WriteLine("{0} {1}", "表达式1的结果为", Math.Sin(x) + Math.Cos(y))

Console.WriteLine("{0} {1}", "表达式2的结果为", ((x ^ 2 + y ^ 2) / Math.Abs(y)) ^ (1 / 3))

Console.WriteLine("{0} {1}", "表达式3的结果为", x + y > x ^ 2 - 10 * x)

Console.ReadLine()

End Sub

End Module

B3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = Int(Rnd() * 100 + -49)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = Int(Rnd() * 9998 + 1) * 0.01

End Sub

B4 Randomize()

Label1.Text = Int(Rnd() * 9000 + 1000)

Dim a, b, c, d As Integer

a = Label1.Text \ 1000

b = (Label1.Text Mod 1000) \ 100

c = (Label1.Text Mo

d (a * 1000 + b * 100)) \ 10

d = (Label1.Text Mod 10)

Label2.Text = c * 1000 + a * 100 + d * 10 + b

B5 Dim a As Double

a = TextBox1.Text

Label1.Text = Format(a, "##,###.0000")

Label2.Text = a

B10 TextBox1.Text = UCase(TextBox1.Text)

TextBox1.SelectionStart = Len(TextBox1.Text)

B6 Dim a = TextBox1.Text

Label1.Text = Microsoft.VisualBasic.Left(a, 16)

Label2.Text = Mid(a, 17, 6)

Label3.Text = Microsoft.VisualBasic.Right(a, 5)

B7

Dim a, b As String

a = TextBox1.Text

b = TextBox2.Text

Label1.Text = Replace(a, b, "")

B8 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim F = Val(TextBox1.Text), C = Val(TextBox2.Text)

C = (5 / 9) * (F - 32)

TextBox1.Text = Math.Round(C, 2)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim F = Val(TextBox1.Text), C = Val(TextBox2.Text)

F = (9 / 5) * C + 32

TextBox2.Text = Math.Round(F, 2)

End Sub

B9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim p = 3.14, a = Val(TextBox1.Text)

TextBox2.Text = Format(p * a * a, "##.00")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim p = 3.14, a = Val(TextBox1.Text)

TextBox3.Text = Format(2 * p * a, "##.00")

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = Chr(13) Then

If IsNumeric(TextBox1.Text) = False Then

MsgBox("输入非法字符，请重新输入", 0, "友情提示")

TextBox1.Text = ""

TextBox1.Focus()

End If

End If

End Sub

C1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim p = 3.14, a = Val(TextBox1.Text), b = Val(TextBox2.Text)

TextBox2.Text = 2 * p * a

TextBox3.Text = p * a * a

If IsNumeric(TextBox1.Text) = False Then

MsgBox("输入值不合法")

End If

End Sub

C2 Dim x, y As Single

x = InputBox("输入x=")

If x > 20 Then

y = x ^ 2 + 3 * x + 2

MsgBox("结果为"& y)

ElseIf x < 10 Then

y = 0.5 + Math.Abs(x)

MsgBox("结果为"& y)

Else

y = (3 * x) ^ 0.5 - 2

MsgBox("结果为"& y)

End If

或者Dim x, y As Single

x = Val(TextBox1.Text)

Select Case x

Case Is < 10

y = 0.5 + Math.Abs(x)

MsgBox("结果为"& y)

Case Is > 20

y = x ^ 2 + 3 * x + 2

MsgBox("结果为"& y)

Case Else

y = (3 * x) ^ 0.5 - 2

MsgBox("结果为"& y)

End Select

C3 Dim a, b, c As Single

a = InputBox("输入a:")

b = InputBox("输入b:")

c = InputBox("输入c:")

If a + b > c And b + c > a And a + c > b Then

If a = b And b = c Then MsgBox("等边")

If a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then MsgBox("直角")

If (a = b Xor b = c) Or (a = c Xor a = b) Then MsgBox("等腰") End If

End Sub

C4 Dim a, b, c As Integer

Randomize()

Label1.Text = Int(Rnd() * (900) + 100)

a = Label1.Text \ 100

Label2.Text = a

b = (Label1.Text Mod 100) \ 10

Label3.Text = b

c = Label1.Text Mo

d 10

Label4.Text = c

End Sub

C5 Dim a, b, c As Integer

Randomize()

a = Int(Rnd() * 90 + 10)

b = Int(Rnd() * 90 + 10)

c = Int(Rnd() * 4 + 0)

Select Case c

Case 0

Label1.Text = a + b

Case 1

Label1.Text = a * b

Case 2

Label1.Text = a / b

Case 3

Label1.Text = a - b

End Select

C6

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

If a > 5000 Then

Label5.Text = "八折" : Label6.Text = a * 0.8

ElseIf a > 3000 Then

Label5.Text = "八五折" : Label6.Text = a * 0.85

ElseIf a > 2000 Then

Label5.Text = "九折" : Label6.Text = a * 0.9

ElseIf a > 1000 Then

Label5.Text = "九五折" : Label6.Text = a * 0.95

Else

Label5.Text = "原价" : Label6.Text = a

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = ""

Label5.Text = ""

Label6.Text = ""

End Sub

C7 Dim x, y, z, t

x = Val(InputBox("输入x"))

y = Val(InputBox("输入y"))

z = Val(InputBox("输入z"))

Label4.Text = x : Label5.Text = y : Label6.Text = z

If x < y Then

t = x : x = y : y = t

If z > x Then

t = y : y = x : x = z : z = t

ElseIf z > y Then

t = y : y = z : z = t

End If

End If

If x > y Then

If z > x Then

t = x : x = z : z = y : y = x

ElseIf z > y Then

t = y : y = z : z = t

End If

End If

Label9.Text = x : Label10.Text = y : Label11.Text = z

End Sub

C8 Dim a, b, c As Double

a = TextBox1.Text :

b = TextBox2.Text :

c = TextBox3.Text

If b ^ 2 - 4 * a * c < 0 Then

TextBox4.Text = "无解" : TextBox5.Text = "无解"

ElseIf b ^ 2 - 4 * a * c = 0 Then

TextBox4.Text = (-b + Math.Sqrt(b ^ 2 - 4 * a * c)) / 2

TextBox5.Text = (-b + Math.Sqrt(b ^ 2 - 4 * a * c)) / 2 Else

TextBox4.Text = (-b + Math.Sqrt(b ^ 2 - 4 * a * c)) / 2

TextBox5.Text = (-b - Math.Sqrt(b ^ 2 - 4 * a * c)) / 2 End If

D1 Dim a, b, x

Randomize()

For i = 1 To 100

x = 0.01 * Int(Rnd() * 99 + 1)

If x < 0.5 Then

a = a + 1

ElseIf x >= 0.5 Then

b = b + 1

End If

Next

TextBox1.Text = "正面"& a &"%"&"反面"& b &"%"

End Sub

D2 Dim a, b, i

For i = 2 To 100

For a = 2 To i - 1

If i Mod a = 0 Then

Exit For

End If

Next

If a > i - 1 Then

b = b & String.Format(Str(i))

End If

Next

Label1.Text = b

D3

If TextBox1.Text = "111" And TextBox2.Text = "111" Then

MsgBox("登录成功！", 0, "提示信息")

Else

MsgBox("登录失败！", 0, "提示信息")

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.Focus()

n = n + 1

If n >= 3 Then MsgBox("3次登录失败！", 0, "提示信息") : End End If

D4 Dim m%, n%, x%, y%, f%

m = Val(TextBox1.Text)

n = Val(TextBox2.Text)

If n Mod 2 <> 0 Then

MsgBox("脚数必须为偶数，请重新输入")

End If

For i = 0 To m

f = m - i

If n = 2 * i + 4 * f Then

x = i

y = f

Exit For

End If

Next

TextBox3.Text = x

TextBox4.Text = y

If x < 0 Or y < 0 Then

MsgBox("数据错误")

End If

D5 Dim n As Integer, m As Single

n = Val(TextBox1.Text)

m = 2

For i = 1 To n

m = m * ((2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)))

Next

TextBox2.Text = m

End Sub

D6 秋水仙花数

Dim a, b, c, d, n

For n = 100 To 999

a = n \ 100

b = (n Mod 100) \ 10

c = n Mo

d 10

If n = a ^ 3 + b ^ 3 + c ^ 3 Then

d = d & String.Format(Str(n))

Label1.Text = d

End If

Next

D7

Dim i As Integer = 1, a, sum As Double

a = 1

sum = 1

Do

a = 1 / ((1 / a) + i)

sum = sum + a

i = i + 1

Loop Until a < 10 ^ (-4)

MsgBox(sum)

D8 金字塔

Dim i, j As Integer, s, a As String

s = ""

For i = 1 To 9

s = s + Space(9 - i)

a = i

For j = 1 To 2 * i - 1

s = s + a

Next j

s = s + vbCrLf

Next i

Label1.Text = s

End Sub

D9 迭代法求立方根

Dim x1#, x0#, t#, a#, i#

For i = 3 To 27

x0 = i

a = x0

Do

x1 = (2 / 3) * x0 + (a / (3 * x0 * x0))

t = x0

x0 = x1

Loop Until Math.Abs(x0 - t) < 10 ^ (-5)

If i = 3 Then TextBox1.Text = x1

If i = 27 Then TextBox3.Text = x1

Next

TextBox2.Text = 3 ^ (1 / 3)

TextBox4.Text = 27 ^ (1 / 3)

D10 Dim i, j As Integer, m, n, a As Single

For i = 1 To 30

m = m + 10000

Next

a = 0.01

For j = 1 To 30

n = n + a

a = a * 2

Next

Label1.Text = Format(m, "##,###.00")

Label2.Text = Format(n, "##,###.00")

数组

E1 Dim a, b, n

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

n = Val(TextBox3.Text)

If a Mod 1 <> 0 Then

TextBox1.Focus()

MsgBox("输入整数!")

End If

If b Mod 1 <> 0 Then

TextBox2.Focus()

MsgBox("输入整数!")

End If

If n Mod 4 <> 0 Then

TextBox3.Focus()

MsgBox("输入n为4的倍数！")

End If '以上为数据准备

Dim c(0 To n - 1), i, s

For i = 0 To n - 1

Randomize()

c(i) = Int(Rnd() * (b - a + 1) + a)

s = s + Str(c(i)) + ""

If (i + 1) Mod 4 = 0 Then

s = s + vbCrLf

End If

Next

MsgBox(s) '以上为准备随机数

Dim max = c(0), min = c(0)

For i = 0 To n - 1

If c(i) > max Then max = c(i)

If c(i) < min Then min = c(i)

Next '以上为求最大值最小值

MsgBox("最大值为"& max &" 最小值为"& min)

Dim ave, sum

For i = 0 To n - 1

sum = sum + c(i)

Next

ave = sum / n '以上为求平均值

MsgBox("平均值为"& ave)

E2 Module Module1

Sub Main()

Dim arrA(99), arrB(127), a, x, z, i As Integer, y, b As String

b = 0

Randomize()

For i = 0 To 99

arrA(i) = Int(Rnd() * 128)

Next

For j = 0 To 99

For m = 0 To 127

If arrA(j) = m Then

arrB(m) = arrB(m) + 1

End If

Next

Next

For a = 48 To 57

b = Chr(a)

If arrB(a) <> 0 Then

Console.WriteLine(b &":"& arrB(a))

End If

Next

For x = 65 To 90

y = Chr(x) & Chr(x + 32)

z = x + 1

If arrB(x) + arrB(x + 32) <> 0 Then

Console.WriteLine(y &":"& Val(arrB(x) + arrB(z)))

End If

Next

Console.ReadLine()

End Sub

End Module

E4 Dim A(19), B(25), max, c As Integer, s As String

Randomize()

For i = 0 To 19

A(i) = Int(Rnd() * 26 + 65)

For j = 65 To 90

If A(i) = j Then

B(j - 65) = B(j - 65) + 1

End If

Next

Next

max = B(0)

For m = 0 To 25

If B(m) = 0 Then s = s + "" + Chr(m + 65)

If B(m) > max Then max = B(m) : c = m

Next

Label2.Text = Chr(c + 65) &""& max

Label4.Text = s

End Sub

E6

Public Class e6

Dim a%(8)

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Static num%, i

If e.KeyChar = Chr(13) Then

If num > 8 Then

TextBox1.Text = ""

Exit Sub

End If

a(num) = Val(TextBox1.Text)

num = num + 1

TextBox1.SelectionStart = 0

TextBox1.SelectionLength = Len(TextBox1.Text)

End If

Dim s$

s = a(1)

For i = 1 To 8

s = s &","& a(i)

Label2.Text = s

Next

End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i%, j%, t%, k%, x$

i = 1

Do Until i > 8

j = 0

Do Until j > i - 1

If a(i) > a(j) Then

Exit Do

Else

j = j + 1

End If

Loop

t = a(i) : k = i - 1

Do While k > j - 1

a(k + 1) = a(k)

k = k - 1

Loop

a(k + 1) = t

i = i + 1

Loop

x = a(1)

For i = 1 To 8

x = x &","& a(i)

Next

Label4.Text = x

End Sub

End Class

E7

Dim a As Integer = 0

Dim l As String = ""

Dim r As String = ""

Dim c() As String = Split(Replace(TextBox1.Text, vbCrLf, ""), "")

For Each w As String In c

l += w.ToString

If w.Length > a Then

a = w.Length

r = l

l = Nothing

Else

l = Nothing

End If

Next

Label1.Text = r

F1Dim a%()

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(f1(a))

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

a = {8, 7, 6, 3, 2, 9}

End Sub

Function f1%(ByVal b%())

Dim i%

f1 = b(0)

For i = 1 To b.GetUpperBound(0)

If f1 > b(i) Then f1 = b(i)

Next

End Function

Sub s1(ByVal c%(), ByRef min%)

Dim i%

min = c(0)

For i = 1 To c.GetUpperBound(0)

If min > c(i) Then min = c(i)

Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim y%

s1(a, y)

MsgBox(y)

End Sub

F3 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim x

If TextBox1.Text <>"" Then

x = Val(TextBox1.Text)

TextBox2.Text = (x / 180) * 3.14 * 10

TextBox3.Text = "" : TextBox4.Text = ""

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x#

x = Val(TextBox1.Text) * 3.14 / 180

swap(x)

End Sub

Sub swap(ByVal x)

Dim y#, y0#, n#

Dim j = Val(TextBox5.Text)

If j <= 0 Then MsgBox("输入合法精度>=0") : End

Do

y0 = y

n = n + 1

y = y + (-1) ^ (n - 1) * x ^ (2 * n - 1) / jc(2 * n - 1)

Loop Until Math.Abs(y - y0) < j

TextBox3.Text = y

End Sub

Function jc(ByVal n)

jc = 1

Dim i#

For i = 1 To n

jc = jc * i

Next

End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim a

a = Val(TextBox1.Text) * 3.14 / 180

TextBox4.Text = Math.Sin(a)

End Sub

F7 Dim m%, l1%, l2%, c$

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

delstr(TextBox1.Text, TextBox2.Text, Val(TextBox3.Text), CheckBox1.Checked, c)

Label1.Text = c

End Sub

Sub delstr(ByVal sourcestr As String, ByVal targetstr As String, ByVal startpos As Integer, ByVal delmode As Boolean, ByRef consequencestr$)

Do

If delmode = True Then

m = InStr(startpos, sourcestr, targetstr)

l1 = Len(targetstr)

l2 = Len(sourcestr)

consequencestr=Microsoft.VisualBasic.Left(sourcestr,

Math.Abs(m - 1)) & Microsoft.VisualBasic.Right(sourcestr, l2 - (m - 1) - l1)

sourcestr = consequencestr

Else

m = InStr(startpos, LCase(sourcestr), LCase(targetstr))

l1 = Len(targetstr)

l2 = Len(sourcestr)

consequencestr=Microsoft.VisualBasic.Left(sourcestr,

Math.Abs(m - 1)) & Microsoft.VisualBasic.Right(sourcestr, l2 - (m - 1) - l1)

sourcestr = consequencestr

End If

Loop While m <> 0

End Sub

F7 Sub DelStr(ByRef ss As String, ByVal ts As String, ByVal sp As Integer, ByVal dm As Boolean)

Dim ss1$ = ss, ts1$ = ts

If dm = False Then ss1 = UCase(ss) : ts1 = UCase(ts)

Dim i%

i = InStr(sp, ss1, ts1)

Do While i <> 0

If i > 0 Then ss = Microsoft.VisualBasic.Left(ss, i - 1) & Microsoft.VisualBasic.Mid(ss, i + Microsoft.VisualBasic.Len(ts))

ss1 = ss

i = InStr(sp, ss1, ts1)

Loop

End Sub

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

Dim s$ = TextBox1.Text, t$ = TextBox2.Text

Dim p% = Val(TextBox3.Text)

Dim m As Boolean

If CheckBox1.Checked Then m = True Else m = False

DelStr(s, t, p, m)

TextBox4.Text = s

End Sub

VB程序设计课后习题答案(科学出版社)

同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB

11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

VB程序设计教程(第3版)课后实验答案最新版2

1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5

《VB程序设计》习题答案-林卓然编著

《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)

visual_Basic程序的设计教程_课后习题答案及练习

《VB程序设计》综合复习资料 第一章 Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G

5、Visual Basic的编程机制是（） A．可视化 B．面向对象 C．面向图形 D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（）

VB程序的设计教程课后答案

课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？ 答：命令按钮的显示形式通过将Style属性值设置为Graphical来实现。通过Picture属性来装入图

程序设计语言VB_习题集(含答案)

《程序设计语言VB》课程习题集 一、单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7.在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性

8.在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A. timefly

[整理]VB程序设计复习题及答案.

中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型

VB程序设计期末复习题

《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（）

vb程序设计教程课后答案(第三版)

习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。 类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。 VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。

VB程序设计复习题答案范文

VB程序设计复习题 1．Visual Basic是一种___D___的可视化程序设计语言。 A．面向机器 B．面向过程 C．面向问题 D．面向对象 2．Visual Basic主窗口中不包括____B_____。 A．标题栏 B．状态栏 C．工具栏 D．菜单栏 3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。 A．Load B．Unload C．DblClick D．KeyPress 4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是____A______。 A．单击窗体上没有控件的地方 B．单击任一个控件 C．双击任一个控件 D．双击窗体上没有控件的地方 5、要设置窗体上各控件的属性，可在 ____C___ 中进行。 A．窗体布局窗口 B．工程资源管理器窗口 C．属性窗口 D．窗体窗口 6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。 A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A) 7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。 A．https://www.doczj.com/doc/e8565102.html,="统计程序" B．Form1.Caption="统计程序" C. Forml.Caption=统计程序 D．https://www.doczj.com/doc/e8565102.html,=统计程序 8．函数String(n, "str")的功能是 B 。 A．把数值型数据转换为字符串 B．返回由n个字符组成的字符串 C．从字符串中取出n个字符 D．从字符串中第n个字符的位置开始取子字符串 9、定义变量如下： Dim MyVar MyVar =”come see me “ 若在立即窗口中显示MyVar的值，下面正确的是（ A ） A．Debug.Print MyVar B、? MyVar C．Printer.Print MyVar D、Print MyVar 10．设置复选框或单选按钮标题对齐方式的属性是（ D ）

VB程序设计课后习题答案(第四版)前四章

《VB 程序设计》课后习题答案 第一章 习题参考答案 一、 填空题 1、对象 事件驱动 2、编译运行模式 解释运行模式 第二章 习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1． 窗体、控件 2． 属性值 3． 属性窗口设置、代码窗口设置 4． 事件过程 5． 对象名、下划线、事件名 6． Form_Click 第三章 习题参考答案 一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String 、Byte 、Integer 、Long 、Single 、Double 、Currency 、Boolean 、Date 、Object 、V ariant 2、 双引号(英文)、# 3、 ASCII 、1、2 4、 public 、通用、Dim 、Static 、Private 、Static 5、 &、+、+ 6、 Now()、Time 、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字） （2）字符型常量 （3）逻辑型常量 （4）变量 （5）字符串常量 （6）变量 （7）字符串常量 （8）变量 （9）日期型常量 （题目应是#11/16/1999#） （10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 f e d c b a ++

《VB程序设计》课后题答案

第二章 一、问答题 1.叙述建立一个完整的应用程序的过程。 答：界面设计编写事件过程代码运行、调试保存文件 2.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到几个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及到两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求把窗体文件先保存。 3.假定在W indows环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？ 答：VB98 4．当标签框的大小由Caption属性的值进行扩展和缩小，应对该控件的什么属性进行何种设置？ 答：将标签的Autosize设置为True. 5．VB6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？ 答：VB6.0提供的图形文件在Graphics目录。 6．在VB6.0中，命令按钮的显示形式可以有标准和图形两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样改正？答：按钮Style的属性设置为Graphical（或1）。通过Picture属性来装入图形。不能显示图形是因为Style的属性设置为Standard（或0），只要改为Graphical（或1），一般还将Caption 属性的值设置为空。 7．标签和文本框的区别是什么？ 答：文本是否可编辑。 8．当窗体上有三个文本框和一个命令按钮，若程序运行时，需把焦点定位在第三个文本框处，应对何控件的什么属性进行何种设置？ 答：应对Text3控件进行Text3.TabIndex=0的设置。 9．简述文本框的change与keypress事件的区别。 答：文本框内容变化，change与keypress事件都会发生，所不同的是Keyprees还将返回一个Keyasii参数 10.当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本框重新输入？ 答：假定文本框的名称为Text1，则事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If 出错条件判断成立Then Text1＝””…先删除原来数据 Text1.SetFocus …焦点回到Text1 End If …… End If End Sub

VB程序设计练习题附加答案

《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__对象________的可视化程序设计语言，采取了事件驱动________的编程机制。 2、在VB中工程文件的扩展名是vbp__________，窗体文件的扩展名是___frm_________，标准模块文件的扩展名是__bas_________。 3、执行“工程”菜单下的_部件_________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__ WINDOWS ________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（C） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（C） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（C ） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（D） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（D） A．可视化B．面向对象C．面向图形D．事件驱动

三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用__ Tabstop ____________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（c） A．文本框失去焦点B．文本框获得焦点

VB程序设计教程 第四版 课后答案

vb课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答：①向光驱中放入VB安装光盘； ②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6．Form_Click 第三章习题参考答案 一、选择题

1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、ASCII、1、2 4、public、通用、Dim、Static、Private、Static 5、&、+、+ 6、Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（1）13 （2）17 （3）#1999-11-12# （4）zxy123ABC 8、（1）19 （2）8.16666666666667 （3）5．25 （4）2 9、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He 7）16 （8）“-459.65” （9）5 10、（4） 11、（2） 12、（4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1．500.00% 2．将字号扩大为原来的二倍 3．B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub

VB程序设计教程第1-12章习题答案

《Visual Basic程序设计教程》习题答案邱李华郭全编著人民邮电出版社2009年3月第1版 第1章Visual Basic简介 1. 要使计算机能够按人的要求完成一系列的操作，就要求计算 机能够理解并执行人们给出的各种命令，因此就需要在人和计算机之间制定一种二者都能识别的特定的语言，这种特定的语言就是程序设计语言。使用程序设计语言编写的、用来使计算机完成一定任务的、一系列命令的集合构成程序，编写程序的工作则称为程序设计 2. 机器语言可以在计算机上直接运行。 3. 翻译程序的作用是将源程序翻译成计算机能够理解并直接 执行的目标程序；对高级语言源程序进行翻译可以有解释方式和编译方式。解释方式不生成可执行程序。 4. 算法是指计算机解题的方法和步骤。 5. 可视化界面设计指的是：把设计界面的复杂性向编程人员隐 蔽起来，编程人员不需要编写大量的代码来描述界面，只需要使用系统提供的工具在界面上直接把各种对象“画” 出来，并设置这些对象的一些属性就可以了；事件驱动的编程机制指的是：编写程序时，针对不同对象的不同事件编写相应的代码段，每一个代码段只有当运行时在相应对象上发生相应的事件才被执行。 6. Visual Basic的3种工作模式是：设计模式、运行模式、 中断模式。 7. Visual Basic中的控件可以分为3大类：内部控件、ActiveX 控件、可插入对象。 8. ActiveX控件文件的扩展名是OCX。 9. 工程组文件的扩展名是vbg；工程文件的扩展名vbp；窗体 文件的扩展名frm；标准模块文件的扩展名bas；类模块文件的扩展名cls。 10. 在代码窗口的对象下拉列表中，窗体的名称总是显示为 Form。 11. 在Visual Baisc中，要获取上下文相关帮助，只需要在上 下文相关位置按F1键。

《VB语言程序设计》习题参考答案

《VB语言程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) (3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))

VB课后习题第11章习题及答案

习题十一及答案 习题十一 1．简答题 （1）Visual Basic有哪几种工作模式？ （2）Visual Basic中错误类型有哪几种？ （3）简要说明VB程序调试的主要方法和工具。 （4）“立即”窗口、“监视”窗口和“本地”窗口有什么区别？ 2．判断题 （1）在VB集成环境中只有运行程序才能发现程序错误。 ( ) （2）设置错误的捕捉陷阱，指在程序中可能出现错误的地方放置捕捉语句来捕获产生错误的语句。 ( ) （3）On Error Resume Next语句的功能是忽略错误，继续往下执行。 ( ) （4）VB程序中出现编译错误时，不会产生错误提示。 ( ) 3．选择题 （1）当语句不符合文法规则时，出现的错误是（）。 A）逻辑错误 B）运行时期错误 C）语法错误 D）以上都不对 （2）下列陈述中正确的是（）。 A）中断点只能在设计过程中设置。 B）中断点只能在执行过程中设置。 C）中断点可以在设计过程或在执行过程中设置。 D）中断点可以在设计过程中设置，也可以在执行过程或中断过程中设置。 （3）下列属性中，属于Err对象的有（）。 A） Number B） Caption C） Description D） Text 4．填空题 （1）设置断点的快捷键是。 （2）VB单步执行的快捷键是。 （3）错误码为11时表示发生的错误是。 5．编写一段程序，如果出现数组下标越界时，则给出错误的描述并结束程序的运行。 习题十一参考答案： 一、简答题 1．Visual Basic有哪几种工作模式？ （1）设计模式 启动Visual Basic后，即进入设计模式，在主窗口标题栏上显示“设计”字样。建立一 个应用程序的所有步骤基本上都在设计模式下完成，包括窗体设计、建立控件、编写程序代 码以及利用属性窗口设置属性值或查看当前属性值等。但在设计阶段不能执行程序，也不能 使用调试工具，只可设置断点。 应用程序可以直接从设计阶段进入运行阶段，但不可以进入中断模式。 （2）执行模式 执行“运行”菜单中的“启动”命令（或按下F5键、或单击工具条上的“启动”按钮）， 即进入执行模式，此时标题栏上原来显示“设计”的地方已被“运行”字样所代替。当整个 应用程序进入运行阶段后，开始执行程序代码。在运行阶段只可以执行代码，不能修改代码。 （3）中断模式