【vb精品源码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了vb精品源码-国家计算机二级考试VB实例源码(内部资料) - 计算机等级的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
课前体验 Private Sub Form_Click For i 1 To 10 For j 1 To i Print quot quot Next j Print Next i End Sub【例 3-1】 Private Sub Form_Click c1 Chr13 Chr10 msg1 quot请输入您的名字: quot msg2 quot输入后按回车键quot msg3 quot或单击“确定”按钮quot msg msg1 c1 msg2 c1 msg3 name InputBoxmsg quotInputBox 函数示例quot quot张三quot Print nameEnd Sub【例 3-2】 Private Sub Form_Click Msg1”Are you Continue to” msg2”Operation Dialog Box” rMsgBoxmsg134msg2 Print r End Sub【例 3-3】编写程序,用 MsgBox 函数判断是否继续执行。
Private Sub Form_Click msg quot请确认此数据是否正确quot Title quot数据检查对话框quot x MsgBoxmsg 19 Title If x 6 Then Print x x ElseIf x 7 Then Print quot请重新输入quot End If End Sub【例 3-5】 Private Sub Form_Click Print: Print FontName quot隶书quot FontSize 16 Print quot 姓名quot Tab8 quot年龄quot Tab16 quot职务quot Print Tab24 quot单位quot Tab32 quot籍贯quot Print Print quot吴大明quot Tab8 25 Tab16 quot职员quot Tab24 quot人事科quot Tab32 quot北京quotEnd Sub 【例 3-6】Private Sub Form_Click X InputBoxquot请输入成绩quot quot学生成绩录入quot quot00quot Print xEnd Sub【例 3-7】 Private Sub Form_Click Dim x As Single y As Single xInputBox“请输入 x 的值” If xgt0 Then y1 ElseIf x0 Then y0 Else y-1 Print “x” x ”y” yEnd Sub【例 3-8】 Private Sub Form_Click Dim msg UserInput msg quot请输入一个字母或 0~9 之间的数字.quot UserInput InputBoxmsg ‘输入一个字母或数字 If Not IsNumericUserInput Then ‘判断是否是数字 If LenUserInput 1 Then ‘不是数字时,判断输入的字符串长度是否为 1 Select Case AscUserInput ‘判断输入字母的 ASCII 码值 Case 60 To 90 在 60-90 之间为大写字母 msg quot你输入的是一个大写字母quot msg msg amp ChrAscUserInput amp quot。
quot Case 97 To 122 小写字母 msg quot你输入的是一个小写字母quot msg msg amp ChrAscUserInput amp quot。
quot Case Else msg quot你没有输入字母或数字.quot End Select End If Else Select Case ValUserInput 将输入的数值型字符转换为数值 Case 1 3 5 7 9 如果是奇数 msg UserInput amp quot 是一个奇数。
quot Case 0 2 4 6 8 如果是偶数 msg UserInput amp quot 是一个偶数。
quot Case Else 出界 msg quot你输入的数字不在 0~9 范围内quot End Select End If MsgBox msgEnd Sub【例 3-8】 Private Sub Form_Click Dim msg UserInput msg quot请输入一个字母或 0~9 之间的数字.quot UserInput InputBoxmsg ‘输入一个字母或数字 If Not IsNumericUserInput Then ‘判断是否是数字 If LenUserInput 1 Then ‘不是数字时,判断输入的字符串长度是否为 1 Select Case AscUserInput ‘判断输入字母的 ASCII 码值 Case 60 To 90 在 60-90 之间为大写字母 msg quot你输入的是一个大写字母quot msg msg amp ChrAscUserInput amp quot。
quot Case 97 To 122 小写字母 msg quot你输入的是一个小写字母quot msg msg amp ChrAscUserInput amp quot。
quot Case Else msg quot你没有输入字母或数字.quot End Select End If Else Select Case ValUserInput 将输入的数值型字符转换为数值 Case 1 3 5 7 9 如果是奇数 msg UserInput amp quot 是一个奇数。
quot Case 0 2 4 6 8 如果是偶数 msg UserInput amp quot 是一个偶数。
quot Case Else 出界 msg quot你输入的数字不在 0~9 范围内quot End Select End If MsgBox msgEnd Sub【例 3-10】 Sub Form_Click