《医药信息技术基础实践指导》答案(作者晏峻峰)

《医药信息技术基础实践指导》作者：晏峻峰练习答案答案由“晓英振辉奇葩计算机”提供（红色加粗是检索词，绿色是备注）Public Class Form1Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClickDim var1 As Integer, var2 As Stringvar1 = 12345var2 = InputBox("输入Var2=", "输入对话框")MsgBox(var2 & Chr(13) + Chr(10) & "var1=" & Str(var1))'MsgBox(var2 & vbCrLf & "var1=" & Str(var1))End SubEnd Class定义不同变量Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As Short ‘短型Dim b As Single ‘单精度Dim c As Integer ‘整型Dim d As DateDim e1 As StringDim f As Boolean ‘判断Dim g As StringDim h As Double ‘双精度Dim i As SingleDim j(4, 3) As Integera = 3.25b = 546.2c = 5383149d = #12/31/2003#e1 = "ABCDEF"f = Falseg = "123456"h = 3.24E+100i = 1.2563E+15j(0, 0) = 456MsgBox(a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & e1 & vbCrLf & f & vbCrLf & g & vbCrLf & h & vbCrLf & i & vbCrLf & j(0, 0))End Sub分析不同表达式，定义并输出结果Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim x21, x22, x23, x24 As SingleDim x25, x27, x28 As BooleanDim x26 As Stringx21 = Sqrt(3 ^ 2 / (2 * 4)) ‘开方x22 = +Abs(0.123 - 3) ‘绝对值x23 = -Sin(30)x24 = Exp(6) + Log(2.135) ‘e的6次方x25 = 89 & 12 <> 8912x26 = "AB" + Str(32.56) + "CD"'x27 = Mid("student", 5) = "ent" And (5 > 2) ‘右边数三位x27 = Microsoft.VisualBasic.Right("student", 3) = "ent" And (5 > 2)x28 = Not (6 > 2) Or (7 < 9)MsgBox(x21 & vbCrLf & x22 & vbCrLf & x23 & vbCrLf & x24 & vbCrLf & x25 & vbCrLf & x26 & vbCrLf & x27 & vbCrLf & x28)End Sub一百以内随机数Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim y As Integery = Int(Rnd() * 100)MsgBox(y)End Sub任意字符串测长度Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim y As StringDim y1 As Integery = "VB程序设计语言"y1 = Len(y)MsgBox(y & "长度为" & y1)End Sub给出字符串查片段位置Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim y As Integery = InStr("abc student", "stu")MsgBox(y)End Sub除去字符串两边空格Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim y As Stringy = Trim(" Visual C ++ ")MsgBox("去除左边空格" & y & "去除右边空格")End Sub测字符串所占字节数Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickDim y As StringDim y1 As Integery = "VB程序设计语言"y1 = Len(y) * 2 ‘字符串长度×2MsgBox(y & " 字节数为" & y1)End Sub字符串反序排列Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim y, y1 As Stringy = "我去资料室查资料"y1 = StrReverse(y)MsgBox(y1)End Sub从字符串中截取字符Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickDim y, y1 As Stringy = "我去资料室查资料"y1 = Mid(y, 3, 3) ‘左边数第三个，数三个MsgBox(y1)End Sub截取字符Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickDim y, y1 As Stringy = "我去资料室查资料"y1 = Mid(y, 7, 2)'y1 = Microsoft.VisualBasic.Right(y, 2)MsgBox(y1)End Sub在字符串中插入空格Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickDim y, y1 As Stringy = "Thisisabook"y1 = Mid(y, 1, 4) & Space(1) & Mid(y, 5, 2) & Space(1) & Mid(y, 7, 1) & Space(1) & Mid(y, 8)MsgBox(y1)End Sub求字母ASCII码Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.ClickDim y As Integery = Asc("Z")MsgBox(y)End Sub计算日期间隔Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.ClickDim y As DateDim y1, y2, y3 As Integery = "2013-1-1"y1 = DateDiff(DateInterval.Month, y, Today())y2 = DateDiff(DateInterval.WeekOfYear, y, Today())y3 = DateDiff(DateInterval.Day, y, Today())MsgBox(y1 & "个月" & y2 & "个星期" & y3 & "天")End Sub字符串转化为数值Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickDim y As StringDim a As IntegerDim y1 As Integery = "42897"y1 = Val(y)a = MsgBox(y1, vbOKCancel)If vbOK = a ThenMsgBox(a)End IfEnd Sub改变数值的输出形式（小数位数）Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickDim y As Singley = 3287.153MsgBox(Format(y, "000.00"))End Sub输出数据（每行四个，数据间隔四格，数值型00000.00，字符型@@@@@@@@，日期型ddddddPrivate Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickDim z1, z2, z3, z4 As SingleDim z5, z6, z7 As StringDim z8 As Datez1 = 45.632z2 = 8246.25z3 = 123.8z4 = 45627z5 = "student"z6 = "permanence"z7 = "teachers"z8 = #4/5/2004#MsgBox(Format(z1, "00000.00") & " " & Format(z2, "00000.00") & " " & Format(z3, "00000.00") & " " & Format(z4, "00000.00") & vbCrLf & Format(z5, "{0,-8}") & " " & Format(z6, "{0,-8}") & " " & Format(z7, "{0,-8}") & " " & Format(z8, "d")) ‘换行End SubEnd ClassIf语句，select语句进行有条件的计算，成绩排名，大小排序Public Class Form1数学公式计算格式，含平方根Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Singlea = InputBox("输入A", "输入数据Y", , 500, 500)b = InputBox("输入B", "输入数据Y", , 500, 500)c = InputBox("输入C", "输入数据Y", , 500, 500)x1 = -b +Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / ax2 = -b - Math.Sqrt(b ^ 2 - 4 * a * c) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) End Sub公式计算Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim x As IntegerDim y As IntegerDim z As Singlex = 5y = 9z = (x ^ 3 + x * y + y ^ 3) / (2 * x * y)MsgBox("(x ^ 3 + x * y + y ^ 3) / (2 * x * y)=" & z)End Sub公式计算，含对数，绝对值Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim x As SingleDim y As Singlex = InputBox("输入x")y = Math.Log(20) + Math.Abs(x - 16)MsgBox("Math.Log(20) + Math.Abs(x - 16)=" & y)End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As SingleDim y As Singlex = InputBox("输入x")y = 0.231 * x + 1.36MsgBox("0.231 * x + 1.36=" & y)End Sub公式计算，角度转换Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickConst g As Single = 9.81Dim v As Single, o As Single, t As Single, s As Singlev = InputBox("输入初速度")o = InputBox("输入角度")t = 2 * v * Math.Sin(o * Math.PI / 180) / gs = v * Math.Sin(2 * o * Math.PI / 180) / gMsgBox("落地所需时间" & t & " 落地时运动的射程" & s)End SubEnd ClassPublic Class Form1If语句，随机函数产生奇，偶数，Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As Integerx = Int(Rnd() * 100)If x Mod 2 = 0 ThenMsgBox(x & "是偶数")ElseMsgBox(x & "是奇数")End IfEnd SubIf语句找出a，b，c中最大最小数Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a As Single, b As Single, c As Single, x As Single, y As Singlea = InputBox("请输入a")b = InputBox("请输入b")c = InputBox("请输入c")If a > b Thenx = ay = bElsex = by = aEnd IfIf c > a Thenx = cElseIf c < b Theny = cEnd IfEnd IfMsgBox("最大数" & x & " 最小数" & y)End SubIf 语句进行有条件的计算Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim t As Single, f As Singlet = InputBox("请输入t")If t < 120 Thenf = 0.06 * t + 2MsgBox("f = 0.06 * t + 2=" & f)Elsef = 0.06 * t * 0.85MsgBox("f = 0.06 * t * 0.85=" & f)End IfEnd SubIf语句排成绩等级Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim x As SingleDim y As Stringx = InputBox("请输入成绩")If x >= 90 Theny = "A"ElseIf x >= 80 Theny = "B"ElseIf x >= 70 Theny = "C"ElseIf x >= 60 Theny = "D"Elsey = "E"End IfMsgBox("成绩" & x & "等级为" & y)End SubSelect语句进行有条件的计算Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim x As Single, y As Singlex = InputBox("请输入x")Select Case xCase Is <= -1y = x - 1Case Is <= 2y = 2 * xCase Is <= 10y = x * (x + 2)Case Elsey = 0End SelectMsgBox("y=" & y)End SubPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim a As String, b As String, c As StringDim x1 As Single, x2 As Single, x As Singlea = InputBox("输入A", "输入数据Y", , 500, 500)b = InputBox("输入B", "输入数据Y", , 500, 500)c = InputBox("输入C", "输入数据Y", , 500, 500)x = b ^ 2 - 4 * a * cIf x >= 0 Thenx1 = -b + Math.Sqrt(x) / 2 / ax2 = -b - Math.Sqrt(x) / 2 / aMsgBox("x1=" & Format(x1, "###.###") & " x2=" & Format(x2, "###.###")) Elsex1 = Math.Sqrt(-x) / 2 / ax2 = -Math.Sqrt(-x) / 2 / aMsgBox("x1=" & -b / 2 / a & x1 & "i x2=" & -b / 2 / a & x2 & "i") End IfEnd SubPrivate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.ClickDim x As Single, y As Singlex = InputBox("请输入x")If x <= -1 Theny = x - 1ElseIf x <= 2 Theny = 2 * xElseIf x <= 10 Theny = x * (x + 2)End IfMsgBox("y=" & y)End SubEnd Class1.计算1/(1*2)+1/(2*3)+...+1/(n*n+1)Public Class Form1Dim a(19) As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i As IntegerDim n As IntegerDim s As Singles = 0n = InputBox("请输入n")For i = 1 To ns = s + 1 / (i * (i + 1))NextMsgBox("s=" & s)End Sub2.10个元素的数据，计算下标为奇数的元素和为偶数的元素和Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a(10) As IntegerDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0For i = 1 To 10InputBox("请输入第" & i & "个数")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下标为奇数的元素和为" & y & "下标为偶数的元素和为" & x) End Sub3.正三角*Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As Stringys = ""r = 1Do While r <= 4c = 10 - r : s = 1y(r) = y(r) & Space(c + s)Do While s <= 2 * r - 1y(r) = y(r) & "*"s = s + 1Loopr = r + 1LoopFor j = 1 To 4ys = ys & y(j) & Chr(10)NextMsgBox(ys)End Sub4.倒三角*Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim r As Integer, s As Integer, c As Integer, y(5) As String, ys As Stringys = ""r = 4Do While r >= 1c = 10 - r : s = 1ys = ys & Space(c + s)Do While s <= 2 * r - 1ys = ys & "*"s = s + 1Loopr = r - 1ys = ys & Chr(10)LoopMsgBox(ys)End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEnd Sub5.随机函数产生0-100间正整数，统计50万元以上的人数Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim s As StringDim i As IntegerDim x As IntegerDim y As Integerx = 0y = 0s = ""For i = 0 To 19a(i) = Int(Rnd() * 100)s = s & a(i) & ","If a(i) > 50 Thenx = x + 1ElseIf a(i) < 10 Theny = y + 1End IfNextMsgBox(s & vbCrLf & "50万元以上的业务人数为" & x & ",10万元以下的业务人数为" & y)End Sub6.20个数据从高到低排序Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click'Dim a(19) As IntegerDim t As IntegerDim i As IntegerDim j As IntegerDim x As StringDim y As Stringx = ""y = ""'For i = 0 To 19' a(i) = Int(Rnd() * 100)' x = x & a(i) & ","'NextFor i = 0 To 19For j = 19 To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i) & ","NextMsgBox(x & vbCrLf & y)End Sub7.8位数的整数，0-9这10个数字出现次数Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim a As IntegerDim b(9) As IntegerDim s As IntegerDim u As StringDim i As IntegerRandomize()a = Int(Rnd() * 90000000 + 10000000)For i = 0 To 7s = Mid(a, i + 1, 1)b(s) = b(s) + 1Nextu = "8位数为：(" & a & ")" & vbCrLfFor i = 0 To 9u = u & i & "出现次数：" & b(i) & vbCrLfNextMsgBox(u)End Sub8.产生20个8位整数Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.ClickDim b(19) As IntegerDim i As IntegerDim s As Strings = ""For i = 0 To 19b(i) = Int(Rnd() * 90000000 + 10000000)s = s & b(i) & vbCrLfNextMsgBox(s)End Sub9.Do while 做第1题，且当1/(n*n+1)<10＾-6才结束计算Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickDim i As IntegerDim t As SingleDim s As Integeri = 1t = 1 / (i * (i + 1))s = 0Do While t >= 0.000001s = s + ti = i + 1t = 1 / (i * (i + 1))LoopMsgBox("s=" & s)End Sub10.Do until ……loopPrivate Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickDim t As SingleDim s As Singlei = 1t = 1 / (i * (i + 1))s = 0Dos = s + ti = i + 1t = 1 / (i * (i + 1))Loop While t >= 0.000001MsgBox("s=" & s)End Sub11.动态数组Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.ClickDim a() As IntegerDim i As IntegerDim n As IntegerDim x As IntegerDim y As Integerx = 0y = 0n = InputBox("请输入数组的数量")ReDim a(n)For i = 1 To na(i) = InputBox("请输入第" & i & "个数")If i Mod 2 = 0 Thenx = x + a(i)Elsey = y + a(i)End IfNextMsgBox("下标为奇数的元素和为" & y & "下标为偶数的元素和为" & x) End Sub12.输入字符串，递减排序Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.ClickDim s As StringDim y As StringDim t As StringDim i As IntegerDim j As IntegerDim l As Integert = ""y = ""s = InputBox("请输入要排序的字符串")l = Len(s)ReDim a(l)For i = 1 To la(i) = Mid(s, i, 1)NextFor i = 1 To lFor j = l To i + 1 Step -1If a(j) < a(j - 1) Thent = a(j)a(j) = a(j - 1)a(j - 1) = tEnd IfNexty = y & a(i)NextMsgBox(s & vbCrLf & y)End Sub13.N阶魔方阵（不会考啦）Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickDim n As IntegerDim i As IntegerDim j As IntegerDim s As StringDim t As StringDim i_0 As IntegerDim j_0 As IntegerDim mfz_bz(9, 9) As StringDim mfz(9, 9) As Stringn = InputBox("请输入魔方阵阶数N")If n < 3 Or n > 9 Or n Mod 2 <> 1 ThenMsgBox("您输入的魔方阵阶数N 不在范围内，请输入3-9之间的奇数") Exit SubEnd If'初始化For i = 1 To 9For j = 1 To 9mfz_bz(i, j) = 0mfz(i, j) = ""Next jNext imfz(1, n \ 2 + 1) = 1mfz_bz(1, n \ 2 + 1) = 1i_0 = 1j_0 = n \ 2 + 1For ysz = 2 To n * nIf mfz(i_0, j_0) > n And (mfz(i_0, j_0) Mod n = 0) Theni = i_0 + 1j = j_0ElseIf i_0 = 1 Theni = nj = j_0 + 1ElseIf j_0 = n Theni = i_0 - 1j = 1Elsei = i_0 - 1j = j_0 + 1End IfIf mfz_bz(i, j) = 1 Theni = i_0 + 1j = j_0End Ifmfz(i, j) = yszmfz_bz(i, j) = 1i_0 = ij_0 = jNext yszMsgBox("魔方阵排列完毕")s = ""For i = 1 To 9For j = 1 To 9t = mfz(i, j)s = s & Format(t, "{0,4}")Nexts = s & vbCrLfNextMsgBox(s)End SubEnd Class1 汽油收费计算的程序窗体Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim t As Integer, f As Single, x As Stringt = Val(TextBox1.Text)f = 7.69 * tx = Str$(f) + "元"Label2.Text = xTextBox1.Focus()End SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadTextBox1.Text = ""Label2.Text = ""End SubEnd Class2 检测体重是否超标的程序Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x As IntegerIf TextBox1.Text = "" ThenTextBox1.Focus() '在文本框1输入身高MsgBox("请输入身高")Exit SubEnd IfIf TextBox2.Text = "" ThenTextBox2.Focus() '在文本框2输入体重MsgBox("请输入体重")Exit SubEnd If'选择性别If RadioButton1.Checked = False And RadioButton2.Checked = False Then '此种情况不会发生MsgBox("请选择被检测者性别")Exit SubEnd IfIf RadioButton1.Checked = True Thenx = Val(TextBox1.Text) - 100 '计算男性体重ElseIf RadioButton2.Checked = True Thenx = Val(TextBox1.Text) - 105 '计算女性体重End If'判断体重是否超标，并显示If Val(TextBox2.Text) > x ThenLabel3.Text = "体重超标，请注意饮食与运动！"ElseLabel3.Text = "体重正常"End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'清除计算体重和超标提示Label3.Text = "" : TextBox1.Text = "" : TextBox2.Text = ""RadioButton1.Checked = False : RadioButton2.Checked = FalseEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEnd '结束工程运行End SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadMe.Show()TextBox1.Focus()End SubEnd Class3医生录入病人信息和病案信息Public Class Form1Dim x As Integer, varstring As StringPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox3.Enabled = FalseButton1.Enabled = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Regular)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickSelect Case TrueCase CheckBox1.Checked = True And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Bold)Case CheckBox2.Checked = True And CheckBox1.Checked = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Italic)Case CheckBox1.Checked And CheckBox2.CheckedTextBox3.Font = New Font("宋体", 10, FontStyle.Bold Or FontStyle.Italic) Case CheckBox1.Checked = False And CheckBox2.Checked = FalseTextBox3.Font = New Font("宋体", 10, FontStyle.Regular)End SelectEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox3.Enabled = TrueTextBox3.Text = TextBox1.Text & TextBox2.TextIf RadioButton1.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton1.TextElseIf RadioButton2.Checked = True ThenTextBox3.Text = TextBox3.Text & RadioButton2.TextEnd IfPrivate Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocusx = Len(TextBox1.Text)If x <> 6 ThenBeep()TextBox1.Text = ""TextBox1.Focus()TextBox3.Clear()TextBox3.Text = "病历号为6位数字"ElseTextBox3.Clear()Button1.Enabled = TrueEnd IfEnd SubPrivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedEnd SubPrivate Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ShownEnd SubEnd Class4、图书馆借书程序Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickListBox1.Items.Add(ComboBox1.Text)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf ListBox1.SelectedIndex = -1 ThenMsgBox("请选择要删除的书!")Exit SubEnd IfListBox1.Items.RemoveAt(ListBox1.SelectedIndex)Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickListBox1.Items.Clear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim num As Integernum = ListBox1.Items.CountFor i = 0 To num - 1If ListBox1.Items(i) = "内科学" Or ListBox1.Items(i) = "外科学" ThenMsgBox("您已经借阅了一本期刊,不能再借阅期刊!")Exit SubEnd IfNext iIf RadioButton1.Checked = True ThenListBox1.Items.Add("内科学")ElseIf RadioButton2.Checked = True ThenListBox1.Items.Add("外科学")End IfEnd SubEnd ClassPublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickListBox1.Items.Add(ComboBox1.Text)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickWhile ListBox1.SelectedIndex > -1ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)End WhileEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickListBox1.Items.Clear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim num As Integernum = ListBox1.Items.CountFor i = 0 To num - 1If ListBox1.Items(i) = "内科学" Or ListBox1.Items(i) = "外科学" ThenMsgBox("您已经借阅了一本期刊,不能再借阅期刊!")Exit SubEnd IfNext iIf RadioButton1.Checked = True ThenListBox1.Items.Add("内科学")ElseIf RadioButton2.Checked = True ThenListBox1.Items.Add("外科学")End IfEnd SubPrivate Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load'设置列表框多项选择ListBox1.SelectionMode = SelectionMode.MultiSimpleEnd SubEnd Class5、门诊诊病开方的应用程序Public Class Form1Dim Var As String, Hx As Integer, Vx As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickVar$ = ComboBox1.Text + ComboBox2.Text + ComboBox3.Text + ComboBox4.TextSelect Case Var$Case Is = "肿痛轻度38度干咳"TextBox1.Text = "咽炎"Case Is = "化脓中度39度早起咳"TextBox1.Text = "扁桃体发炎"Case Is = "化脓重度40度有痰"TextBox1.Text = "肺炎"Case ElseTextBox1.Text = "重选"End SelectEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClickListBox2.Items.Add(ListBox1.Text)End SubPrivate Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick'首先判断列表框中的项是否大于0If (ListBox2.Items.Count > 0) Then'移出选择的项()'ListBox2.Items.Remove(ListBox2.SelectedItem)ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)End IfEnd SubEnd ClassPublic Class Form1用组合框控件，标签，图片框附加图片Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadComboBox1.Items.Add("一")ComboBox1.Items.Add("二")ComboBox1.Items.Add("三")ComboBox1.Items.Add("四")ComboBox1.SelectedIndex = 0End Sub（根据组合框的名称选择图片）Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedSelect Case ComboBox1.SelectedIndexCase 0'PictureBox1.Load("xiamen1.jpg")PictureBox1.Image = My.Resources.xiamen1Case 1'PictureBox1.Load("xiamen2.jpg")PictureBox1.Image = My.Resources.xiamen2Case 2'PictureBox1.Load("xiamen3.jpg")PictureBox1.Image = My.Resources.xiamen3Case 3'PictureBox1.Load("xiamen4.jpg")PictureBox1.Image = My.Resources.xiamen4End SelectEnd SubEnd Class求三角函数的命令按钮事件Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox1.Text = "" '初始化输入文本框Label2.Text = "" '初始化输出标签框End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b As DoubleDim c As String '定义一个可存放部分输出结果的字符串变量c = ""If TextBox1.Text = "" ThenTextBox1.Focus() '如果没有输入任何时间,则强制返回文本框等待输入MsgBox("请输入计算数据") '提示用户输入时间Exit Sub '控制如果没有输入时间,不进行下面的计算,直接结束“计算”按钮的Click事件过程End IfIf RadioButton4.Checked = True Thenb = Val(TextBox1.Text) * Math.PI / 180 '判断是否输入角度?若是,进行弧度转换,否则不转换ElseIf RadioButton5.Checked = True Thenb = Val(TextBox1.Text)End If'判断进行何种计算,并进入对应的计算If RadioButton1.Checked = True Thena = Math.Sin(b)c = "Sin(" & TextBox1.Text & ")=" '将显示何种计算的内容转换为字符串ElseIf RadioButton2.Checked = True Thena = Math.Cos(b)c = "Cos(" & TextBox1.Text & ")=" '将显示何种计算的内容转换为字符串ElseIf RadioButton3.Checked = True Thena = Math.Tan(b)c = "Tan(" & TextBox1.Text & ")=" '将显示何种计算的内容转换为字符串。