vb上机答案全部

实验一

Form1.print “程序设计基础教程”

End sub

Private sub form_dblclick()

Form1.cls

End sub

Dim a as single,b as single,c as single a=val(text1.text)

b=val(text2.text)

c=a*b

text3.text=str(c)

end sub

Dim n as integer,a as single

n=val(text1.text)

a= n^(1/3)

text2.text=str(a)

end sub

Text1.text=“visual basic 程序设计”end sub

Private Sub Command2_click()

Text1.text=“”

end sub

Text2.text=left(text1.text,5)

end sub

Private Sub Command2_click()

Text3.text=len(text1.text)

end sub

Form1.Move 0, 0

End Sub

Private Sub Command2_Click()

Form1.Height = Form1.Height * 1.2

Form1.Width = Form1.Width * 1.2

End Sub

7.

Const pi as single=3.14159

Command1_click()

Dim a as single,b as single,c as single,s as single a=val(text1.text)

b=val(text2.text)

c=val(text3.text)

s=a*b*sin((c*pi)/180)/2

text4.text=round(s,2)

end sub

实验二顺序

Const pi as single=3.14159

Private Sub Command1_click()

Dim r as single,v as single

r=val(text1.text)

v=4/3 *pi*r^3

label1.caption=format(v, “0.00”)

end sub

Dim a as single,b as single,c as single,d as single a=val(text1.text)

b=val(text2.text)

c=val(text3.text)

d=(a+b+c)/3

text4.text=format(d, “0.00”)

end sub

Text1.locked=false

End sub

Private Sub Text1_change

Command2.enable=true

End sub

Private Sub Command_click()

Text1.locked=true

Command2.enable=false

End sub

Text1.text=“欢迎光临”

End sub

Command2_click()

Text1.text=“谢谢再见”

End sub

Text1.selstart=8

Text1.sellength=9

End sub

Command2_click()

Label2.caption=text1.seltext End sub

Const pi as single=3.14159

Dim r as single,h as single

Private Sub Command click()

Dim s as single

r=text1.text

h=text2.text

s=2*pi*r^2+2*pi*r*h

text3.text=format(s, “0.000”) end sub

Private Sub command2 click()

dim v as single

v=pi*r^2*h

text4.text=format(v, “0.000”) end sub

Dim a as string,b as string

Private Sub Command1_click()

a=text1.text

b=text2.text

text3.text=“a”&“b”

end sub

Private Sub command2_click()

dim t as string

a=text1.text

b=text2.text

t=a

a=b

b=t

text1.text=a

text2.text=b

label1.caption=“交换成功”

end sub

实验三选择

Dim n as integer

If (n mod 3=0 )and (n mod 7=0 ) then Label2.caption=“Yes”

Else

Label2.caption=“No”

End if

End sub

Dim x as single,y as single

x=text1.text

y=text2.text

if x>0 and y>0 then

text3.text=“第一象限”

elseif x<0 and y>0 then

text3.text=“第二象限”

elseif x<0 and y<0 then

text3.text=“第三象限”

else x>0 and y<0 then

text3.text=“第四象限”

end if

end sub

Dim a as single,b as single,c as single,d as single a=text1.text

b=text2.text

c=text3.text

d=a+b+c

if d>=270 then

if d>=285 then

text4.text=“Gold Medal”

else

text4.text=“Silver Medal”

end if

elseif d>240 then

text4.text=“Bronze Medal”

else

if a>95 or b>95 or c>95 then

text4.text=“Honor Medal”

else

text4.text=“No Medal”

end if

end if

end sub

Text.text=“我是博士生”

End sub

Option2_click

Text.text=“我是硕士生”

End sub

Option3_click

Text.text=“我是本科生”

End sub

If Check1.Value Then

Label1.FontUnderline = True

Else

Label1.FontUnderline = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value Then

Label1.FontStrikethru = True

Else

Label1.FontStrikethru = False

End If

End Sub

Dim n as single

n=text1.text

if n=<4 then

text2.text=format（10，“0.0”）

elseif n>4 and n<=15 then

text2.text=format（10+1.2*(n-4)，“0.0”）else

text2.text=format（1.8*n，“0.0”）

end if

end sub

If text1.text=“Teacher” then

If text2.text=“123456” then

Label3.caption=“登录成功”

Else

Label3.caption=“密码不正确”

End if

Elseif text1.text=“Student” then

If text2.text=“654321” then

Label3.caption=“登录成功”

Else

Label3.caption=“密码不正确”

End if

Else

Label3.caption=“用户未注册”

End if

End sub

实验四循环

Dim n As Integer, i As Integer, a As Long n = Text1.Text

a = 0

For i = 1 To n

If (i Mod 3 = 0) And (i Mod 7 <> 0) Then

a = a + i

End If

Next i

Label1.Caption = a

End Sub

Dim n As Integer, m As Integer, i As Integer

n = Text1.Text n=val(text1.text)

m = Text2.Text m=val(text2.text)

If m >= n Then for i=n to 1 step -1

For i = n To 1 Step -1if n mod i=0 and m mod i=0 then

If (m Mod i = 0) And (n Mod i) = 0 Then text3.text=str(i)

Text3.Text = I exit for

Exit For end if

End If next i

Next i

Else

For i = m To 1 Step -1

If (m Mod i = 0) And (n Mod i = 0) Then

Text3.Text = i

Exit For

End If

Next i

End If

End Sub

Dim n As Integer, m As Integer, i As Integer, a As Integer, s As Integer, flag As

Boolean

m = Text1.Text

n = Text2.Text

s = 0

For a = m To n

flag = True

For i = 2 To a - 1

If a Mod i = 0 Then

flag = False

Exit For

End If

Next i

If flag = True Then s = s + a Next a

Text3.Text = s

End Sub

Timer1.Enabled = True

End Sub

Private Sub Command2_Click() Timer1.Enabled = False

Label1.Left = 100

End Sub

Private Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End Sub

Dim n As Single, i As Single, a As Single, s As Single n = Label1.Caption

s = 0

For i = 1 To n

For a = 1 To i

s = s + a

Next a

Next i

Text1.Text = s

End Sub

Private Sub HScroll1_Change()

Label1.Caption = HScroll1.Value

End Sub

Dim s As Single, n As Long, t As Long, i As Long

s = Text1.Text

t = 1

For i = 1 To Len(s)

If Right(s, 1) = "1" Then

n = n + t

End If

t = t * 2

s = Left(s, Len(s) - 1)

Next i

Label1.Caption = n

End Sub

Private Sub Command2_Click()

Dim a As Long, q As Long

a = Text1.Text

Do While (a > 0)

q = a Mod 2 & q

a = a \ 2

Loop

Label1.Caption = q

End Sub

Timer1.Enabled = True

Command1.Enabled = False

Command1.Caption = "继续"

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

Command2.Enabled = False

Command1.Enabled = True

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Label1.FontSize = Label1.FontSize * 1.1 If Label1.FontSize > 100 Then

Label1.FontSize = 8

End If

End Sub

实验五数组

Private Sub Command1_Click()

Dim i As Integer

Text1.text=""

For i = 1 To 10

a(i) = Int(Rnd * 81) + 10

Text1.Text = Text1.Text & a(i) & Space(2) Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer, t As Integer Text2.text=""

For i = 1 To 9

For j = i + 1 To 10

If a(i) > a(j) Then

t = a(j)

a(j) = a(i)

a(i) = t

End If

Next j

Next i

For i = 1 To 10

If a(i) Mod 3 = 0 Then

Text2.Text = Text2.Text & a(i) & Space(2) End If

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 10

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

Text1.Text = Text1.Text & a(i) & Space(2) Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

max = a(1)

For i = 2 To 10

If max < a(i) Then

max = a(i)

End If

Next i

Text2.Text = max

Text3.Text = Chr(max)

End Sub

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 100

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

Text1.Text = Text1.Text &Chr(a(i)) & Space(2) Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, b As Integer, j As Integer r = 0

b = Asc(Text2.Text)

For i = 1 To 100

If a(i) = b Then

j = j + 1

End If

Next i

Text3.Text = j

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Text1.Text = ""

For i = 1 To 5

For j = 1 To 5

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

Text1.Text = Text1.Text & a(i, j) & Space(2) Next j

Text1.Text = Text1.Text &vbCrLf

Next i

End Sub

Private Sub Command2_Click

Dim i as Integer ,j as Integer ,s as Integer For i = 1 to 5

j = 6 – i

s=s+a( i ,j )

next i

Label1.caption =s

End Sub

Private Sub Command1_Click()

Dim n As Integer, i As Integer

i = Val(Text1.Text)

ReDima(1 To i)

a(1) = 1

a(2) = 1

For n = 3 To i

a(n) = a(n - 1) + a(n - 2)

Next n

Text2.Text = a(i)

End Sub

Private Sub Command1_Click()

Dim i As Integer

Text1.text=""

For i = 1 To 50

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

Text1.Text = Text1.Text & a(i) & Space(2) Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer

Text2.Text = 0

For i = 1 To 50

If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Text2.Text = Val(Text2.Text) + a(i)

End If

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Text1.Text = ""

For i = 1 To 4

For j = 1 To 4

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

Text1.Text = Text1.Text & a(i, j) & Space(2)

Next j

Text1.Text = Text1.Text &vbCrLf

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer,j as integer

For i=1 to 4

t=a(i,1)

a(i,1)=a(i,3)

a(i,3)=t

Next t

For i = 1 To 4

For j = 1 To 4

Label1.Caption = Label1.Caption & a(i, j) & Space(2) Next j

Label1.Caption = Label1.Caption &vbCrLf

Next i

End Sub

实验六常用控件

Private Sub Op_Click(Index As Integer)

Dim a As Integer, b As Integer, c As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

Select Case Index

Case 0

c = a + b

Case 1

c = a - b

Case 2

c = a * b

Case 3

c = a / b

End Select

Text3.Text = Str(c)

End Sub

Private Sub Command1_Click()

Dim n As Integer

For n = 1 To 10

a(n) = Int(Rnd * 81) + 10

List1.AddItem a(n)

Next n

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer, k As Integer, t% For i = 1 To 9

For k = i + 1 To 10

If a(i) > a(k) Then

t = a(i)

a(i) = a(k)

a(k) = t

End If

Next k

Next i

For i = 1 To 10

List2.AddItem a(i)

Next i

End Sub