第5章-数据输入输出.pptVIP

计算机基础教学部 5.4 字形 5.4.1　字体类型和大小 1 字体类型：通过FontName属性设置 格式：[窗体.][控件.]|Printer.FontName[=“字体类型”] 例如： FontName=System FontName=Times New Roman FontName=宋体 2 字体大小：通过Fontsize属性设置： 格式：Fontsize[=点数] 例如： Text1.FontSize = 12 计算机基础教学部 5.4 字形 5.4.2　其他属性 1 FontBold属性（粗体字） 格式： FontBold [=Boolean] 2 FontItalic属性（斜体字） 格式： FontItalic [=Boolean] 3 Fontstrikethru属性（加删除线） 格式： Fontstrikethru [=Boolean] 4 Fontunderline属性（加下划线） 格式： Fontunderline [=Boolean] 5 FontTransParent属性（重叠显示） 格式： FontTransParent [=Boolean] 计算机基础教学部 5.4 字形 例：编写程序在窗体上输出多种字体。 Private Sub Form_Click() sample1$ = Microsoft Visual Basic 6.0 sample2$ = 程序设计技巧 FontSize = 20 FontName = system Print system---; sample1$ FontName = modern Print modern---; sample1$ FontSize = 24 FontName = 宋体 FontBold = True Print 宋体---; sample2$ FontName = 隶书 FontItalic = True Print 隶书---; sample2$ FontName = 黑体 FontUnderline = True Print 黑体---; sample2$ End Sub 计算机基础教学部 5.6 应用举例 例：输入三角形的3条边长，计算三角形的面积，在窗体输出该三角形的面积。 分析： 变量定义： 三角形三条边a,b,c,面积area, s ：双精度 数据输入： a = Val(InputBox(请输入第一个边)) b = Val(InputBox(请输入第二个边)) c = Val(InputBox(请输入第三个边)) 计算步骤： 计算s的值： 计算面积： 结果输出：Print area 计算机基础教学部 5.6 应用举例 Private Sub Command1_Click() Dim a As Double, b As Double, c As Double Dim s As Double, area As Double a = Val(InputBox(请输入第一个边)) b = Val(InputBox(请输入第二个边)) c = Val(InputBox(请输入第三个边)) s = (a + b + c) / 2 area = s * (s - a) * (s - b) * (s - c) area = Sqr(area) Print area End Sub 计算机基础教学部 5.6 应用举例 例：设计一个时间转换程序，实现秒到时、分、秒的转换，将结果输出在窗体上。 分析： 变量定义： 时、分、秒 h, m, s： Integer 总秒值 t ： Long 数据输入： t = Val(InputBox(输入总秒值)) 计算： 时的计算：h = t \ 3600 （\整数除， /浮点除） 分的计算：a = t Mod 3600：m = a \ 60 秒的计算：s = a Mod 60 结果输出： Print h 时 m 分 s 秒 计算机基础教学部 5.6 应用举例 Private Sub Command1_Click() Dim t As Long, h As Integer, m As Integer Dim a As Integer, s As Integer t = Val(Inpu