VB套题 矩阵
解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文
件名为sjt4.frm。 由于提供的Fun()函数不完整，需添加语句，具体内容：
Function Fun() Sum = 0 For i = 0 To 200 If i Mod 3 = 0 Then Sum = Sum + i End If Next i Fun = Sum
解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个图像框控件，通过其属性窗口将名称设为Image1，BorderStyle属性
设为1，Stretch属性设为True。画三个命令按钮控件，通过其属性窗口将名称分别设为 Command1、Command2、Command3，标题（Caption属性）分别设为“红桃”、 “黑桃”、“清 除”。
请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。 第41套： 1. 基本操作（2小题，每小题15分，共计30分）
注意：下面出现的“考生文件夹”均为%USER%
**********************************************************************
不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮 存储计算结果，否则无成绩。最后，程序按原文件名存盘。
解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文
件名为sjt5.frm。 由于所提供的窗体程序不完整，需添加事件过程。 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Label1的标签，标签的长和高分别 为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示 “等级考试”，并使标签的外观如图所示。运行后的窗体见下图。 注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。
End Function
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw、 outtxt.txt
请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。 ********************************************************************** 3. 综合应用（1小题，计30分）
解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，高（Min属性）设为
300，宽（Width属性）设为2000，BorderStyle属性设为1，对齐格式（Alignment属性）设 为2，标题（Caption属性）设为“等级考试”。
Private Sub Command2_Click() i, 1) For j = 2 To 10 Sum = Sum + a(i, j) Next j s(i) = Int(Sum / 10)
Next i End Sub
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、 out5.dat
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm， 在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即 可计算出 0～200范围内能被3整除的所有整数的和，并在文本框中显示出 来。在窗体的代码窗口中， 已给出了部分程序，其中计算能被3整除的整 数的和的操作在通用过程Fun中实现，请编写该过程的代码。 要求： 请勿改动程序中的任何内容，只在Function Fun()和End Function之间 填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
第38套： 1. 基本操作（2小题，每小题15分，共计30分）
注意：下面出现的“考生文件夹”均为%USER%
**********************************************************************
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
解题思路： 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为Command1。画一个水平滚
动条控件，通过其属性窗口将名称设为HScroll1。 单击命令按钮（即运行Click事件过程），在该Click事件过程中加入语句：
Private Sub Command1_Click() HScroll1.Max = Form1.Width HScroll1.Min = 0 rgeChange = 50 HScroll1.SmallChange = 10
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw 请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。 **********************************************************************
注意：下面出现的“考生文件夹”均为%USER%
在考生文件夹下有一个工程文件sjt5.vbp，界面如图所示，其功能如下： 1）单击“读数据”按钮，则把考生文件夹下文件in5.dat中的12组整数（
其中每组含有10个数，共计120个整数）读到数组a 中； 2）单击“计算”按钮，则对每组数求平均值，并将所求各组数的平均值截
解题思路： 启动Visual Basic系统，创建一个Form1窗体。 该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，距窗体左边(Left属性)
设为500，距窗体顶部（Top属性）设为300，标题（Caption属性）设为“等级考试”，标签 大小自动调整（AutoSize属性）设为True，BorderStyle属性设为1。激活Form1窗体，通过 其属性窗口将标题（Caption属性）设为“设置标签属性”。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw 请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。 **********************************************************************
要求： 去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存 盘。
解题思路： 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文
件名为sjt3.frm。 由于所提供的窗体程序不完整，在“输出平均值”按钮的Private Sub Command1_Click()
注意：下面出现的“考生文件夹”均为%USER%
***********************************************************************
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。 其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20 个整数的平均值。程序运行后，单击命令按钮（名称为Command1，标题为 “输出平均值”），即可求出其平均值，并在窗体上显示出来（如图所示 ）。这个程序不完整，请把它补充完整，并能正确运行。
尾取整后存入s 数组中； 3）单击“显示”按钮，则将所求各组数的平均值显示在文本框Text1中； 4）单击“存盘”按钮则把计算结果存盘。 在给出的窗体文件中已经有了全部控件，且“读数据”、“显示”和“存 盘”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过 程以实现上述功能。 注意：
End Sub 移动水平滚动条的滚动框（即运行Change事件过程），在该Change事件过程中加入语句：
Private Sub HScroll1_Change() Print Me.HScroll1.Value
End Sub
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw 请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。 2. 简单应用（2小题，每题20分，计40分）
（2）在名称为 Form1的窗体上画一个命令按钮和一个水平滚动条，其名称分别 为Command1和HScroll1，编写适当的事件过程。程序运行后，如果单击命 令按钮，则按如下要求设置水平滚动条的属性： Max = 窗体宽度 Min = 0
LargeChange = 50 SmallChange = 10 而如果移动水平滚动条的滚动框，则在窗体上显示滚动框的位置值。 程序的运行情况如图所示。 要求： 不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw 请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。 **********************************************************************
VB题目及详细答案
1. 求100以内的素数。
Private Sub Form_Click() Dim i%, m%For m = 2 To 100a = 0For i = 1 To mIf m Mod i = 0 Thena = a + 1End IfNext iIf a = 2 ThenPrint mEnd IfNext mEnd Sub2. 从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEF”变换成“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 i%, s%s = 0For i = 1 To 200If i Mod 5 = 0 Or i Mod 11 = 0 Thens = s + iEnd If Next iPrint sEnd Sub4. 输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Sub Command1_Click()Dim y%y = Year(Now)If y Mod 4 = 0 And y Mod100 <> 0 Or y Mod 400 = 0ThenMsgBox (y & "年是闰年")ElseMsgBox (y & "年是平年")End IfEnd Sub5. 已知x，y，z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z.Private SubCommand1_Click()Dim x!, y!, z!x = InputBox("input x")y = InputBox("input y")z = InputBox("input z")If x < y Then t = x: x = y: y= tIf x < z Then t = x: x = z: z =tIf y < z Then t = y: y = z: z =tPrint x & "<" & y & "<" & zEnd Sub6、求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。
VB_矩阵运算
VB_矩阵运算建立模块模块中的子过程是为了计算方便而编写的针对于某一重复使用的计算功能而写。
具体过程如下：'---------------矩阵转置的通用过程----------------------------------------Public Sub Matrix_Trans(A, C)Dim i%, j%Dim R1%, C1%On Error Resume NextC1 = UBound(A, 2) - LBound(A, 2) + 1If Err ThenMsgBox "输入的矩阵维数不对！"Exit SubEnd IfR1 = UBound(A, 1) - LBound(A, 1) + 1ReDim C(C1 - 1, R1 - 1)For i = 0 To R1 - 1For j = 0 To C1 - 1C(j, i) = A(i, j)Next jNext iEnd Sub'----------------------------------矩阵转置的通用过程---------------'-------------------------矩阵相乘的通用过程----------------------------------------Public Sub Matrix_Multy(A, B, C)Dim ia%, ib%, ja%, jb%ia = UBound(A, 1) - LBound(A, 1) + 1ja = UBound(A, 2) - LBound(A, 2) + 1ib = UBound(B, 1) - LBound(B, 1) + 1jb = UBound(B, 2) - LBound(B, 2) + 1If ja <> ib ThenMsgBox "输入数据有误！", , "警告"Exit SubEnd IfReDim C(ia - 1, jb - 1) As DoubleFor i = 0 To ia - 1For j = 0 To jb - 1For k = 0 To ja - 1C(i, j) = C(i, j) + A(i, k) * B(k, j)Next kNext jNext iEnd Sub'------------------------矩阵相乘的通用过程----------------------------------------'------------------------------矩阵相加的通用过程--------------------------------------- Public Sub Matrix_Plus(A, B, C) Dim ia%, ib%, ja%, jb%ia = UBound(A, 1) - LBound(A, 1) + 1ja = UBound(A, 2) - LBound(A, 2) + 1ib = UBound(B, 1) - LBound(B, 1) + 1jb = UBound(B, 2) - LBound(B, 2) + 1If ia = ib And ja = jb ThenReDim C(ia, ja) As DoubleFor i = 0 To iaFor j = 0 To jaC(i, j) = A(i, j) + B(i, j)Next jNext iElseMsgBox "输入数据有误！", , "警告"Exit SubEnd IfEnd Sub'-------------------------------矩阵相加的通用过程----------------------------------------'-------线性方程组求解通用过程(高斯约化)-------------------------------- Public Sub MajorInColGuass(A, B, X)Dim i, j, k, t, l, n As IntegerDim Row, Col As IntegerDim Temp As DoubleDim LLL() As DoubleDim SUM As DoubleRow = UBound(A, 1) - LBound(A, 1) + 1Col = UBound(A, 2) - LBound(A, 2) + 1n = UBound(B, 1) - LBound(B, 1) + 1ReDim X(n - 1, 0)ReDim LLL(1 To Row) As DoubleFor i = 0 To Col - 2k = 0For j = i + 1 To Row - 1If Abs(A(j, i)) > Abs(A(i, i)) Thenk = jEnd IfNext jIf k > i ThenFor l = i To Col - 1Temp = A(i, l)A(i, l) = A(k, l)A(k, l) = TempNext lTemp = B(i, 0)B(i, 0) = B(k, 0)B(k, 0) = TempEnd IfFor j = i + 1 To Row - 1LLL(j) = A(j, i) / A(i, i)For l = i To Col - 1A(j, l) = A(j, l) - LLL(j) * A(i, l)Next lB(j, 0) = B(j, 0) - LLL(j) * B(i, 0)Next jNext iX(n - 1, 0) = B(n - 1, 0) / A(n - 1, n - 1)For i = n - 2 To 0 Step -1SUM = 0For j = n - 1 To i + 1 Step -1SUM = SUM + A(i, j) * X(j, 0)Next jX(i, 0) = (B(i, 0) - SUM) / A(i, i)Next iEnd Sub'-------线性方程组求解通用过程(高斯约化)----------------------------------------'--------------------------矩阵相减的通用过程---------------------------------------- Public Sub Matrix_Subtraction(A, B, C)Dim ia%, ib%, ja%, jb%ia = UBound(A, 1) - LBound(A, 1) + 1ja = UBound(A, 2) - LBound(A, 2) + 1ib = UBound(B, 1) - LBound(B, 1) + 1jb = UBound(B, 2) - LBound(B, 2) + 1If ia = ib And ja = jb ThenReDim C(ia, ja) As DoubleFor i = 0 To iaFor j = 0 To jaC(i, j) = A(i, j) - B(i, j)Next jNext iElseMsgBox "输入数据有误！", , "警告"Exit SubEnd IfEnd Sub'------------------------矩阵相减的通用过程----------------------------------------。
VB编程题答案
VB编程题答案（1）选择结构（2）循环结构（3）数组（4）过程1.输⼊3个数，输出最⼤的数2.有⼀元⼆次⽅程：aX2+bX+c=0，依次输⼊a，b，c，判断此⽅程是否有实根详细代码如下：Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As Integera = InputBox("a")b = InputBox("b")c = InputBox("c")If (b * b - 4 * a * c) >= 0 ThenPrint "Yes";ElsePrint "No"End IfEnd Sub3.输⼊⼀个百分制的成绩，若⼤于等于60，则⽤消息框弹出，显⽰“恭喜！成绩通过！”，若⼩于60，则弹出消息框，显⽰“抱歉！成绩没有通过！”4.输⼊⼀年份，判断它是否为闰年，并显⽰有关信息。
（判断闰年的条件是：年份能被4代码如下：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 IfEnd Sub5.输⼊学⽣的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
代码如下：Private Sub Command1_Click() Dim n As SingleDim s As Stringn = Val(InputBox("请你输⼊成绩")) Select Case nCase 90 To 100s = "优秀"Case 80 To 90s = "良"Case 70 To 80s = "中"Case 60 To 70s = "及格"Case 0 To 60s = "不及格"Case Elses = "请你输⼊0⾄100⾃⼰的数字" End SelectMsgBox sEnd Sub代码如下：Private Sub Command1_Click()Dim n As IntegerDim a As StringDim b As Stringn = Int(Rnd * 900 + 100)a = Trim(Str(n))b = ""For I = 3 To 1 Step -1b = b + Mid(a, I, 1)Next IText1.Text = aText2.Text = bEnd Sub7.输⼊两个整数，求它们的最⼤公约数。
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练习题(有答案)(打印)
《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。
4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。
6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
vb考试题库及答案大一
vb考试题库及答案大一一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明语句？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a As Integer答案：C2. VB中，以下哪个是正确的字符串连接操作符？A. +B. ||C. &D. *答案：C3. 在VB中，以下哪个函数用于将字符串转换为数值？A. Val()B. Str()C. CInt()D. CDbl()答案：A4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 Print "Positive"C. If x > 0 Then Print "Positive" Else Print "Negative"D. If x > 0 Then "Positive"答案：C5. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1D. All of the above答案：D6. 在VB中，以下哪个是正确的数组声明语句？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr() As IntegerD. Dim arr As Integer(10)答案：B7. 在VB中，以下哪个是正确的函数声明语句？A. Function myFunction() As IntegerB. Function myFunction As IntegerC. Function myFunction() IntegerD. Function myFunction Integer答案：A8. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)C. Private Sub Form_Click(ByVal sender As Object)D. Private Sub Form_Click(ByVal e As EventArgs)答案：A9. 在VB中，以下哪个是正确的窗体属性？A. CaptionB. TextC. NameD. All of the above答案：D10. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用___________关键字可以声明一个全局变量。
计算机VB语言模拟试题二含答案
模拟试题二一、单选题1. 以下关于Visual Basic 特点的叙述中，错误的是 。
(A) 构成Visual Basic 程序的多个过程没有固定的执行顺序 (B) Visual Basic 程序只能编译运行(C) Visual Basic 是采用事件驱动编程机制的语言(D) Visual Basic 是结构化程序，具备结构化程序的三种基本结构 2. 有程序代码如下:Tex1.Text=" Tex1.Text "则Tex1、Text 、" Tex1.Text "分别代表 。
(A) 对象、值、属性 (B) 对象、方法、属性(C) 对象、属性、值 (D) 属性、对象、值 3. 下面关于对象的描述中， 是错误的。
(A) 在Visual Basic 中，对象所能响应的事件是由系统定义的(B) 对象的任何属性既可以通过“属性”窗口设定，也可以通过程序语句设定 (C) Visual Basic 中允许不同对象具有相同属性和方法 (D) Visual Basic 中的对象具有自己的属性和方法 4. 任何控件共同具有的是 属性。
(A) Text (B) Name (C) ForeColor (D) Caption5. 与数学表达式cd ab3对应 ，不正确的VB 算术表达式是 。
(A) a*b/(3*c*d) (B) a/3*b/c/d (C) a*b/3/c/d (D) a*b/3*c*d 6. InputBox 函数返回值的类型是 。
(A) 整型数值 (B) 字符串 (C) 变体 （D ） 数值或字符串 7. 下面正确的赋值语句是 。
(A) x+y=30 (B) y= *r*r (C) y=x+30 (D) 3y=x 8. 下面程序段运行后，显示的结果是 。
Dim x If x Then Print x Else Print x+1(A)l (B)O (C)-1 (D)显示出错信息9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程，程序运行后，如果在“输入”对话框中输入3，则窗体上显示的是 。
VB矩阵软件设置快速指南
VB矩阵软件设置快速指南系统设置——软件注册矩阵的配置软件需要进行注册，方可以具备上载矩阵数据的功能。
注册方式将软件安装目录所在的硬盘序列号纪录（如图中黄色方框内所示）下来，并将其发邮件至：X@我们将会尽快的将合法的注册号码及时发回给用户（如图中蓝色方框内所示）系统设置——容量设置通过软件的系统设置，用户可以根据需要自主定义矩阵视频输入/输出的大小；音频输入/输出的大小；用户、键盘数量的多少……系统设置——通信设置如果需要使得系统正常的开通，必须要求软件通信设置的正常，其中主要包括机箱地址、通信波特率等。
我们建议用户机箱地址为1，通信波特率为19.2KB。
系统设置——通信设置如果需要使得系统正常的开通，必须要求软件通信设置的正常，其中主要包括机箱地址、通信波特率等。
我们建议用户机箱地址为1，通信波特率为19.2KB。
系统设置——其他输入设置——基本设置通过软件设置，可以定义视频输入的逻辑地址（键盘上的编号）；物理地址（矩阵上的实际端口地址）；前端类型（固定摄像机或快球）……输入设置——字符设置∙VIDEOBLOX矩阵支持中文字符输出功能，用户可根据需要输入24 个中文字符，并可以定义字符在输出信号中的位置输出设置——基本设置∙通过软件设置，可以定义视频输出的逻辑地址（键盘上的编号）；物理地址（矩阵上的实际端口地址）……Sequence设置用户可通过编辑预案可编程逻辑控制（Sequence），来实现对已经发生变化的现场状况智能应对Sequence设置——指令指南软件采用了类比梯形图语言，并借助参数填表实现复杂预案的简单表述。
其常见指令描述如下表命令参数1参数2参数3描述SWITCH输入地址输出地址切换视频输入至视频输出NEXTCAM输出选择下一个视频输入至指定的视频输出DELAY分秒延时指定的时间START Sequence编号开始运行指定SequenceSTOP Sequence编号终止运行指定SequenceCALL Sequence编号开始执行指定Sequence作为子进程，执行完成后返回原SequenceLOOP重复次数循环执行指定次数的ENDLOOP部分Sequence指令ENDLOOP循环结束标志DISPLAY输入地址行编号信息编号在视频显示的指定行里显示指定的信息PTZRCL摄像机地址预置位编号调用指定球机的指定预置位命令参数1参数2参数3描述PTZAUX球机地址球机辅助功能功能状态执行球机的各种辅助功能（参数定义与球机型号有关），如球机速度、预置位等。
VB程式设计题：求二维阵列a（m...
VB程式设计题：求二维阵列a（m...VB程式设计题：求二维阵列a（m,n）中的最大值以及最大值所在的行号和列号，行数m、列数n及阵列元素从键盘输入；Private Sub Command1_Click()Dim a() As Integerm = InputBox("请输入行数m:")n = InputBox("请输入列数n:")ReDim a(m, n)For i = 1 To mFor j = 1 To na(i, j) = InputBox("请输入a(" & i & "," & j & ")")Print a(i, j);Next jPrintNext iMax = a(1, 1)For i = 1 To mFor j = 1 To nIf Max < a(i, j) ThenMax = a(i, j)x = iy = jEnd IfNext jNext iPrintPrint "最大值为" & Max & "在第" & x & "行" & y & "列"End Sub、程式设计，求二维阵列X（m*n）中的最大值以及最大值所在的行号和列号，m、n及阵列元素从键盘输入。
#include<iostream>#include<string>using namespace std;int main(){int **a,m,n,max=0,row=0,col=0;cout<<"输入阵列行列值:";cin>>m>>n;a=new int*[m];for(int i=0;i<m;i++)a[i]=new int[n];for(int i=0;i<m;i++)for(int j=0;j<n;j++){cin>>a[i][j];if(max<a[i][j]){max=a[i][j];row=i;col=j;}}cout<<max<<' '<<row<<' '<<col;for(int i=0;i<m;i++)delete []a[i];delete []a;return 0;}程式设计求一个m*n的二维阵列中所有元素的最大值以及所在的行号和列号，元素可以随机产生int main(){int a[3][4]=各种赋值。