VB典型例题
VB编程题经典案例
VB经典案例1输入3个数，输出最大的数X=val(text1)y=val(text2)z=val(text3)if x>=y thenif x>=z then print xelse print zend ifelse if y>=z then print yend if2有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根a=val(text1)b=val(text2)c=val(text3)If b*b-4*a*c>=0 then print “有实根”else print “无实根”end if3输入一个成绩，若大于等于60，则用消息框显示“恭喜！成绩通过！”，若小于60，则弹出消息框显示“抱歉！成绩没有通过！”N=val (text1)if n>=60 then msgbox”恭喜！成绩通过!”else msgbox “抱歉！成绩没有通过！”end if4输入一年份，判断它是否为闰年，并显示有关信息(判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）y=val(text 1)if y mod 4 =0 and y mod 100 = 0 then print “y是闰年”else print y “不是闰年’”end if5输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
If mark >=90 then grade= ‘优’else If mark >=80 then grade =‘良’else If mark >=70 then grade =‘中’else If mark >=60 then grade =‘及格’else grade=”不及格”6随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
VB典型例题解析
典型例题解析一、填空题1.在Visual Basic 中设置或修改一个对象的属性的方法有两种，它们分别是（1）和（2）。
分析：在Visual Basic 中，要想设置或修改一个对象的属性，可以在设计模式下先选中该对象，直接在【属性】窗口中设置或修改对象的属性值。
也可以打开【代码编辑器】窗口，在其中编制命令语句进行对象属性值的设置或修改。
结论：答案应为：（1）在属性窗口设置（2）在代码窗口编程2. Visual Basic控件分为3类，它们分别是标准控件、（1）和（2）< 其中只有（3）是由系统提供的。
分析：在Visual Basic 中，控件分为标准控件、ActiveX控件和可插入对象3 类。
标准控件即内部控件，由系统提供，不能添加删除，包括一些程序设计中最常用的对象。
ActiveX控件是标准控件的扩展资源库，保存在一个外部文件中。
可插入对象实际上是一些其他应用程序的对象，可以将其添加到工具箱作为控件使用。
结论：答案应为：（1）ActiveX控件（2）可插入对象（3）标准控件3.创建第一个按钮控件对象时，系统自动为其“Name属性分配一个名字，该名字为（1）。
分析：在Visual Basic 中，每个控件对象建立的时候，系统会自动分配一个名字，也就是给该对象的“ Name属性赋一个值，如第一个窗体对象“ Name属性值为Form1，第四个文本框对象“ Name属性值为Text4，第N个命令按钮对象“ Name 属性值为Command.结论：答案应为：（1）Command14.为了在运行时把当前路径下的图形文件picturefile.jpg 装入图片框Picture1，所使用的语句为（1）。
分析：可以使用LoadPicture语句，必须先确定图片的位置，在本例中路径为当前路径可以采用默认路径；也可以在Picture1的Picture属性中直接设置打开文件对话框，在对话框中选择图片进行设置。
结论：答案应为：Pictured Picture = LoadPrcture（“ picturefile.jpg ”）5.在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，（1）就相当于其他控件的Caption属性，而（2）就相当于Name i性。
vb48道例题及答案
1.日期Private Sub Form_Click()FontSize = 12MyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "m/d/yy")Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "h-m-s AM/PM")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")Print Tab(2); Format(Date, "dddd,mmmm,dd,yyyy") ' 显示系统当前日期Print Tab(2); Format(Now, "yyyy年m月dd日hh：mm") ' 显示系统当前日期和时间Print FormatDateTime(Now) ' vb6.0新提供的函数End Sub2.输入的内容是否为数字Private Sub Text1_LostFocus()Dim i As IntegerIf Not IsDate(Text1) ThenText2.Text = "错误，再输入！"ElseText1.SetFocusText2.Text = "正确"End IfEnd Sub3.记事本Option ExplicitPrivate Sub Form_Click()Dim intvalintval = Shell("c:\windows\notepad.exe", vbNormalFocus)End Sub4.帐号密码Private Sub Form_Load()txtPas.PasswordChar = "*"txtPas.Text = ""txtNo = ""End SubPrivate Sub txtNo_LostFocus()If Not IsNumeric(txtNo) ThenMsgBox "帐号有非数字字符错误"txtNo.Text = ""txtNo.SetFocusEnd IfEnd SubPrivate Sub cmdOk_Click()Dim I As IntegerIf txtPas.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElsetxtPas.Text = ""txtPas.SetFocusEnd IfElsePrint "输入密码正确"End IfEnd Sub5.计算机考试Option ExplicitDim Num1 As Integer, Num2 As Integer '两个操作数Dim SExp As StringDim Result As Single '计算结果Dim NOk As Integer, NError As Integer '统计计算正确与错误数Private Sub CmdMark_Click()Picture1.Print "----------------------------------"Picture1.Print "一共计算" & (NOk + NError) & " 道题";Picture1.Print "得分" & Int(NOk / (NOk + NError) * 100)End SubPrivate Sub cmdOk_Click()6. '在文本框输入计算结果，按“确定”按钮，在图形框显示正确与否If Val(txtInput) = Result ThenPicture1.Print SExp; txtInput; Tab(10); "√" '计算正确NOk = NOk + 1ElsePicture1.Print SExp; txtInput; Tab(10); "×" '计算错误NError = NError + 1End IftxtInput = "" '下一个表达式生成txtInput.SetFocusForm_LoadEnd SubPrivate Sub Form_Load()'7.通过产生随机数生成表达式Dim NOp As Integer, Op As String * 1 '操作符Randomize '初始化随机数生成器Num1 = Int(10 * Rnd + 1) '产生1-10之间的操作数Num2 = Int(10 * Rnd + 1) '产生1-10之间的操作数NOp = Int(4 * Rnd + 1) '产生1-4之间的操作代码Select Case NOpCase 1Op = "＋"Result = Num1 + Num2Case 2Op = "－"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectSExp = Num1 & Op & Num2 & "="lblExp = SExpEnd Sub8.ＡＣＳ码Private Sub Picture1_Click()Dim asc As Integer, i As IntegerPicture1.Print " ASC码对照表"For asc = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asc); "="; asc;i = i + 1If i = 7 Then i = 0: Picture1.Print '换行Next ascEnd Sub9.统计字母Private Sub Command1_Click()Dim a(1 To 26) As Integer, c As String * 1le = Len(Text1) '求字符串的长度For I = 1 To lec = UCase(Mid(Text1, I, 1)) '取一个字符，转换成大写If c >= "A" And c <= "Z" Thenj = Asc(c) - 65 + 1 '将A~Z大写字母转换成1~26的下标a(j) = a(j) + 1 '对应数组元素加1End IfNext IFor j = 1 To 26 '输出字母及其出现的次数If a(j) > 0 Then Picture1.Print " "; Chr$(j + 64); "="; a(j);Next jEnd Sub10.计算一元二次方程的根Private Sub Command1_Click()Dim a As Single, b As Single, c As SingleDim D As SingleDim x1 As Single, x2 As Singlea = Text1.Text '输入系数a、b、cb = Text2.Textc = Text3.TextD = b * b - 4 * a * c '计算x1 = (-b + Sqr(D)) / (2 * a)x2 = (-b - Sqr(D)) / (2 * a)Label4.Caption = "x1=" + Str(x1) '输出方程的两个根x1和x2Label5.Caption = "x2=" + Str(x2)End Sub11.另一种求根方式Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim D As SingleDim x1 As Single, x2 As Singlea = InputBox("输入系数a：") '输入系数a、b、cb = InputBox("输入系数b：")c = InputBox("输入系数c：")Print Tab(10); "方程"; a; "x^2+"; b; "x+"; c; "的根："D = b * b - 4 * a * c '计算x1 = (-b + Sqr(D)) / (2 * a)x2 = (-b - Sqr(D)) / (2 * a)Print Tab(10); "x1="; Str(x1); '输出方程的两个根x1和x2Print Tab(10); "x2="; Str(x2)End Sub12.IF else求根Private Sub Form_Click()Dim a As Single, b As Single, c As SingleDim D As SingleDim x1 As Single, x2 As Singlea = InputBox("输入系数a：") '输入系数a、b、cb = InputBox("输入系数b：")c = InputBox("输入系数c：")Print Tab(10); "方程"; a; "x^2+"; b; "x+"; c; "的根："D = b * b - 4 * a * c '计算If D < 0 ThenPrint "此方程无实根！"Elsex1 = (-b + Sqr(D)) / (2 * a)x2 = (-b - Sqr(D)) / (2 * a)Print Tab(10); "x1="; Str(x1); '输出方程的两个根x1和x2 Print Tab(10); "x2="; Str(x2)End IfEnd Sub13.排星星Private Sub Form_Click()n = InputBox("请输入n的值（给第一行*定位）")Print Tab(n); "*"Print Tab(n - 1); "***"Print Tab(n - 2); "*****"Print Tab(n - 3); "*******"End Sub14.另一种排星星Private Sub Form_Click()n = InputBox("请输入n的值（给第一行*定位）")Print Tab(n); "*"Print Tab(n - 1); "*"; Spc(1); "*"Print Tab(n - 2); "*"; Spc(3); "*"Print Tab(n - 3); "*"; Spc(5); "*"End Sub15.确定取消Option ExplicitPrivate Sub Form_Click()ClsDim Response As String, a As Integera = MsgBox("Do you want to continue?", vbOKCancel + vbQuestion, "Msgbox 定义")If a = 1 ThenResponse = "确定"ElseResponse = "取消"End IfPrint "你刚才按的是：" & Response & " 键"End Sub16.工作日周末Private Sub Form_Click()Dim d As Integerd = InputBox("input a number:")Select Case dCase 1 To 5Print "今天是：工作日"Case 6, 7Print "今天是：周未"Case Is < 1, Is >= 8MsgBox "输入数据错误"End SelectEnd Sub17.已知ｋ求ＸPrivate Sub Form_Click()Dim k As Integerk = InputBox("请输入K的值")If k <= 10 And k > 0 ThenSelect Case kCase Is <= 2: x = 4Case Is <= 5: x = 3Case Is < 8: x = 0Case Elsex = 1End SelectPrint "k="; k, "x="; xEnd IfEnd Sub18.四个do-while 选择Private Sub Command1_Click()Dim s As Integers = 0: i = 0Do While i < 100i = i + 1: s = s + iLoopPrint "用Do While-Loop："; "i="; i, "s="; s End SubPrivate Sub Command2_Click()Dim s As Integers = 0: i = 0Doi = i + 1: s = s + iLoop While i < 100Print "用Do-Loop While："; "i="; i, "s="; s End SubPrivate Sub Command3_Click()Dim s As Integers = 0: i = 0Do Until i >= 100i = i + 1: s = s + iLoopPrint "用Do Until-Loop："; "i="; i, "s="; s End Sub19.DO-WHILEPrivate Sub Command4_Click()Dim s As Integers = 0: i = 0Doi = i + 1: s = s + iLoop Until i >= 100Print "用Do-Loop Until："; "i="; i, "s="; s End Sub20.循环嵌套九九乘法表Private Sub Command5_Click()Form1.ClsEnd SubPrivate Sub Command6_Click()EndEnd SubPrivate Sub Picture1_Click()Dim se As StringPicture1.Print Tab(35); "九九乘法表"Picture1.Print Tab(35); "-----------"For i = 1 To 9For j = 1 To 9se = i & "×" & j & "=" & i * jPicture1.Print Tab((j - 1) * 9 + 1); se;Next jPicture1.PrintNext iEnd Sub21.求阶乘Private Sub Form_Click()Dim n As Integer, p As Long, i As Integern = InputBox("输入n：")p = 1For i = 1 To np = p * iNext iPrint Str(n) & "!="; pEnd Sub'Private Sub Form_Click()'Rem 用While-Wend循环实现' Dim n As Integer, p As Long, i As Integer' n = InputBox("输入n：")' p = 1: i = 1' While i <= n' p = p * i' i = i + 1' Wend' Print Str(n) & "!="; p''End Sub22.求阶乘和Private Sub Form_Click()Dim n As Integer, s As Long, k As Integer, j As Integer, p As Long n = InputBox("输入项数n：")s = 0For k = 1 To np = 1For j = 1 To kp = p * jNext js = s + pNext kPrint "s="; sEnd Sub23.求三个数中的最大数Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, Amax As Integera = InputBox("输入第一个数")b = InputBox("输入第二个数")c = InputBox("输入第三个数")Amax = aIf b > Amax Then Amax = bIf c > Amax Then Amax = cPrint a; "，"; b; "，"; c; "三个数中最大的数是"; AmaxEnd Sub24.求四个数中的最小数Private Sub Form_Click()Dim c1 As Integer, c2 As Integer, c3 As Integer, Cmin As Integer, Nmin As Integerc1 = InputBox("输入第一个成绩：")c2 = InputBox("输入第二个成绩：")c3 = InputBox("输入第三个成绩：")c4 = InputBox("输入第四个成绩：")Print "四个同学的成绩分别是："; c1; c2; c3; c4PrintCmin = c1: Nmin = 1If c2 < Cmin Then Cmin = c2: Nmin = 2If c3 < Cmin Then Cmin = c3: Nmin = 3If c4 < Cmin Then Cmin = c4: Nmin = 4Print "被淘汰的是第"; Nmin; "号选手，其成绩是"; Cmin; "分"End Sub25.求两个自然数的最大公约数和最小公倍数Private Sub Form_Click()Dim m As Integer, n As Integer, m1 As Integer, r As Integer, DYS As Integer, XBS As Integerm = InputBox("输入第一个自然数：")n = InputBox("输入第二个自然数：")m1 = m: n1 = nPrint "自然数"; m; "和"; n; "的"If n1 > m1 Thentemp = n1: n1 = m1: m1 = tempEnd Ifr = m1 Mod n1Do Until r = 0m1 = n1: n1 = rr = m1 Mod n1LoopDYS = n1XBS = m * n / DYSPrint "最大公约数是："; DYSPrint "最小公倍数是："; XBSEnd Sub26.找出100以内所有素数Private Sub Form_Click()Dim i As Integer, m As Integer, n As IntegerFor m = 2 To 100For i = 2 To m - 1If m Mod i = 0 Then Exit ForNextIf i >= m ThenPrint m,n = n + 1 'n是找到素数的计数器If n Mod 5 = 0 Then Print ' 当n是5的倍数时换行End IfNext mEnd Sub27.求正弦函数值Private Sub Form_Click()Dim x As Single, s As SingleDim p As Single, f As Single, t As SingleDim i As Integer, j As Integerx = InputBox("输入x：")i = 1: s = xDop = 1: f = 1: t = 1i = i + 1: j = 1Dop = p * xf = f * jj = j + 1Loop Until j > 2 * i - 1t = p / fs = s + (-1) ^ (i - 1) * tLoop Until Abs(t) < 0.00001Print "sin("; x; ")="; sEnd Sub28.求N个学生的平均成绩Private Sub Form_Click()Dim G As Single, Ave As SingleDim N As Integer, TotalG As SingleN = 0: TotalG = 0100G = InputBox("请输入一个成绩（-1结束）")If G = -1 Then GoTo qeIf G >= 0 And G <= 100 ThenTotalG = TotalG + GN = N + 1ElseMsgBox "输入数据错误！请重新输入。
VB编程题代码43例
VB编程题代码43例1、求100以内的素数。
Private Sub Form_Click()Dim i%, j%For i = 2 To 100For j = 2 To i - 1If i Mod j = 0 Then Exit ForNext jIf j = i Then Print iNext iEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Command1_Click()Dim a$, I%, c$, d$, n%a = InputBox$("输入字符串")n = Len(a)For I = 1 To Int(n \ 2)c = Mid(a, I, 1)Mid(a, I, 1) = Mid(a, n - I + 1, 1)Mid(a, n - I + 1, 1) = cNext IPrint aEnd Sub3、计算0~200之间所有能被11或5整除的数之和Private Sub Form_Click()Dim n%, i%n = 0For i = 1 To 200If i Mod 11 = 0 Or i Mod 5 = 0 Thenn = n + iEnd IfNext iPrint nEnd Sub4、输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年数")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenMsgBox (y & "年是闰年")ElseMsgBox (y & "年是平年")End If5、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z。
vb考试大题及答案
vb考试大题及答案VB考试大题及答案一、编写一个VB程序，实现以下功能：1. 计算并显示一个整数的平方根。
2. 如果输入的不是整数，则弹出对话框提示错误。
答案：```vbOption ExplicitPrivate Sub Command1_Click()Dim num As DoubleDim result As DoubleDim strInput As StringstrInput = InputBox("请输入一个整数")If IsNumeric(strInput) Thennum = Val(strInput)If num < 0 ThenMsgBox "负数没有平方根"Elseresult = Sqr(num)MsgBox "平方根为: " & resultEnd IfElseMsgBox "输入错误，请输入一个整数"End IfEnd Sub```二、设计一个VB程序，实现以下功能：1. 通过文本框输入一个字符串。
2. 统计字符串中每个字符出现的次数，并在列表框中显示。
答案：```vbOption ExplicitPrivate Sub Command1_Click()Dim strInput As StringDim strChar As StringDim i As IntegerDim count As IntegerstrInput = Text1.TextFor i = 1 To Len(strInput)strChar = Mid(strInput, i, 1)count = 0For j = 1 To Len(strInput)If Mid(strInput, j, 1) = strChar Then count = count + 1End IfNext jIf count > 0 ThenList1.AddItem strChar & ": " & countEnd IfNext iEnd Sub```三、编写一个VB程序，实现以下功能：1. 通过单选按钮选择一个颜色（红、绿、蓝）。
最新VB经典例题13道(附答案)
V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
vb考试试题及答案
vb考试试题及答案VB考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中的哪个函数可以用来获取当前系统时间？A. Now()B. Date()C. Time()D. All of the above答案：D3. 在VB中，以下哪个选项是正确的循环结构？A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D4. VB中，以下哪个选项是正确的条件判断语句？A. If...ThenB. Select...CaseC. Both A and BD. None of the above答案：C5. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C6. VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的事件处理程序？A. Sub Form_Load()B. Sub Form_Click()C. Both A and BD. None of the above答案：C8. VB中，以下哪个选项是正确的控件？A. LabelB. TextBoxC. Both A and BD. None of the above答案：C9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Both A and BD. None of the above答案：C10. VB中，以下哪个选项是正确的错误处理语句？A. On Error GoToB. On Error Resume NextC. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用语句_________。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
(完整版)vb实用案例50例
实验报告11实验报告2：实验题目1：设计窗体。
参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。
提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。
参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。
实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。
vb经典考试题及答案
vb经典考试题及答案VB经典考试题及答案1. 题目：以下哪个选项是中声明变量的正确方式？A. Dim myVarB. Dim myVar As IntegerC. Dim myVar = 10D. Dim myVar As Integer = 10答案：B2. 题目：在中，如何将字符串转换为小写？A. str.ToLower()B. str.ToLowercase()C. str.ToLowerCase()D. str.tolower()答案：A3. 题目：中，下列哪个关键字用于定义一个类？A. ClassB. StructureC. InterfaceD. Module答案：A4. 题目：在中，下列哪个方法用于获取字符串的长度？A. LengthB. SizeC. CountD. Length()答案：A5. 题目：如何声明一个的事件？A. Event MyEvent As EventHandlerB. Declare Event MyEventC. Event MyEvent()D. Declare MyEvent As EventHandler答案：A6. 题目：在中，下列哪个选项是正确的继承语法？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass As MyBaseClassD. Inherits MyBaseClass MyBaseClass答案：A7. 题目：在中，下列哪个关键字用于捕获所有未处理的异常？A. TryB. CatchC. FinallyD. Throw答案：B8. 题目：在中，如何声明一个只读属性？A. ReadOnly Property MyPropertyB. Property MyProperty As TypeC. ReadOnly Property MyProperty As TypeD. Property MyProperty As Type ReadOnly答案：C9. 题目：在中，下列哪个选项是正确的方法重载声明？A. Sub MyMethod()B. Sub MyMethod(ByVal x As Integer)C. Sub MyMethod(ByVal x As Integer, ByVal y As Integer)D. All of the above答案：D10. 题目：在中，下列哪个关键字用于定义一个结构体？A. StructureB. ClassC. InterfaceD. Module答案：A11. 题目：在中，如何声明一个枚举类型？A. Enum MyEnumB. Type MyEnumC. Const MyEnumD. Define MyEnum答案：A12. 题目：在中，如何声明一个委托？A. Delegate MyDelegate As ActionB. Delegate MyDelegateC. Function MyDelegate()D. Sub MyDelegate()答案：B13. 题目：在中，下列哪个关键字用于定义一个接口？A. InterfaceB. ClassC. StructureD. Module答案：A14. 题目：在中，如何声明一个数组？A. Dim myArray() As IntegerB. Dim myArray As Integer()C. Dim myArray As IntegerD. Dim myArray As Integer[10]答案：A15. 题目：在中，如何使用LINQ查询一个数组？A. From item In myArray Select itemB. For Each item In myArrayC. For item In myArrayD. All of the above答案：A。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1. 文本框Multiline属性需改为true滚动条才能起作用Private Sub Command1_Click()Text1.Text = ""End SubPrivate Sub Command2_Click()If Text1.SelLength = 0 ThenMsgBox "请选择内容"ElseText1.SelText = ""End IfEnd SubPrivate Sub Command3_Click()If Command3.Caption = "文本框只读" Then Text1.Locked = TrueCommand3.Caption = "解除锁定"ElseText1.Locked = FalseCommand3.Caption = "文本框只读"End IfEnd SubPrivate Sub Command4_Click()EndEnd Sub2.Private Sub Command1_Click()m = Val(Text1.Text)a = m \ 3600b = (m - a * 3600) \ 60c = m - a * 3600 - b * 60Text2.Text = Str(a)Text3.Text = Str(b)Text4.Text = Str(c)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = "" End SubPrivate Sub Command3_Click() EndEnd Sub3.Private Sub Command1_Click() List2.ClearEnd SubPrivate Sub Command2_Click() List2.RemoveItem List2.ListIndex End SubPrivate Sub Form_Load()For i = 0 To Screen.FontCount List1.AddItem Screen.Fonts(i) Next iFor i = 8 To 20List3.AddItem iNext iFor i = 22 To 72 Step 2List3.AddItem iNext iEnd SubPrivate Sub List1_Click()List2.AddItem List1.TextEnd SubPrivate Sub List2_Click()Label4.FontName = List2.Text End SubPrivate Sub List3_Click()Label4.FontSize = List3.Text End Sub4.Private Sub Command1_Click() List1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()List2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command3_Click()List2.ClearEnd SubPrivate Sub List1_Click()List2.AddItem List1.TextEnd Sub5.(1)Private Sub Command1_Click()For i = 1 To 9For j = i To 9Picture1.Print Tab((i - 1) * 10 + (j - i) * 10); Trim(Str(i)); "*"; Trim(Str(j)); "="; Trim(Str(i * j));Next jPrintNext iEnd Sub(2)Private Sub Command1_Click()For i = 1 To 9For j = 1 To iPicture1.Print Tab((j - 1) * 10); Trim(Str(i)); "*"; Trim(Str(j)); "="; Trim(Str(i * j));Next jPrintNext iEnd Sub(3)Private Sub Command1_Click()For i = 1 To 9For j = 1 To 10 - iPicture1.Print Tab((j - 1) * 10); Trim(Str(i)); "*"; Trim(Str(j)); "="; Trim(Str(i * j));Next jPrint Next iEnd Sub16.Option Base 1Private Sub Form_Click()Dim a(5, 5) As IntegerRandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 100)Print a(i, j),Next jPrintNext iPrintPrint "主对角线：", a(1, 1), a(2, 2), a(3, 3), a(4, 4), a(5, 5), a(1, 5), a(2, 4), a(4, 2), a(5, 1)PrintFor i = 1 To 5Print "第"; Trim(Str(i)); "行元素的和：", Sum = 0For j = 1 To 5Sum = Sum + a(i, j)Next jPrint SumNext iPrintPrint "交换后数组为："For j = 1 To 5t = a(1, j)a(1, j) = a(3, j)a(3, j) = tNext jFor i = 1 To 5For j = 1 To 5Print a(i, j),Next jPrintNext iEnd Sub7.Dim n%Private Sub Form_Click()Print 1; 1;For i = 3 To nPrint Fibonacci(i);Next iEnd SubPrivate Sub Form_Load()n = InputBox("请输入n的值")End SubPublic Function Fibonacci(ByVal n As Integer) As LongIf n = 1 Or n = 2 ThenFibonacci = 1ElseFibonacci = Fibonacci(n - 1) + Fibonacci(n - 2) End IfEnd Function8.Dim n%Private Sub Form_Click()f1 = 1f2 = 1Print 1; 1;For i = 3 To nf3 = f1 + f2Print f3;f1 = f2f2 = f3Next iEnd SubPrivate Sub Form_Load()n = InputBox("请输入n的值：")End Sub9.Dim a$ Private Sub bold_Click()Text1.FontBold = TrueEnd SubPrivate Sub clean_Click()Text1.Text = ""End SubPrivate Sub display_Click()Text1.Text = Text1.Text & aEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Font20_Click()Text1.FontSize = 20End SubPrivate Sub input_Click()a = InputBox("请输入一段文字：") End SubPrivate Sub italic_Click()Text1.FontItalic = TrueEnd SubPrivate Sub normal_Click()Text1.FontBold = FalseText1.FontItalic = FalseText1.FontUnderline = FalseEnd SubPrivate Sub under_Click()Text1.FontUnderline = TrueEnd Sub10.Private Sub colr_b_Click()Text1.ForeColor = vbBlackEnd SubPrivate Sub colr_g_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub colr_r_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub colr_y_Click()Text1.ForeColor = vbYellowEnd Sub11.标准模块代码窗体代码Dim n%Private Sub Command1_Click(Index As Integer)For i = 1 To nPrint Tab(((i - 1) Mod 4) * 10); Fibonacci(i);If i Mod 4 = 0 Then PrintNext iPrintEnd SubPrivate Sub Command2_Click()Print "数列的第"; Trim(Str(n)); "项是f("; Trim(Str(n)); ")="; Fibonacci(n)End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()n = InputBox("请输入n的值：")End Sub12.Private Sub Command1_Click()List1.AddItem Text1.TextText1.Text = ""Text1.SetFocus End SubPrivate Sub Command2_Click() List2.AddItem List1.TextLabel3.Caption = Label3.Caption + 1 Command4.Enabled = TrueEnd SubPrivate Sub Command3_Click() List2.RemoveItem List2.ListIndex Label3.Caption = Label3.Caption - 1 Command3.Enabled = FalseEnd SubPrivate Sub Command4_Click() Text1.Text = ""List2.ClearCommand1.Enabled = False Command3.Enabled = False Command4.Enabled = FalseText1.SetFocusLabel3.Caption = 0End SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub List1_Click() Command2.Enabled = TrueEnd SubPrivate Sub List2_Click() Command3.Enabled = TrueEnd SubPrivate Sub Text1_Change()If Text1.Text = "" Then Command1.Enabled = FalseElseCommand1.Enabled = TrueEnd IfEnd Sub。