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

纪念册~~

 
 
 

日志

 
 

VB实验内容(实验四、五)  

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

  下载LOFTER 我的照片书  |

    实验五

(1)求10!。(用for语句实现)

代码如下:

Private Sub Command1_Click()

Dim i%, s!

     s = 1

For i = 1 To 10

    s = s * i

Next i

    Text1.Text = s

End Sub

 

(2)求1-100的所有能被3整除的整数的和。(用for语句实现)

  代码如下:

Private Sub Command1_Click()

Dim sum, i As Integer

   sum = 0

For i = 0 To 100 Step 3

   sum = sum + i

Next i

   Text1.Text = sum

End Sub

 

(3)  编写程序打印出1—500所有能被7整除的数,要求每行输出5个。(用for语句实现)

代码如下:

Private Sub Command1_Click()

Dim i%, count%

  count = 0

For i = 1 To 500

If i Mod 7 = 0 Then

Print i;

    count = count + 1

If count Mod 5 = 0 Then Print

End If

   Next i

End Sub

 

(4)  编写程序,输入的一个字符串,统计该字符串中各类字符的个数。(用for语句实现)

代码如下:

Private Sub Command1_Click()

Dim s$, c$, a%, b%, e%, d%, i%

a = 0

b = 0

e = 0

d = 0

s = InputBox("请输入一个字符串")

i = 1

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "A" And c <= "Z" Then

a = a + 1

ElseIf c >= "a" And c <= "z" Then

b = b + 1

ElseIf c >= "0" And c <= "9" Then

e = e + 1

Else

d = d + 1

End If

Next i

i = i + 1

Print "大写:"; a

Print "小写:"; b

Print "数字:"; e

Print "其它:"; d

End Sub

 

 (5)输入某学生6门课程的成绩,统计出平均分。(用for语句实现)

代码如下:

Private Sub Command1_Click()

Dim score!, sum!, ave!, i%

i = 1

sum = 0

For i = 1 To 6

score = Val(InputBox("请输入成绩"))

sum = sum + score

Next i

ave = sum / 6

Text1.Text = ave

End Sub

 

(6)编写程序,打印出所有的水仙花数。(用for语句实现)

提示:用循环控制结构,循环控制变量范围为所有的三位数,在循环体内,做是否为水仙花数的判断,是则输出。

代码如下:

Private Sub Command1_Click()

Dim i%, g%, s%, b%

For i = 100 To 999

  b = i \ 100

  s = i \ 10 Mod 10

  g = i Mod 10

If i = b ^ 3 + s ^ 3 + g ^ 3 Then Print i

Next i

End Sub

 

实验四

实验题目1:

设计程序,打印出自己班某周的星期一5、6节有无课,有课是什么课。(要求用IF语句来实现,单周次不是2的倍数)

提示:要求用inputbox函数输入周次,将有无课信息输出在窗体上。

实验题目1源程序代码:

 Private Sub Command1_Click()

Dim a As Integer

    a = Val(Text1.Text)

If a Mod 2 = 0 Then

    Label1.Caption = "无课"

Else

    Label1.Caption = "有课,VB"

End If

End Sub

 

实验题目2:

设计程序,判断从键盘上输入的某个字符为哪类字符。(大写字母、小写字母、数字字符或其他字符)

要求:用块结构IF语句实现。

提示:字符输入在一个文本框中,字符类别信息显示在标签上。将文本框的maxlength属性设置为1,则只能输入一个字符。

实验题目2源程序代码:

Private Sub Command1_Click()

Dim s As String

      s = Text1.Text

 If s >= "A" And s <= "Z" Then

     Label1.Caption = "是大写字母"

 ElseIf s >= "a" And s <= "z" Then

     Label1.Caption = "是小写字母"

 ElseIf s >= "0" And s <= "9" Then

     Label1.Caption = "是数字字符"

 Else

     Label1.Caption = "是其他字符"

End If

End Sub

  

实验题目3:

设计程序求出四个数中的最小数。(提示:用打擂台算法)

实验题目3源程序代码:

Private Sub Command1_Click()

Dim a, b, c, d, min As Integer

  a = Val(InputBox("请输入数据"))

  b = Val(InputBox("请输入数据"))

  c = Val(InputBox("请输入数据"))

  d = Val(InputBox("请输入数据"))

Print "4个数分别是:", a; b; c; d

    min = a

    If min > b Then min = b

    If min > c Then min = c

    If min > d Then min = d

Print "4个数中最小数是:", min

End Sub

 

实验题目4:

设计程序,判断从键盘上输入的某个字符为哪类字符。(大写字母、小写字母、数字字符或其他字符)

要求:用select case语句实现。

提示:字符输入在一个文本框中,字符类别信息显示在标签上。将文本框的maxlength属性设置为1,则只能输入一个字符。

实验题目4源程序代码:

Private Sub Command1_Click()

Dim s As String

  s = Text1.Text

Select Case s

Case "A" To "Z"

   Label1.Caption = "是大写字母"

Case "a" To "z"

   Label1.Caption = "是小写字母"

Case "0" To "9"

   Label1.Caption = "是数字字符"

Case Else

   Label1.Caption = "是其他字符"

End Select

End Sub

 

实验题目5:

设计程序在文本框1中输入0到6之间的整数,在文本框2中显示对应的英文单词。1—星期一;2—星期二;3—星期三;4—星期四;5—星期五;6——星期六;0—星期日

实验题目5源程序代码:

Private Sub Command1_Click()

If Text1.Text = "1" Then

   Text2.Text = "Monday"

End If

If Text1.Text = "2" Then

   Text2.Text = "Tuesday"

End If

If Text1.Text = "3" Then

   Text2.Text = "Wednesday"

End If

If Text1.Text = "4" Then

   Text2.Text = "Thursday"

End If

If Text1.Text = "5" Then

   Text2.Text = "Friday"

End If

If Text1.Text = "6" Then

    Text2.Text = "Saturday"

End If

If Text1.Text = "0" Then

   Text2.Text = "Sunday"

End If

 

实验题目6:

设计一个简单的文本编辑器,可以实现文本的格式化操作。

具体要求如下:

(1)可以设置字号,包括10、20、30号

(2)可以设置字体,包括宋体、隶书、楷体

(3)可以设置字型,包括加粗、倾斜、下划线、删除线

(4)可以设置字的颜色,包括红色、绿色、蓝色

实验题目6源程序代码:

Private Sub Check1_Click()

If Check1.Value = 1 Then

   Text1.FontBold = True

ElseIf Check1.Value = 0 Then

   Text1.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

   Text1.FontItalic = True

ElseIf Check2.Value = 0 Then

   Text1.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

   Text1.FontUnderline = True

ElseIf Check3.Value = 0 Then

   Text1.FontUnderline = False

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

   Text1.FontStrikethru = True

ElseIf Check4.Value = 0 Then

   Text1.FontStrikethru = False

End If

End Sub

Private Sub Option1_Click()

    Text1.FontSize = 10

End Sub

Private Sub Option2_Click()

    Text1.FontSize = 20

End Sub

Private Sub Option3_Click()

    Text1.FontSize = 30

End Sub

Private Sub Option4_Click()

    Text1.FontName = "宋体"

End Sub

Private Sub Option5_Click()

    Text1.FontName = "隶书"

End Sub

Private Sub Option6_Click()

    Text1.FontName = "楷体_gb2312"

End Sub

Private Sub Option7_Click()

    Text1.ForeColor = vbRed

End Sub

Private Sub Option8_Click()

    Text1.ForeColor = vbGreen

End Sub

Private Sub Option9_Click()

    Text1.ForeColor = vbBlue

End Sub

   

 

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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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