注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

纪念册~~

 
 
 

日志

 
 

VB实验内容(二、三)  

2010-11-08 20:46:13|  分类: 学海无涯 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
  实验三

 

实验题目1:

设计程序,要求程序运行时计算某个学生三门课程的平均成绩。

(1)程序运行时,单击“输入”命令按钮,输入学生的成绩。(调用inputbox函数输入成绩,并用内存变量保存成绩)

(2)定义三个内存变量存放成绩,单击一次“输入”按钮输入三个成绩。

(3)单击“平均分”命令按钮时,在文本框中显示该学生的平均分。

(4)单击“结束”命令按钮则程序结束运行。

实验题目1源程序代码:

Option Explicit

Dim sc1, sc2, sc3 As Single

Private Sub Command1_Click()

sc1 = Val(InputBox("请输入第一个成绩", "输入成绩"))

sc2 = Val(InputBox("请输入第二个成绩", "输入成绩"))

sc3 = Val(InputBox("请输入第三个成绩", "输入成绩"))

End Sub

Private Sub Command2_Click()

Text1.Text = (sc1 + sc2 + sc3) / 3

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

实验题目2:

设计程序,计算长方体的体积。

(1)程序运行时,单击“输入”命令按钮,输入长方体的长、宽和高。

(调用三次inputbox函数输入,并用三个内存变量保存)

如long 表示长方体的长,则调用inputbox函数输入为:Long=val(inputbox(“请输入长方体的长”))

(2)单击“计算”命令按钮时,在文本框中显示该长方体的体积。

(3)单击“结束”命令按钮则程序结束运行。

注意:三个存储长宽高的内存变量必须定义在通用部分。

 

实验题目2源程序代码: 

Option Explicit

Dim c, k, g As Single

Private Sub Command1_Click()

c = Val(InputBox("请输入长方体的长"))

k = Val(InputBox("请输入长方体的宽"))

g = Val(InputBox("请输入长方体的高"))

End Sub 

Private Sub Command2_Click()

Text1.Text = c * k * g

End Sub

Private Sub Command3_Click()

End

End Sub

 

实验二

 

实验题目1:

在一个窗体上设计一个命令按钮,在命令按钮的单击事件中输入下面的程序代码,并运行程序分析程序的执行结果 

实验题目1源程序代码:

Private Sub Command1_Click()

x = 5

Print x + 13

Print 13 / x

Print 13 \ x

Print 13 Mod x

End Sub

 

实验题目2:

在一个窗体上设计一个命令按钮,在命令按钮的单击事件中输入下面的程序代码,并运行程序分析程序的执行结果。

 

实验题目2源程序代码:

Private Sub Command1_Click()

Print "abcdef" = "abcd"

Print "abcd" > "abc"

Print "46" > "4"

Print "46" & "4"

Print "46" + "4"

Print "abcd" + "abc"

End Sub

  

实验题目3:

编写程序求半径为30的圆的周长、面积和同半径球的体积。

提示:半径不需使用变量,在属性窗口中设置半径文本框的text属性为30,半径值直接用30即可。如周长定义为变量l,则l=2*3.14*30。

实验题目3源程序代码:

Private Sub Command4_Click()

End

End Sub

Private Sub Command5_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

End Sub

Private Sub Form_Load()

r = Val(Text1.Text)

l = 2 * 3.14 * r

s = 3.14 * r * r

v = 4 * 3.14 * r * r * r / 3

Text2.Text = l

Text3.Text = s

Text4.Text = v

End Sub

 

 

实验题目4:

设计程序,要求程序运行时,在文本框中输入两个字符串,单击“交换”命令按钮后,则两个文本框中的内容交换。提示:可以借助第三个文本框实现交换,第三个文本框可以显示或隐藏。 

实验题目4源程序代码:

Private Sub Command1_Click()

Text3.Text = Text1.Text

Text1.Text = Text2.Text

Text2.Text = Text3.Text

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

实验题目5:

在窗体上创建一个命令按钮command1,完成下面操作:在form1的load事件中编写代码,使得窗体的前景色(form1.forecolor=vbred)为红色,窗体的字号为18号(form1.fontsize=18)。在command1的click事件中编写代码,定义4个基本整型变量a,b,c,d。给a赋值为10,b 赋值为3,求a对b整除后的商(c)和余数(d),并将商和余数输出在窗体上(print c)。

实验题目5源程序代码:

Private Sub Command1_Click()

Dim a%, b%, c%, d%

a = 10

b = 3

c = a \ b

d = a Mod b

Print c; d

End Sub

Private Sub Form_Load()

Form1.ForeColor = vbRed

Form1.FontSize = 18

End Sub

 

实验题目6:

设计程序,要求程序运行时,在文本框中输入两个字符串,单击“交换”命令按钮后,则两个文本框中的内容交换。界面设计如第四题的界面。

要求:不允许使用第三个文本框,可以借助一个字符串类型的内存变量作为暂存区。

实验题目6源程序代码:

Private Sub Command1_Click()

Dim S1, S2, St As String

S1 = Text1.Text

S2 = Text2.Text

St = S1: S1 = S2: S2 = St

Text1.Text = S1

Text2.Text = S2

End Sub 

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

 

    实验题目7:

设计程序实现程序登陆功能,当用户名和密码都正确时,显示第二个窗体,隐藏第一个窗体,当输入错误时,显示“你输入错误,请重新输入”。

实验题目7源程序代码:

Private Sub Command1_Click()

If Text1.Text = "rongpanjiao" And Text2.Text = "123" Then

Form1.Hide

Form2.Show

Else

MsgBox "你输入错误,请重新输入"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End If

End Sub

Private Sub Command2_Click()

End

End Sub

 

实验题目8:

在窗体上创建两个标签、三个文本框和两个命令按钮。程序运行后在两个文本框中输入两个两位整数,单击command1后在第三个文本框中生成一个新的数。如输入12和36,新数为2316;输入23和45,新数为3425。

  实验题目8源程序代码:

Private Sub Command1_Click()

Dim s1%, s2%, a%, b%, c%, d%

s1 = Text1.Text

s2 = Text2.Text

a = s1 \ 10

b = s1 Mod 10

c = s2 \ 10

d = s2 Mod 10

Text3.Text = b & c & a & d

End Sub

Private Sub Command2_Click()

End

End Sub

 

实验题目9:

设计程序,输入一个两位数,将它转换为逆序的数。如输入的数为12,转换后的数为21。

提示:将在文本框中输入的数转换为数值型(用Val函数)后存入一个内存变量中,然后将该数逆置,逆置后的数存入第二个文本框中。

实验题目9源程序代码:

Dim num%, ge%, shi%, num2%

num = Val(Text1.Text)

ge = num Mod 10

shi = num \ 10

num2 = ge * 10 + shi

Text2.Text = num2

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

  评论这张
 
阅读(319)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018