《Visual BASIC程序设计》期末考试编程题复习及答案

1、第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。“改变颜色”按钮代码：Label1.ForeColor = vbRed Label1.Caption = 颜色已经改变 2）单击“改变字体”按钮，标签上的字体改为“黑体”。“改变字体”按钮代码：Label1.FontName = 黑体图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:EX文件夹下。2.设计一个留言薄。新建

2、一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。单击“清除”按钮则清除两个文本框中的内容。“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = Text2.Text = 图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:EX文件夹下。3.设计一个程序，程序界面如图2-7所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框

3、内的文本；当单击“退出”按钮时，结束程序运行。“显示”按钮代码：Text1.Text = 欢迎使用VB! “清除”按钮代码：Text1.Text = “退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:EX文件夹下。第3章4. 设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图3-3所示。最后将工程文件、窗体文件分别以SL3-3.vbp、SL3-3.frm为文件名保存在D:EX文件夹下。图3-3 程序运行界面5.设计一个程序，实现简单计算的功能，运行界面如图

4、3-7所示。最后将工程文件、窗体文件分别以lx3-3.vbp、lx3-3.frm为文件名保存在D:EX文件夹下。图3-7 程序运行界面提示：clear按钮的代码： text1.text= 是双引号,空字符串的意思6.设计一个程序（程序运行界面自定），使用inputbox函数输入某品牌电脑的单价和购买的数量，计算并用msgbox函数输出需付款金额。最后将工程文件、窗体文件分别以lx3-4.vbp、lx3-4.frm为文件名保存在D:EX文件夹下。&为长整行 %为整形7.rnd函数产生一个0，1）的单精度(!)随机数。设计一个程序（程序运行界面自定），用此函数产生一个两位的随机整数并用msgbox

5、函数输出该整数值。最后将工程文件、窗体文件分别以lx3-5.vbp、lx3-5.frm为文件名保存在D:EX文件夹下。63页第4章一、顺序结构8.运行时界面如下：“计算”按钮和“结束”按钮的click事件代码如下：最后将工程文件和窗体文件分别以ceshi3-3-1.vbp和ceshi3-3-1.frm文件名保存，并保存在D:EX文件夹下。9.最后将工程文件和窗体文件分别以ceshi3-4.vbp和ceshi3-4.frm文件名保存，并保存在D:EX文件夹下。10.最后将工程文件和窗体文件分别以ceshi3-5.vbp和ceshi3-5.frm文件名保存，并保存在D:EX文件夹下。11.编制程序

6、，在一个文本框中输入一串字符（长度大于2），单击“处理”按钮时，则取出该字符串的头、尾部各一个字符，合并后显示在第二个文本框中。如输入“ABCDEFG”，则输出“AG”。最后将工程文件和窗体文件分别以ceshi3-6.vbp和ceshi3-6.frm文件名保存，并保存在D:EX文件夹下。二、选择结构12请参考如图4-8所示程序的运行结果，新建一个工程，完成“健康称”程序的设计。具体要求如下：（1）窗体的标题为“健康称”，固定边框。（2）窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在

7、文本框的右边有两个标签，Label3的标题为“cm”，Label4的标题为“kg”。（3）将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。（4）两个文本框均不接受非数字键。（5）单击“健康状况”按钮(Command1)，根据计算公式将相应的提示信息显示在标签Label5中。计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。最后将工程文件、窗体文件分别以lx4-1.vbp、lx4-1.frm为文件名保存在D:EX文件夹下。图4-8 实验题目1运行界面13

8、.编写模拟袖珍计算器的程序，运行界面如图4-9所示。要求如下：输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。输入的数据进行合法检验，当输入出错时，调用MsgBox()提示。Trim是去掉俩边空格最后将工程文件、窗体文件分别以lx4-2.vbp、lx4-2.frm为文件名保存在D:EX文件夹下。图4-9 实验题目2运行界面三、循环结构14.输入任意一个整数N，求1到N之间所有偶数和；(可参考课本p89页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:EX文件夹下。15.输入任意一个整数N，计算N阶乘；5！=

9、5*4*3*2*1(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:EX文件夹下。16.输入任意一个整数N，输出1+1/2+1/3+1/N的计算结果；(可参考课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:EX文件夹下。17.输入任意一个整数N，输出N以内3的倍数之和（即3+6+9）；(可参考课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存

10、在D:EX文件夹下。18.输入任意一个整数N，输出12232N2的计算结果；(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:EX文件夹下。19.输入任意一个整数N，输出N以内的所有5的倍数的积；(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:EX文件夹下。20.输入任意一个整数N，输出的计算结果；(可参考课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-7.vbp、XH4-

11、7.frm为文件名保存在D:EX文件夹下。21.输入任意一个整数N，输出1!+2!+n!的累加和；(可参考课本p90页和课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-8.vbp、XH4-8.frm为文件名保存在D:EX文件夹下。22.编程求出50之内的全部素数；(可参考课本p98页)。最后将工程文件、窗体文件分别以XH4-9.vbp、XH4-9.frm为文件名保存在D:EX文件夹下。23.编写程序打印如下九九乘法表（使用双重循环实现）。(可参考课本p97页)最后将工程文件、窗体文件分别以XH4-10.vbp、XH4-10.frm为文件名保存在D:EX文件

12、夹下。11=1 21=2 22=4 91=1 92=18 99=8124.编一程序，显示所有的水仙花数，如下图。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，153=13+53+33。最后将工程文件、窗体文件分别以XH4-11.vbp、XH4-11.frm为文件名保存在D:EX文件夹下。25.我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题：鸡翁一，值钱五；鸡母一，值钱三;鸡雏三，值钱一。百元买百鸡，问鸡翁、鸡母、鸡雏各几何?意思是：用100元钱买100只鸡，公鸡5元一只，母鸡3元一只，小鸡1元3只；100只鸡中必须包括鸡翁、鸡母和鸡雏。自行设计界面

13、并在图形框中输出百鸡百元的几种解。最后将工程文件、窗体文件分别以XH4-12.vbp、XH4-12.frm为文件名保存在D:EX文件夹下。提示：按题意列出方程组，并己知鸡翁不能超过19只，鸡母不能超过32只。第5章26.编写程序，将随机产生的两位数的一维数组A(10 )中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别以lx6-2.vbp、lx6-2.frm为文件名保存在D:EX文件夹下。27.输入某小组5个同学的成绩，计算总分和平均分(取小数后一位)。本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果。最后

14、将工程文件、窗体文件分别以SZ5-1.vbp、SZ5-1.frm为文件名保存在D:EX文件夹下。28.输入10名学生的成绩，求出最高分和最低分功能要求：通过Array函数输入10个分数；单击“查找”按钮(Command2)后，开始查找最高分和最低分，找到后显示在标签Label1上。最后将工程文件、窗体文件分别以SZ5-2.vbp、SZ5-2.frm为文件名保存在D:EX文件夹下。29. 建立一个文本框控件数组Text1和一个文本框Text2，在控件数组Text1中输入一组数后，把累加值存放在Text2。最后将工程文件、窗体文件分别以SZ5-4.vbp、SZ5-4.frm为文件名保存在D:EX文

15、件夹下。文本框控件数组Text1Text2Text1(0)Text1(1)Text1(2)Text1(3)Command130. 按下图设计窗体，其中一组(共3个)单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小。最后将工程文件、窗体文件分别以SZ5-5.vbp、SZ5-5.frm为文件名保存在D:EX文件夹下。控件数组第7章31.在窗体上放置三个复选框，标题依次为“旅游”、“体育”、“音乐”，另有一个命令按钮，标题为“兴趣”。程序运行后，选中复选框，再点击命令按钮，则在窗体上显示相应的的信息。运行界面如图10-12所示。最后将窗体文件、工程文件分别以LX10-1.f

16、rm、LX10-1.vbp为文件名保存在D:EX文件夹下。图10-12复选框运行界面32.设置如图10-13所示界面所示的程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。最后将窗体文件、工程文件分别以LX10-2.frm、LX10-2.vbp为文件名保存在D:EX文件夹下。图10-13组合框运行界面33.在窗体上画一个名称为HS1的水平滚动条（min=0,max=100）和三个名称分别为C1,C2,C3，标题分别为“左端”，“居中”，“右端”的命令按钮。编程是的程序运行后，单击C1，则滚动框位于滚动条的最左端；单击C2，则滚动框位于滚动条的中间处；单击C3，则滚动框位于滚动

17、条的最右端，运行界面如图10-14所示。最后将窗体文件、工程文件分别以LX10-3.frm、LX10-3.vbp为文件名保存在D:EX文件夹下。图10-14滚动条运行界面34.列表框举例。窗体上添加二个列表框、二个命令按钮，设置完属性后的界面如图10-16 所示。要求:（1）选中列表框中的某一条目，单击命令按钮，将其移动到另一列表框中。 （2）双击列表框中的某一条目，直接将其移动到另一列表框中。完成运行界面所达到的要求，最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:EX文件夹下。 图10-16 题目6的设计界面（其中右图为题目6的运行结果）35.te

18、xt1中, 最后将窗体文件、工程文件分别以SL10-10.frm、SL10-10.vbp为文件名保存在D:EX文件夹下。36.。最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:EX文件夹下。 参考答案1Private Sub Command1_Click()Label1.ForeColor = vbRedLabel1.Caption = 颜色已经改变End SubPrivate Sub Command2_Click()Label1.FontName = 黑体End Sub4Private Sub Command1_Click()Dim n%, a%,

19、b%, c%n = Val(Text1.Text)a = n 100b = (n - a * 100) 10c = n Mod 10Label1.Caption = 百位数: & a & ,十位数: & b & ,个位数 & cEnd Sub5Private Sub Command1_Click()Label1.Caption = +Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Label1.Caption = -Text3.Text = Val(Text1.Text) - Va

20、l(Text2.Text)End SubPrivate Sub Command3_Click()Label1.Caption = *Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Label1.Caption = /Text3.Text = Val(Text1.Text) / Val(Text2.Text)End SubPrivate Sub Command5_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate

21、Sub Command6_Click()EndEnd Sub6Private Sub Form_Load()Dim dj&, shL%, je&dj = Val(InputBox(输入某品牌电脑的单价;)shL = Val(InputBox(输入某品牌电脑的的购买的数量;)je = dj * shLMsgBox 需付款金额; & jeEnd Sub7Private Sub Form_Click()Dim zh%Randomizezh = Int(90 * Rnd) + 10MsgBox 两位的随机整数是: & zhEnd Sub8Private Sub Command1_Click()Dim

22、hh%, mm%, ss%, totals!Dim outstr$hh = Val(Text1)mm = Val(Text2)ss = Val(Text3)totals = hh * 3600 + mm * 60 + ssoutstr = hh & 小时 & mm & 分 & ss & 秒outstr = outstr & vbCrLf & 总计: & totals & 秒MsgBox outstr, , 输出结果End SubPrivate Sub Command2_Click()EndEnd Sub9Private Sub Command1_Click()Dim r!, k!, s!r =

23、 Val(InputBox(请输入圆的半径, 计算圆的周长和面积)k = 2 * 3.14159 * rs = 3.14159 * r * rText1.Text = kText2.Text = smsgbox 计算已完成！, , 计算圆的周长和面积End SubPrivate Sub Command2_Click()endEnd Sub10Dim x%, a%Dim b%, c%x = 36a = Int(x / 10)b = x Mod 10c = b * 10 + aPrint 处理后的数：; cEnd Sub11Private Sub Command1_Click()Dim x As

24、String, y As String x = Text1.Texty = Left(x, 1) + Right(x, 1) Text2.Text = y12Private Sub Command1_Click()Dim s%, t%Dim b%, shuchu$s = Val(Text1.Text)t = Val(Text2.Text)b = s - 105If t b * 1.1 Thenshuchu = 偏胖，注意节食ElseIf t b * 0.9 Thenshuchu = 偏瘦，增加营养Elseshuchu = 正常，继续保持End IfLabel1.Caption = shuchu

25、End SubPrivate Sub Text1_Change()If IsNumeric(Text1) = False Then Text1 = End SubPrivate Sub Text2_Change()If IsNumeric(Text2) = False Then Text12 = End Sub13Private Sub Command1_Click()Dim x!, y!x = Val(Text1)y = Val(Text2)Select Case Trim(Text3)Case +Text4 = x + yCase -Text4 = x - yCase *Text4 = x

26、 * yCase /Text4 = x / yIf y = 0 ThenMsgBox 除数不能为0Text4 = Text2.SetFocusElseText4 = x / yEnd IfEnd SelectEnd Sub三、循环结构14.输入任意一个整数N，求1到N之间所有偶数和；(可参考课本p89页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:EX文件夹下。Private Sub Command1_Click() Dim i, N, s As Integer s = 0 N = val（Text1.Text） Fo

27、r i = 1 To N If i Mod 2 = 0 Then s=s+i End If Next i Text2.Text = s End Sub15.输入任意一个整数N，计算N阶乘；5！=5*4*3*2*1(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:EX文件夹下。Private Sub Command1_Click() Dim i, N, s As Integer s = 1 N = val（Text1.Text） For i = 1 To N s=s*i Next Text2.Text =

28、 sEnd Sub16.输入任意一个整数N，输出1+1/2+1/3+1/N的计算结果；(可参考课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:EX文件夹下Private Sub Command1_Click()Dim i,s,N As IntegerN = Val(Text1.Text)s = 0For i = 1 To ns = s + 1/ i Next iText2.Text = sEnd Sub。输入任意一个整数N，输出N以内3的倍数之和（即3+6+9）；(可参考课本p93页)利用文本框来实现数据的输

29、入和输出。最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在D:EX文件夹下。Private Sub Command1_Click() Dim i, N, s As Integer s = 0 N = val（Text1.Text） For i = 1 To N If i / 3 = Int(i / 3) Then s=s+i End If Next Text2.Text = s End Sub输入任意一个整数N，输出12232N2的计算结果；(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.f

30、rm为文件名保存在D:EX文件夹下。Private Sub Command1_Click()Dim i,s,N As Integers = 1N = Val(Text1.Text)For i = 1 To N s = s *（i * i）Next iText2.Text = sEnd Sub输入任意一个整数N，输出N以内的所有5的倍数的积；(可参考课本p90页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:EX文件夹下。Private Sub Command1_Click() Dim i, N, s As Integer

31、 s = 1 N = val（Text1.Text） For i = 1 To N If i / 5 = Int(i / 5) Then s=s*i End If Next Text2.Text = s End Sub20.输入任意一个整数N，输出的计算结果；(可参考课本p93页)利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-7.vbp、XH4-7.frm为文件名保存在D:EX文件夹下。Private Sub Command1_Click()Dim i,s,N As IntegerN = Val(Text1.Text)s = 0For i = 1 To ns = s

32、+ 1/（i*i） Next iText2.Text = sEnd Sub21Private Sub Command1_Click()Dim i%, s$, p$, n%s = 0p = 1n = Val(Text1.Text)For i = 1 To np = p * is = p * sNextText2.Text = sEnd Sub22Private Sub Form_click()Dim i%, j%, d%, k%For i = 1 To 50 Step 2k = Int(Sqr(i)flag = 0j = 2While j = k And flag = 0 If i Mod j

33、= 0 Then flag = 1 Else j = j + 1 End If Wend If flag = 0 Then d = d + 1 If d Mod 5 Then Print i; Print End If End If Next i End Sub23课本Private Sub Form_Click()Dim s As IntegerForm1.Print Tab(35); 九九乘法表Form1.Print Tab(35); -For i = 1 To 9For j = 1 To 9s = i * jPrint i & x & j & = & s,Next jPrintNext

34、iEnd Sub解法一Private Sub Form_Click()For i = 1 To 9For j = 1 To is = i * jPrint j & x & i & = & s,Next jPrintNext iEnd Sub24 Private Sub Command1_Click()Dim i%, a%, b%, c%For i = 100 To 999a = Int(i / 100)b = Int(i - a * 100) / 10)c = i - a * 100 - b * 10If i = a 3 + b 3 + c 3 Then Print i,NextEnd Sub

35、25Private Sub Command1_Click()Dim i%, j%, k%, n%Picture1.Print Tab(8); 公鸡; Tab(13); 母鸡; Tab(18); 小鸡For i = 1 To 19 For j = 1 To 32 k = 100 - i - j If i * 5 + j * 3 + k / 3 = 100 Then n = n + 1 Picture1.Print Tab(1); 解 & n & :; Tab(8); i; Tab(13); j; Tab(18); k End If Next jNext iEnd Sub16Private Sub

36、 Command1_Click()Dim s!, n%, i%n = Val(Text1.Text) s = o For i = 1 To n s = n + 1 / n 2 Next i Text2.Text = sEnd Sub26Private Sub Form_Click()Dim a(10) As Integer, temp%RandomizeFor i = 1 To 10 a(i) = Int(100 * Rnd) If i = 1 Then Print 原数组为:; Print a(i); ;Next iPrinttemp = a(10)For i = 9 To 1 Step -

37、1 a(i + 1) = a(i)Next ia(1) = temp For i = 1 To 10 If i = 1 Then Print 现数组为：; Print a(i); ;Next i End Sub27Dim d(5) As IntegerDim i%, total!, average!For i = 1 To 5 输入成绩d(i) = Val(InputBox(请输入第 & i & 个学生的成绩, 输入成绩)Next itotal = 0For i = 1 To 5 计算总分 total = total + d(i)Next iaverage = total / 5Print 总

38、分:; totalPrint 平均分; Format(average, #0)End Sub28 Option Base 1Dim score As VariantPrivate Sub Form_Load()Label1.Caption = 单击”查找“按钮(Command2)后,开始查找最高分和最低分score = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83)End SubPrivate Sub Command1_Click()Dim max%, min%max = score(1)min = score(1)For i = 2 To 10If

39、 max score(i) Then min = score(i)End IfNext iLabel1.Caption = 最高分： + Str(max) + Chr(13) + 最低分： + Str(min)End Sub29Private Sub Command1_Click()s = 0For i = o To 3 s = s + Val(Text1(i).Text) Next i Text2.Text = sEnd Sub30 Private Sub Form_Load()Option1(0).Value = TrueText1.FontSize = 12End SubPrivate

40、Sub Option1_Click(Index As Integer)Select Case IndexCase 0Text1.FontSize = 12Case 1Text1.FontSize = 20Case 2Text1.FontSize = 28End SelectEnd Sub31Private Sub Command1_Click()If Check1.Value = 1 Thena = a & 旅游End IfIf Check1.Value = 1 Thena = a & 体育End IfIf Check1.Value = 1 Thena = a & 音乐End IfPrint

41、我的兴趣是 & aEnd Sub32Option ExplicitPrivate Sub Combo1_click()MsgBox 我的兴趣爱好是 & Combo1.Text, , 兴趣爱好End SubPrivate Sub Form_Load()Combo1.AddItem 音乐Combo1.AddItem 美术Combo1.AddItem 体育Combo1.AddItem 旅游Combo1.AddItem 上网End Sub33Private Sub C1_Click()HS1.Value = 0End SubPrivate Sub C2_Click()HS1.Value = 50End

42、 SubPrivate Sub C3_Click()HS1.Value = 100End Sub34Private Sub Form_Load()List1.AddItem 张三List1.AddItem 李四List1.AddItem 王五List1.AddItem 赵六List1.AddItem 孙七List1.AddItem 江河List1.AddItem 毛九End SubPrivate Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Comma

43、nd2_Click()List1.AddItem List2.Text List2.RemoveItem List2.ListIndexEnd SubPrivate Sub List1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub35Option ExplicitDim ss%, mm%, hh%Private Sub Com

44、mand1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() Timer1.Enabled = False Text1.Text = Format(hh, 00) + : + Format(mm, 00) + : + Format(ss, 00) End SubPrivate Sub Timer1_Timer()ss = ss + 1If ss = 60 Thenmm = mm + 1ss = 0If mm = 6

45、0 Thenhh = hh + 1mm = 0End IfEnd IfText1.Text = Format(hh, 00) + : + Format(mm, 00) + : + Format(ss, 00)End Sub36Private Sub Timer1_Timer()If Label1.FontSize 50 ThenLabel1.FontSize = Label1.FontSize * 1.2ElseLabel1.FontSize = 10End IfEnd Sub总黄酮生物总黄酮是指HYPERLINK :/baike.baidu /view/145300.htm黄酮类化合物，是一

46、大类天然产物，广泛存在于植物界，是许多中草药的有效成分。在自然界中最常见的是黄酮和黄酮醇，其它包括双氢黄（醇）、异黄酮、双黄酮、黄烷醇、查尔酮、橙酮、HYPERLINK :/baike.baidu /view/639090.htm花色苷及新黄酮类等。简介近年来，由于HYPERLINK :/baike.baidu /view/53337.htm自由基生命科学的进展，使具有很强的HYPERLINK :/baike.baidu /view/595254.htm抗氧化和消除自由基作用的类黄酮受到空前的重视。类黄酮参与了磷酸与花生四烯酸的代谢、蛋白质的磷酸化、钙离子的转移、自由基的清除、抗氧化活力的增强

47、、氧化还原作用、螯合作用和基因的表达。它们对健康的好处有：（ 1 ） 抗炎症 （ 2 ） 抗过敏 （ 3 ） 抑制细菌 （ 4 ） 抑制寄生虫 （ 5 ） 抑制病毒 （ 6 ） 防治肝病 （ 7 ） 防治HYPERLINK :/baike.baidu /view/43285.htm血管疾病 （ 8 ） 防治血管栓塞 （ 9 ） 防治心与脑血管疾病 （ 10 ） 抗肿瘤 （ 11 ） 抗化学毒物 等。天然来源的生物黄酮分子量小，能被人体迅速吸收，能通过血脑屏障，能时入脂肪组织，进而体现出如下功能：消除疲劳、保护血管、防动脉硬化、扩张毛细血管、疏通微循环、活化大脑及其他脏器细胞的功能、抗脂肪氧化、

48、HYPERLINK :/baike.baidu /view/51192.htm抗衰老。 近年来国内外对HYPERLINK :/baike.baidu /view/62845.htm茶多酚、银杏类黄酮等的药理和营养性的广泛深入的研究和临床试验，证实类黄酮既是药理因子，又是重要的营养因子为一种新发现的营养素，对人体具有重要的生理保健功效。目前，很多著名的抗氧化剂和HYPERLINK :/baike.baidu /view/2721710.htm自由基清除剂都是类黄酮。例如，茶叶提取物和银杏提取物。HYPERLINK :/baike.baidu /view/8845.htm葛根总黄酮在国内外研究和应

49、用也已有多年，其防治动脉硬化、治偏瘫、防止大脑萎缩、降血脂、降血压、防治HYPERLINK :/baike.baidu /view/923.htm糖尿病、突发性耳聋乃至醒酒等不乏数例较多的临床报告。从HYPERLINK :/baike.baidu /view/64741.htm法国松树皮和葡萄籽中提取的总黄酮 碧萝藏 - （英文称 PYCNOGENOL ）在HYPERLINK :/baike.baidu /view/3622.htm欧洲以不同的商品名实际行销应用 25 年之久，并被HYPERLINK :/baike.baidu /view/2398.htm美国 FDA 认可为食用黄酮类营养保健

50、品，所报告的保健作用相当广泛，内用称之为 类维生素 或抗自由基营养素，外用称之为 皮肤维生素 。进一步的研究发现碧萝藏的抗氧化作用比 VE 强 50 倍，比 VC 强 20 倍，而且能通过血脑屏障到达脑部，防治HYPERLINK :/baike.baidu /view/122861.htm中枢神经系统的疾病，尤其对皮肤的保健、年轻化及血管的健康抗炎作用特别显著。在欧洲碧萝藏已作为保健药物，在美国作为膳食补充品（相当于我国的保健食品），风行一时。随着对生物总黄酮与人类营养关系研究的深入，不远的将来可能证明HYPERLINK :/baike.baidu /view/145300.htm黄酮类化合物

51、是人类必需的微营养素或者是必需的食物因子。性状：片剂。 功能主治与用法用量功能主治：本品具有增加脑血流量及冠脉血流量的作用，可用于缓解HYPERLINK :/baike.baidu /view/6632.htm高血压症状（颈项强痛）、治疗HYPERLINK :/baike.baidu /view/124987.htm心绞痛及突发性耳聋，有一定疗效。 用法及用量：口服：每片含总黄酮，每次片，日次。 不良反应与注意不良反应和注意：目前,暂没有发现任何不良反应. 洛伐他丁【中文名称】： 洛伐他丁 【英文名称】： Lovastatin 【化学名称】：(S)-2-甲基丁酸-(1S,3S,7S,8S,8a

52、R)-1,2,3,7,8,8a-六氢-3,7-二甲基 -8-2-(2R,4R)-4-羟基-6氧代-2-四氢吡喃基-乙基-1-萘酯 【化学结构式】： HYPERLINK :/baike.baidu /image/509b9fcb4f73f9b653664f50 洛伐他丁结构式【作用与用途】洛伐他丁胃肠吸收后，很快水解成开环羟酸，为催化胆固醇合成的早期限速酶（HMGcoA还原酶）的HYPERLINK :/baike.baidu /view/2030848.htm竞争性抑制剂。可降低血浆总胆固醇、HYPERLINK :/baike.baidu /view/213032.htm低密度脂蛋白和HYPER

53、LINK :/baike.baidu /view/213039.htm极低密度脂蛋白的胆固醇含量。亦可中度增加HYPERLINK :/baike.baidu /view/988711.htm高密度脂蛋白胆固醇和降低血浆甘油三酯。可有效降低无并发症及良好控制的糖尿病人的HYPERLINK :/baike.baidu /view/468600.htm高胆固醇血症，包括了胰岛素依赖性及非胰岛素依赖性糖尿病。 【 用法用量】口服：一般始服剂量为每日 20mg，晚餐时1次顿服，轻度至中度高胆固醇血症的病人，可以从10mg开始服用。最大量可至每日80mg。 【注意事项】病人既往有肝脏病史者应慎用本药，活动

54、性肝脏病者禁用。副反应多为短暂性的：胃肠胀气、腹泻、便秘、恶心、消化不良、头痛、肌肉疼痛、皮疹、失眠等。洛伐他丁与香豆素抗凝剂同时使用时，部分病人HYPERLINK :/baike.baidu /view/804575.htm凝血酶原时间延长。使用抗凝剂的病人，洛伐他丁治疗前后均应检查凝血酶原时间，并按使用香豆素抗凝剂时推荐的间期监测。他汀类药物他汀类药物(statins)是羟甲基戊二酰辅酶A（HMG-CoA）还原酶抑制剂，此类药物通过竞争性抑制内源性胆固醇合成限速酶(HMG-CoA)还原酶，阻断细胞内羟甲戊酸代谢途径，使细胞内胆固醇合成减少，从而反馈性刺激细胞膜表面(主要为肝细胞)HYPER

55、LINK :/baike.baidu /view/213032.htm低密度脂蛋白(low density lipoprotein，LDL)受体数量和活性增加、使血清胆固醇清除增加、水平降低。他汀类药物还可抑制肝脏合成载脂蛋白B-100，从而减少富含甘油三酯AV、脂蛋白的合成和分泌。 他汀类药物分为天然化合物(如洛伐他丁、辛伐他汀、普伐他汀、美伐他汀)和完全人工合成化合物(如氟伐他汀、阿托伐他汀、HYPERLINK :/baike.baidu /view/758968.htm西立伐他汀、罗伐他汀、pitavastatin)是最为经典和有效的降脂药物，广泛应用于HYPERLINK :/baike

56、.baidu /view/76132.htm高脂血症的治疗。 他汀类药物除具有调节血脂作用外，在HYPERLINK :/baike.baidu /view/2826548.htm急性冠状动脉综合征患者中早期应用能够抑制血管内皮的炎症反应，稳定粥样斑块，改善血管内皮功能。延缓HYPERLINK :/baike.baidu /view/292047.htm动脉粥样硬化（AS）程度、抗炎、保护神经和抗血栓等作用。 结构比较辛伐他汀（Simvastatin）是洛伐他汀（Lovastatin）的甲基化衍化物。 美伐他汀（Mevastatin，又称HYPERLINK :/baike.baidu /view

57、/4072322.htm康百汀，Compactin）药效弱而不良反应多，未用于临床。目前主要用于制备它的羟基化衍化物普伐他汀（Pravastatin）。 体内过程洛伐他汀和辛伐他汀口服后要在肝脏内将结构中的其内酯环打开才能转化成活性物质。 相对于洛伐他汀和辛伐他汀，普伐他汀本身为开环羟酸结构，在人体内无需转化即可直接发挥药理作用，且该结构具有亲水性，不易弥散至其他组织细胞，极少影响其他外周细胞内的胆固醇合成。 除氟伐他汀外，本类药物吸收不完全。 除普伐他汀外，大多与HYPERLINK :/baike.baidu /view/3015601.htm血浆蛋白结合率较高。 用药注意大多数患者可能需要

58、终身服用他汀类药物，关于长期使用该类药物的安全性及有效性的临床研究已经超过10年。他汀类药物的副作用并不多，主要是肝酶增高，其中部分为一过性，并不引起持续HYPERLINK :/baike.baidu /view/289163.htm肝损伤和肌瘤。定期检查肝功能是必要的，尤其是在使用的前3个月，如果病人的肝脏酶血检查值高出正常上线的3倍以上，应该综合分析病人的情况，排除其他可能引起肝功能变化的可能，如果确实是他汀引起的，有必要考虑是否停药；如果出现肌痛，除了体格检查外，应该做血浆肌酸肌酸酶的检测，但是横纹肌溶解的副作用罕见。另外，它还可能引起消化道的不适，绝大多数病人可以忍受而能够继续用药。红

59、曲米窗体顶端窗体底端天然降压降脂食品红曲米 红曲 红曲米又称红曲、红米，主要以籼稻、粳稻、糯米等稻米为原料，用红曲霉菌发酵而成，为 棕红色或紫红色米粒。红曲米是中国独特的传统食品，其味甘性温，入肝、脾、大肠经。早在明代，药学家李时珍所著本草纲目中就记载了红曲的功效：营养丰富、无毒无害，具有健脾消食、活血化淤的功效。上世纪七十年代，日本远藤章教授从红曲霉菌的次生级代谢产物中 发 现 了 能 够 降 低 人 体 血 清 胆 固 醇 的 物 质 莫 纳 可 林 K（ Monacolin-k ） 或 称 洛 伐 他 汀 ， （Lovastatin） ，引起医学界对红曲米的关注。1985 年，美国科学家

60、 Goldstein 和 Brown 进一 步找出了 Monacolin-k 抑制胆固醇合成的作用机理，并因此获得诺贝尔奖，红曲也由此名声大噪。 红曲米的医疗保健功效如下： 降压降脂：研究表明，红曲米中所含的 Monacolin-K 能有效地抑制肝脏羟甲基戊二酰辅酶 还原酶的作用，降低人体胆固醇合成，减少细胞内胆固醇贮存；加强低密度脂蛋白胆固醇的 摄取与代谢，降低血中低密度脂蛋白胆固醇的浓度，从而有效地预防动脉粥样硬化；抑制肝 脏内脂肪酸及甘油三酯的合成，促进脂质的排泄，从而降低血中甘油三酯的水平；升高对人 体有益的高密度脂蛋白胆固醇的水平， 从而达到预防动脉粥样硬化， 甚至能逆转动脉粥样硬