VB申石磊课后编程答案

ゝ一世哀愁。 2022-05-30 10:56 162阅读 0赞

习题2-1  
Private Sub Form\_Click()  
 FontSize = 40  
 FontName = "隶书"  
 ForeColor = vbRed  
 Print "热烈庆祝"  
 FontSize = 60  
 FontName = "宋体"  
 ForeColor = vbGreen  
 Print "XX会召开"  
End Sub  
Private Sub Form\_DblClick()  
 Cls  
End Sub  
习题2-2  
Private Sub Command1\_Click()  
 Form1.Move Width \* Rnd, Height \* Rnd

Form1.BackColor=QBColor (15\*Rnd)  
End Sub  
习题2-3  
‘先分别设置三个命令按钮的Style的属性为1-Graphical

Private Sub Command1\_Click()

Command1.Caption = "设置"

Command1.BackColor = vbRed

Label1.Caption = "标签和按钮属性的练习"

Label1.Font = "宋体"

Label1.FontSize = 20

Label1.BorderStyle = 1

Label1.ForeColor = &HFF0057

Label1.BackColor = QBColor(15 \* Rnd)

End Sub

Private Sub Command2\_Click()

Command2.Caption = "消失"

Command2.BackColor = vbBlue

Label1.Visible = False

End Sub

Private Sub Command3\_Click()

Command3.Caption = "显示"

Command3.BackColor = vbGreen

Label1.Visible = True

End Sub

习题2-4  
Private Sub Timer1\_Timer()  
 Text1.Text = Now  
 Caption = Text1.Text  
End Sub  
习题2-5  
Private Sub Timer1\_Timer()

If BackColor = vbRed Then

BackColor = vbBlue

Else

BackColor = vbRed

End If

End Sub

习题2-6  
Private Sub Timer1\_Timer()  
 If Label1.Left < Form1.Width Then  
 Label1.Left = Label1.Left +10  
 Else  
 Label1.Left = -Label1.Left  
 End If  
End Sub  
习题2-7  
Private Sub Command1\_Click()

Text1.Text = "文本框的显示"

End Sub

Private Sub Command2\_Click()

Text1.Text = ""

End Sub

Private Sub Command3\_Click()

End

End Sub

习题2-8  
Private Sub Text1\_Change()

Text2.Text = Text1.Text

End Sub

Private Sub Text2\_Change()

Text1.Text = Text2.Text

End Sub  
习题2-9  
Private Sub Command1\_Click()

Call Text1\_LostFocus

End Sub

Private Sub Text1\_Click()

Call Text1\_GotFocus

End Sub

Private Sub Text1\_GotFocus()

Text1.Text = "获得焦点"

End Sub

Private Sub Text1\_LostFocus()

Text1.Text = "失去焦点"

End Sub  
习题2-10  
Private Sub Timer1\_Timer()

If Text1.Top < Form1.Height Then

Text1.Top = Text1.Top + 10

Else

Text1.Top = 0

End If

End Sub

习题3-3  
Private Sub Form\_Click()

Dim a As Single

Dim b As Single

Dim c As Single

Dim s As Single

Dim area As Single

a = InputBox("输入a值")

b = InputBox("输入b值")

c = InputBox("输入c值")

s = (a + b + c) / 2

area = Sqr(s \* (s - a) \* (s - b) \* (s - c))

Print "area="; area

End Sub  
习题3-4  
Private Sub Form\_Click()

Dim a As Integer, s As Single

a = Int(100 \* Rnd + 1)

s = Sqr(a)

Print a, s

End Sub  
习题3-5  
Private Sub Timer1\_Timer()

Cls

Randomize

Print "资源环境学院"

FontSize = Int(76 \* Rnd + 5)

End Sub

习题3-6  
 Private Sub Form\_KeyPress(KeyAscii AsInteger)

Dim s As String

Form1.Cls

s = InputBox("请输入5个字符","字符子串引用")

If Len(s) = 5 Then

Print s

Print Right(s, 1) & Mid(s, 3, 1) &Left(s, 1)

End If

End Sub

习题3-7  
Private Sub Command1\_Click()

If Val(Text1.Text) >= 10 AndVal(Text1.Text) < 100 Then

Text2.Text = Right(Val(Text1.Text), 1)& Left(Val(Text1.Text), 1)

End If

End Sub  
习题3-8  
Private Sub Form\_Click()

Dimr As Long, a As Long, b As Long

Dimc As Long, d As Long, e As Long, f As Long

r =InputBox("请输入您的工资:")

a =r \\ 100

b =(r - 100 \* a) \\ 50

c =(r - 100 \* a - b \* 50) \\ 10

d =(r - 100 \* a - b \* 50 - c \* 10) \\ 5

e =(r - 100 \* a - b \* 50 - c \* 10 - d \* 5) \\ 2

f =r - 100 \* a - b \* 50 - c \* 10 - d \* 5 - e \* 2

Print "您的工资是:" & r

Print "100元张数：" & a

Print "50元张数：" & b

Print "10元张数：" & c

Print "5元张数：" & d

Print "2元张数：" & e

Print "1元张数：" & f

End Sub  
习题3-9

Private Sub Command1\_Click()

Dim TaskID As Integer

TaskID = Shell("C:\\Windows\\notepad.exe",vbNormalFocus)

End Sub

Private Sub Command2\_Click()

Shell"C:\\Windows\\System32\\mspaint.exe", vbNormalFocus

End Sub  
习题3-10  
Private Sub Timer1\_Timer()

Label1.Caption = "我国2018年8月8日举办冬奥会"

Dim s As String

s = Choose(Weekday(Date), "星期日","星期一", "星期二", "星期三", "星期四", "星期五", "星期六")

Label2.Caption = "今天："& Date & Space(3) & s

Label3.Caption = "距开幕还有："& \#8/8/2018\# - Date & "天"

End Sub

习题4-1  
Private Sub Form\_Click()

Dim s As Single, p As Single, r As Single,n As Integer

p = InputBox("输入存款金额")

n = InputBox("输入存款年数")

r = InputBox("输入利率")

s = p \* (1 + r) ^ n

MsgBox n & "年后本金和利息之和为："& Format(s, "\#\#.\#\#")

End Sub  
习题4-2  
Private Sub Form\_click()  
 Dim a As Single, b As Single  
 a = InputBox("请输入第一个实数")  
 b = InputBox("请输入第二个实数")  
 If a > b Then  
 Print a, b  
 Else  
 Print b, a  
 End If  
End Sub  
习题4-3  
Private Sub Form\_click()  
 Dim a As Integer

Cls

a =InputBox("请输入年份")

If aMod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then

Print Str(a) & "年是闰年!"

Else

Print Str(a) & "年不是闰年!"

EndIf

End Sub  
习题4-4  
Private Sub Form\_click()  
 Dim a!, b!, c!, d!

Dim m!, n!, r!, i!

a = InputBox("a=")

b =InputBox("b=")

c =InputBox("c=")

d =b \* b - 4 \* a \* c

If d>= 0 Then

m =(-b + Sqr(d)) / (2 \* a)

n =(-b - Sqr(d)) / (2 \* a)

Print " X1 = "; m, ",","X2="; n

Else

r =(-b) / (2 \* a)

i =Sqr(Abs(-d)) / (2 \* a)

Print "X1 = "; r & "+"& Abs(i) & "i", ",", "X2 = "; r &"-" & Abs(i) & "i"

EndIf

End Sub  
习题4-5  
Private Sub Form\_Click()  
Dim x!

x =InputBox("输入分数：")

If x< 60 Then

Print "不及格！"

ElseIf x < 70 Then

Print "及格！"

ElseIf x < 80 Then

Print "一般！"

ElseIf x < 90 Then

Print "良好！"

Else

Print "优秀！"

EndIf

End Sub  
习题4-6  
Private Sub Form\_Click()

Dimx!, y!

x =InputBox("输入x的值：")

Select Case x

CaseIs < 0

y =-x

Case0 To 10

y =x

Case10 To 20

y =x ^ 2 + 1

CaseElse

y =x ^ 2 - 1

EndSelect

Print "y="; y

End Sub  
习题4-7  
Private Sub Form\_Click()

Dims As Integer

s =InputBox("请输入年龄")

Select Case s

CaseIs > 50

Print "您的年龄为" &Str(s) & "," & "请参加慢跑运动"

Case40 To 50

Print "您的年龄为" &Str(s) & "," & "请参加竞走运动"

Case30 To 40

Print "您的年龄为" &Str(s) & "," & "请参加跳绳运动"

CaseElse

Print "您的年龄为" &Str(s) & "," & "请参加长跑运动"

EndSelect

EndSub

习题4-8

Private Sub Form\_Click()

Dim i%, j%

For i = 1 To 100

If i Mod 2 = 0 Then

Print i;

j = j + 1

If j Mod 10 = 0 Then Print

End If

Next i

End Sub

习题4-9

Private Sub Form\_Click()

Dim i%,j%

For i = 1 To 1000

If i Mod 3 = 2 Or i Mod 5 = 3 Or i Mod 7 =2 Then

j = j + 1

Print i;

If j Mod 10 = 0 Then Print

End If

Next i

End Sub

习题4-11

Private Sub Form\_Click()

Dim i%, a&

While i < 101

a = a + i \* (-1) ^ (i + 1)

i = i + 1

Wend

Print a

End Sub

习题4-12

Private Sub Form\_Click()

Dim m&, n&, a&, b&, i%, j%

a = 1

m = InputBox("输入m")

n = InputBox("输入n")

For i = m To n

For j = 1 To i

a = a \* j

Next j

b = b + a

Next i

Print b

End Sub

习题4-13

Private Sub Form\_Click()

Dim a%, b%, c%, i%, j%, k%

For a = 1 To 20

For b = 1 To 20

For c = 1 To 20

If a \* a + b \* b = c \* c Then

Print a, b, c

End If

Next c

Next b

Next a

End Sub

习题4-14

Option Explicit

Private Sub Form\_Click()

Dim a%, b%, i%

For a = 1 To 500

b = a

For i = 1 To a - 1

If a Mod i = 0 Then b = b - i

Next i

If b = 0 Then Print a

Next a

End Sub

习题4-15

Private Sub Form\_Click()

n = 1: s = 1: t = 1

While t > 0.00001

i = i + 1

n = n \* i

s = s + 1 / n

t = 1 / n

Wend

Print s End Sub

习题5-1

Option Base 1

Private Sub Form\_Click()

Dim A(10) As String \* 1

For i = 1 To 10

A(i) = Chr(64 + i)

Next i

For i = 1 To 10

Print A(i);

Next i

For i = 1 To 5

t = A(i)

A(i) = A(11 - i)

A(11 - i) = t

Next i

For i = 1 To 10

Print A(i);

Next i

End Sub

习题5-2

Option Base 1

Private Sub Form\_Click()

Dim A

A =Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

For i = 1 To 10

If A(i) Mod 3 = 0 Then

Print A(i), i

End If

Next i

End Sub

习题5-3

Option Base 1

Private Sub Form\_Click()

Dim A

A =Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

For i = 1 To 5

t = A(i)

A(i) = A(11 - i)

A(11 - i) = t

Next i

For i = 1 To 10

Print A(i);

Next i

End Sub

习题5-4

Option Base 1

Private Sub Form\_Click()

Dim a(5, 5)

For i = 1 To 5

For j = 1 To 5

a(i, j) = Int(51 \* Rnd + 10)

Next j

Next i

For i = 1 To 5

For j = 1 To 5

Print a(i, j);

t = t + a(i, j)

Next j

Print Spc(6), t

t = 0

Next i

For i = 1 To 5

For j = 1 To 5

If i = j Then Print a(i, j);

Next j

Next i

End Sub

习题5-5

Option Base 1

Private Sub Form\_Click()

Dim a(), b&, c&

m = InputBox("第一维上限")

n = InputBox("第二维上限")

ReDim a(m, n)

For i = 1 To m

For j = 1 To n

a(i, j) = Int(900 \* Rnd + 100)

Next j

Next i

For i = 1 To m

For j = 1 To n

Print a(i, j);

Next j

Next i

b = a(1, 1)

For i = 1 To m

For j = 1 To n

If a(i, j) > b Then b = a(i, j)

Next j

Next i

For i = 1 To m

For j = 1 To n

If a(i, j) = b Then Print "最大值:"& b & "行号:" & i & "列号:" & j

Next j

Next i

c = a(1, 1)

For i = 1 To m

For j = 1 To n

If a(i, j) < c Then c = a(i, j)

Next j

Next i

For i = 1 To m

For j = 1 To n

If a(i, j) = c Then Print "最小值:"& c & "行号:" & i & "列号:" & j

Next j

Next i

End Sub

习题5-7

Type stutype

id As String \* 6

name As String \* 6

score As Single

End Type

Option Base 1

Private Sub Form\_Click()

Dim a(3) As stutype

Dim i%

For i = 1 To 3

a(i).id = InputBox("学号")

a(i).name = InputBox("姓名")

a(i).score = InputBox("分数")

Next i

For i = 1 To 3

Print a(i).id; a(i).id; a(i).score

Next i

End Sub

习题5-8

Private Sub Option1\_Click(Index As Integer)

Text1.ForeColor = vbRed

Select Case Index

Case 0

Text1.FontSize = 10

Case Else

Text1.FontSize = 30

End Select

End Sub

Private Sub Option2\_Click(Index As Integer)

Text1.ForeColor = vbBlue

Select Case Index

Case 0

Text1.Font = "黑体"

Case Else

Text1.Font = "隶书"

End Select

End Sub

习题5-9

Option Base 1

Private Sub Form\_Click()

Dim a(3, 4)

Dim i%, j%

For i = 1 To 3

For j = 1 To 4

a(i, j) = InputBox("输入数组元素")

Next j

Next i

For i = 1 To 3

For j = 1 To 4

Print a(i, j),

Next j

Next i

For j = 1 To 4

t = a(1, j)

a(1, j) = a(3, j)

a(3, j) = t

Next j

For j = 1 To 3

t = a(j, 2)

a(j, 2) = a(j, 4)

a(j, 4) = t

Next j

For i = 1 To 3

For j = 1 To 4

Print a(i, j),

Next j

Next i

End Sub

习题5-10

Option Base 1

Private Sub Form\_Click()

Dim i As Integer, j As Integer

Dim arr(10, 10) As Integer

For i = 1 To 10

For j = 1 To i

If j = 1 Then

arr(i, j) = 1

Else

arr(i, j) = arr(i - 1, j - 1) + arr(i - 1,j)

End If

Next j

Next i

For i = 1 To 10

For j = 1 To i

Print arr(i, j);

Next j

Next i

End Sub

习题6-1

Sub area(r, h)

r = InputBox("r")

h = InputBox("h")

g = 3.14 \* r \* r \* 2 + (2 \* 3.14 \* r \* h)

Print g

End Sub

Private Sub Form\_Click()

Call area(r, h)

End Sub

习题6-3

Sub zh(r)

s = Choose(r + 1, "星期日","星期一", "星期二", "星期三", "星期四", "星期五", "星期六")

Print s

End Sub

Private Sub Form\_Click()

r = InputBox("r")

If r < 0 Or r > 6 Then

MsgBox "错误，请更新输入"

End

End If

Call zh(r)

End Sub

习题6-4

和6-3一样，只是sub过程在标准模块中定义

习题6-5

Function pd(t)

If t Mod 2 = 0 Then

pd = "偶数"

Else

pd = "奇数"

EndIf

End Function

Private Sub Form\_Click()

m = InputBox("m")

Call pd(m)

Print pd(m)

End Sub

习题6-6

详见课本例题6-5

习题6-7

Option Base 1

Private s$

Sub tongji(s)

t = Len(s)

For i = 1 To t

If Asc(Mid(s, i, 1)) >= 65 AndAsc(Mid(s, i, 1)) <= 90 Then k = k + 1

If Asc(Mid(s, i, 1)) >= 97 AndAsc(Mid(s, i, 1)) <= 122 Then m = m + 1

Next i

Label1.Caption = k & "个大写字母"

Label2.Caption = m & "个小写字母"

End Sub

Private Sub Command1\_Click()

s = Text1

Call tongji(s)

End Sub

习题6-8

Sub PI(s)

For i = 1 To s

t = t + (-1) ^ (i - 1) \* (1 / (2 \* i - 1))

Next i

Print t \* 4

End Sub

Private Sub form\_Click()

s = InputBox("输入数")

Call PI(s)

End Sub

习题6-9

Function fact(n)

p = 1

For i = 1 To n

p = p \* i

Next i

fact = p

End Function

Sub sum(s)

t = 1

For i = 1 To s

t = t + 1 / (fact(i))

Next i

Print t

End Sub

Private Sub form\_Click()

s = InputBox("输入数")

Call sum(s)

End Sub

习题6-10

Function fact(n%)

p = 1

For i = 1 To n

p = p \* i

Next i

fact = p

End Function

Function power(x\#, n%)

t = 1

For i = 1 To n

t = t \* x

Next i

power = t

End Function

Sub sum(x\#, s\#)

Dim i%, t\#

t = 1

For i = 1 To s

t = t + power(x, i) / fact(i)

Next i

Print t

End Sub

Private Sub form\_Click()

Dim x\#, s\#

x = InputBox("输入数x")

s = InputBox("输入数s")

Call sum(x, s)

End Sub

习题6-11

Sub sxh()

For i = 100 To 999

If i = Mid(i, 1, 1) \* Mid(i, 1, 1) \* Mid(i,1, 1) + Mid(i, 2, 1) \* Mid(i, 2, 1) \* Mid(i, 2, 1) + Mid(i, 3, 1) \* Mid(i, 3,1) \* Mid(i, 3, 1) Then

Print i,

End If

Next i

End Sub

Private Sub Form\_Click()

Call sxh

End Sub

习题6-12

Sub zf(x, n)

For i = 1 To (n + 1) / 2

For j = 1 To n

If j < i Or j > n + 1 - i Then

Print " ",

Else

Print x,

End If

Next j

Next i

End Sub

Private Sub Form\_Click()

Call zf("\*", 15)

End Sub

习题6-13

Dim s$

Function szzh(m)

r = m Mod 8

If m > 8 Then Call szzh(m \\ 8)

Text1 = Text1 + Mid(s, r + 1, 1)

End Function

Private Sub Form\_Click()

s = "0123456789ABCDEF"

m = Val(Text1)

Call szzh(m)

End Sub

习题6-14

习题6-15

Function age(n)

If n = 1 Then p = 10

If n > 1 Then p = age(n - 1) + 2

age = p

End Function

Private Sub Form\_Click()

Call age(5)

Print age(5)

End Sub

习题7-1

Private Sub Command1\_Click()

Open "d:\\sydata1.txt" For OutputAs \#1

Print \#1, "601", "杨大昌",1550

Print \#1,

Print \#1, "603", "李文圣",1886

Print \#1,

Print \#1, "605", "张  燕", 2235

Print \#1,

Write \#1, "601", "杨大昌",1550

Write \#1,

Write \#1, "603", "李文圣",1886

Write \#1,

Write \#1, "605", "张  燕", 2235

Write \#1,

Close \#1

End Sub

Private Sub Command2\_Click()

Dim s As String

Open "d:\\sydata1.txt" For InputAs \#2

Do While Not EOF(2)

Line Input \#2, s

Print s

Loop

Close \#2

End Sub

Private Sub Command3\_Click()

Open "d:\\sydata1.txt" For AppendAs \#3

Dim num As String, name As String, gz AsInteger

num = InputBox("编号")

name = InputBox("姓名")

gz = InputBox("工资")

Print \#3, num, name, gz

Print \#3,

End Sub

习题7-2

Private Sub Command1\_Click()

Open "d:\\sydata2.txt" For OutputAs \#1

Print \#1, Text1

Text1.Text = ""

Close \#1

End Sub

Private Sub Command2\_Click()

Dim s As String

Open "d:\\sydata2.txt" For InputAs \#2

Do While Not EOF(2)

Line Input \#2, s

Text1.Text = Text1.Text + s + vbNewLine

Loop

Close \#2

End Sub

习题7-3

Private Type sy

n As String

m As String

p As Integer

End Type

Dim ms As sy

Private Sub Form\_load()

Open "d:\\sydata1.txt" For InputAs \#1

Open "d:\\sydata3.txt" For OutputAs \#2

Do While Not EOF(1)

Input \#1, ms.n, ms.m, ms.p

Print ms.n, ms.m, ms.p

Print \#2, ms.n, ms.m, ms.p + 500

Loop

End Sub

Private Sub Form\_click()

Open "d:\\sydata3.txt" For InputAs \#3

Do While Not EOF(3)

Line Input \#3, t

Print t

Loop

End Sub

习题7-7

Private Type sy

num As String

name As String

gz As Integer

End Type

Dim t As sy

Private Sub Command1\_Click()

For i = 1 To 3

t.num = InputBox("num")

t.name = InputBox("name")

t.gz = Val(InputBox("gz"))

Put \#1, i, t

Next i

End Sub

Private Sub Command2\_Click()

For i = 1 To 3

Get \#1, i, t

Print t.num, t.name, t.gz

Next i

End Sub

Private Sub Form\_Load()

Open "d:\\sydata7.dat" For RandomAs \#1

End Sub

Private Sub Form\_Unload(Cancel As Integer)

Unload Me

EndSub

VB申石磊课后编程答案

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关进化生物学课后题答案

相关普通化学课后习题答案

相关《酶工程》-课后习题答案

相关 Linux：课后习题及其答案

相关农学概论课后答案

相关 Python快速编程入门课后习题答案

相关 python快速编程入门课后程序题答案-《Python编程：从入门到实践》课后习题及答案...

相关第二章课后题答案

相关 VB申石磊课后编程答案

相关 XML课后练习答案（三）——JS编程小测验答案分享