VB考试练习题上机操作
第一部分
1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作:
①随机产生20个0到1000的整数,将其放入一个一维数组中
②求出所有元素的平均值,并显示在窗体上(如下图所示)
2 请在名称为Form1的窗体上添加一个名称为Text1的文本框与一个名称为C1、标题为"转换"的命令按钮,如下图所示。在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其她字符不变。
3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作:
①随机产生30个0～1000的整数,将其放入一个一维数组中
②求出其中的最大值,并显示在窗体上。
4 请设计如下图所示窗体界面。程序运行时,在选中一个或两个复选框与一个单选按钮时,单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。
5 在名称为Form1的窗体上添加一个名称为Text1的文本框;添加两个标题分别为"对齐方式"、"字体",名称分别为Fm1、Fm2的框架;在Fm1框架中添加三个单选按钮,标题分别为"左对齐"、"居中"、"右对齐",名称分别为Opt1、Opt2、Opt3;在Fm2框架中添加两个单选按钮,标题分别为"宋体"、"黑体",名称分别为Opt4、Opt5。
要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的内容实现相应的操作(如图所示)。
6 请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。请编写程序完成上述功能。
7 在窗体上添加两个文本框与三个标签,设置它们的属性,达到下图效果。程序运行时,在第一个文本框输入一串字符,在第二个文本框中输入一个字符,然后单击"统计"命令按钮,统计第二个文本框中字符(大小写被认为就是不同的字母)在第一个文本框中出现的次数,统计结果在标签Label3中显示。
8 在窗体上添加一个文本框与一个命令按钮。程序运行后,单击命令按钮,即可计算出0～200范围内能被3或7整除的所有整数的与,并显示在文本框中。程序运行界面如下图所示。
9 请设计如下图所示界面(文本框名称为:Txt1,按钮名称为:Cmd1)。程序运行时在文本框中输入字符串,点击命令按钮,判断文本框中的字符串就是否就是回文,将判断结果显示在窗体上。所谓回文就是指字符串正序与逆序的结果相同,如“aBCCBa ”就是回文,“aBCcBa ”不就是回文。
10 编程实现求!n 1......3121!11++++=！！Sum (n 为小于等于20的整数)。程序运行界面如下图所示。程序运行时,在文本框中输入n 的值,点击“计算”命令按钮,将计算结果显示在标签上。
第二部分
1 已知在同一个笼子里有总数M只鸡与兔,鸡与兔的总脚数为N只,编程求出鸡与兔各有多少只。要求:程序运行后,在两个文本框中分别输入M与N的值,单击“计算”命令按钮,在两个标签框中分别输出鸡与兔的数量。程序运行界面如下图。提示:N≥2×M的偶数。
2 若一个3位正整数中各位数字的立方与等于该数字本身,则该数称之为“水仙花数”。例如153就是水仙花数,因为15
3 = 1*1*1 + 5*5*5 + 3*3*3。编程求出100～999之间所有的“水仙花数”。要求:程序运行后,单击“查找”按钮,在窗体上显示找到的“水仙花数”。程序运行界面如下图。
3 编写程序,要求程序运行后,单击“开始”按钮,随机产生20个学生的成绩(0～100的整数),并在左边图片框中输出 (一行5个成绩),并在右边图片框中输出平均分与及格的人数,程序运行界面如下图。
4 编写程序实现:程序运行时,单击窗体则显示如下图所示的图案。
VB上机综合测试题(十五套)
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
计算机二级VB考试题及答案
计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If
Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1
Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)
VB考试题库,二级习题(含答案)
V B考试题库,二级习题 (含答案) https://www.360docs.net/doc/1e9751073.html,work Information Technology Company.2020YEAR
VB考试一 1、能够获得一个文本框中被选取文本的内容的属性是______。 A：SelStart B：SelLength C：SelText D：Text 参考答案：C 2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。 A：Text1.Enabled = False B：Text1.Hide C：Text1.Clear D：Text1.Visible = False 参考答案：D 3、对于语句 If x=1 Then y=1, 下列说法正确的是____。 A： x=1和y=1 均为赋值语句 B： x=1和y=1 均为关系表达式 C： x=1为赋值语句，y=1为关系表达式 D： x=1为关系表达式，y=1 为赋值语句 参考答案：D 4、以下变量名中，______是不符合Visual Basic的命名规范的。 A：_mnu_Open_234 B：Abc901 C：price_ D：K 参考答案：A 5、MsgBox 函数返回值的类型是__________。 A：数值或字符串 B：字符串 C：变体 D：整型数值 参考答案：D 6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。 A：进入中断模式 B：进入运行模式 C：进入设计模式 D：不用进入任何模式 参考答案：A 7、设a=6，则执行 x=IIF(a>5,-1,0) 后，x的值为______。 A：-1 B：6 C：0 D：5 参考答案：A 8、可以同时删除字符前导和尾部空白的函数是______。 A：Mid B：Rtrim C：Trim D：Ltrim 参考答案：C 9、以下语句的输出结果是______。 Print Format$("32548.5","000,000.00")
VB考试练习题上机操作
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作: ①随机产生20个0到1000的整数,将其放入一个一维数组中 ②求出所有元素的平均值,并显示在窗体上(如下图所示) 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框与一个名称为C1、标题为"转换"的命令按钮,如下图所示。在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其她字符不变。 3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作: ①随机产生30个0～1000的整数,将其放入一个一维数组中 ②求出其中的最大值,并显示在窗体上。 4 请设计如下图所示窗体界面。程序运行时,在选中一个或两个复选框与一个单选按钮时,单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。
5 在名称为Form1的窗体上添加一个名称为Text1的文本框;添加两个标题分别为"对齐方式"、"字体",名称分别为Fm1、Fm2的框架;在Fm1框架中添加三个单选按钮,标题分别为"左对齐"、"居中"、"右对齐",名称分别为Opt1、Opt2、Opt3;在Fm2框架中添加两个单选按钮,标题分别为"宋体"、"黑体",名称分别为Opt4、Opt5。 要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的内容实现相应的操作(如图所示)。 6 请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。请编写程序完成上述功能。 7 在窗体上添加两个文本框与三个标签,设置它们的属性,达到下图效果。程序运行时,在第一个文本框输入一串字符,在第二个文本框中输入一个字符,然后单击"统计"命令按钮,统计第二个文本框中字符(大小写被认为就是不同的字母)在第一个文本框中出现的次数,统计结果在标签Label3中显示。
Vb上机实验答案
第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.360docs.net/doc/1e9751073.html,bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()
VB上机考试习题以及答案
VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1
VB期末考试上机题编程答案
VB期末考试上机题编程答案 1.新建一个工程，编写一个找出所有四位荣幸数显示在列表框中，并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“查找“按钮，则开始查找并在列表框中显示结果，并在文本框中显示荣幸数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是荣幸数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()
End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 详尽要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击“求和“按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；
VB练习题(上机)含标准答案
第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)
Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。
VB上机练习题(可编辑修改word版)
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”，Text2 允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1 按钮将Text1 的字体改为黑体，Text2 的字体改为隶书。单击C2 按钮将Text1 的文字颜色改为红色，Text2 的背景颜色改为蓝色。单击C3 按钮结束程序运行。 Text1 Text2 Private Sub Command1_Click() Text1.Font = 黑体 End Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub 2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1 的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1 的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1 中输入内容的同时，在文本框Text2、Text3 中显示相同的内容，但字体不同（字体自定）。
(完整版)VB练习题(上机)含答案
第一部分 1在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值”)。程序运行后，单击命令 按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Ran domize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为”转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转 换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As Stri ng, ch1 As Stri ng, i% ch = Text1 For i = 1 To Len( ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else chi = chi + UCase(Mid(ch, i, 1))
End If Next i Textl = Textl + vbCrLf Textl = Text1 + ch1 End Sub 3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值”)。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0?1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Ran domize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max The n max = a(i) Next i Print max End Sub 4请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时， 单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
全国计算机二级VB上机题库(题+答案)word版
一、基本操作题 下面出现的“考生文件夹”均为c:\wexam\20060001。 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。只建立菜单，不必定义其事件过程。 注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。程序中不能使用任何变量，直接显示字符串。 注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。 一、基本操作题答案 1．【解题步骤】 （1）打开“菜单编辑器”。 （2）菜单设计见表4-1。 表4-1 标题名称内缩符号 文件vbFile 0 打开vbOpen 1 关闭vbClose 1 退出vbExit 1 帮助vbHelp 0 （3）按要求设计含有“文件”和“帮助”的菜单栏。 （4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。 （5）设计完成之后，按规定方式存盘。 2．【解题步骤】 （1）建立界面和控件并设置控件属性。程序中用到的控件及其属性见表4-2。 表4-2 控件属性设置值 按钮Name Cmd1 Caption 喜欢 按钮Name Cmd2 Caption 不喜欢 （2）编写程序代码。 参考代码： Private Sub Cmd1_Click() Print"数理化" End Sub Private Sub Cmd2_Click()
全国计算机等级考试VB二级上机题库,有答案
VB上机试题 全国计算机等级考试二级VB上机题库(第一套) 一、基本操作题（2小题，每小题15分，共计30分） 1．在名称为Form1的窗体上画一个文本框，其名称为T1,宽度和高度分别为1400和400；在画两个按钮，其名称分别为C1和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”，如图1所示，如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2所示。 注意： 要求程序中不得使用变量。 存盘时必须放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 图2 解析：（大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_chenxi@https://www.360docs.net/doc/1e9751073.html,，QQ:313691262，也可从论坛讨论https://www.360docs.net/doc/1e9751073.html,） 这道题没什么难度，主要考你窗体、按钮及文本框的基本属性，所以大家一定要熟练掌握常用控件的基本属性。打开VB(不用我说了吧)，新建一个工程（标准的EXE），单击控件面板的“TextBox”控件（也可双击，直接在窗体建立），在属性面板中将“名称”修改为T1，“Width”修改为1400，“Height”修改为400。然后单击控件面板的“CommanButton”添加两个命令按钮，在属性面板中将“名称”分别修改为C1和C2，“Caption”分别修改为显示和扩大。 接下来双击显示按钮，进入代码编写窗口，键入：（按钮的Click事件）T1.text=”等级考试” 双击扩大按钮，键入：（按钮的Click事件） T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3 最后单击保存按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frm。 总结：这道题只要错一点就没有分，主要考大家仔细认真及属性设置的熟练程度，大家一定了解Caption、Text等属性在不同控件含义是不同，有的控件有这个属性，而那个控件没有，名称属性是不能在运行期间改变的等等。以上限于时间原
VB上机试题
129：单击窗体。求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM 中 Dim j As Integer Dim k As Integer Dim b As Integer b = False For i = 2 To 100 b = False j = Int(Sqr(i)) For k = 2 To j If i Mod k = 0 Then b = True End If Next If b = False Then Sum = Sum + i End If Next Print Sum 130:求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中Dim i As Integer For i = 201 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then Print i Sum = Sum + i End If Next Print Sum 131:已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上 Private Sub Form_Click() Dim s As Single Dim I as integer S =0 For I =1to 10 S= s+1/(i^2) Next Print (s) End Sub
132:在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和。 Private Sub Form_Click() Dim s As Single Dim i, j, k, m as Integer S =0 I = 2 J = 1 For k = 1 to 10 M = j Print (cstr (i)) & "/" & cstr(j) J =i I =i+m S =s+i/j next End Sub 133: 一球从100米高度自由落下，每次落地返回,原高度的一半，求第10次落地时，共经过多少米？并将结果在窗体上输出。 Private Sub Form_Click() Dim s As Single Dim j , I as integer S = 0 J =100 For I =2 to 10 J = j / 2 S = s + 2 *j Next S =100 +s Print (cstr(s)) End Sub 134: s=20+21+22+…+263，求s的值，并将结果存储到变量S中。 Dim i As Integer i = 20 While i <= 263 s = s + i i = i + 1 Wend Print (CStr(s))
vb上机考试答案
上机考试答案 1、在列表框中显示出利用随机函数产生的20个在[100，900]之间的能被5整除的随机整数，并输出其中偶数之和与奇数的个数。 Private Sub Command1_Click() Dim I, As Integer,s As Integer, t As Integer I=0:t=0:s=0 Do while i<20 N=int(Rnd*801+100) If n mod 5=0 then list1.additem n:i=i+1 if n mod 2=0 then s=s+n else t=t+1 end if loop text1.text=”其中的偶数之和是：” & s text2.text=”其中的奇数有” & t & “个” End Sub 2 、编写程序在窗体上输出如下图形：(不能用连续的Print语句输出) 100 200 210 300 310 320 400 410 420 430 Private Sub Command1_Click() Dim i As Integer , j As Integer For i = 1 To 4 For j = 1 To i Print i * 100 + (j - 1) * 10; Next j Print Next i End Sub 3，编写程序，完成当单击一个开始按钮时将表达式s=11+21+31+42+52+62+73+83+93的值输出到一个文本框中。 Private Sub Command1_Click() Dim t As Integer,s As Integer T=1:s=0 For i=1 to 9 s=s+i*10+t if i mod 3=0 then t=t+1 next i text1.text=s End Sub 4，编程输出以下图形。 (注意：不能用连续的print输出) 1 13 135 1357 13579 3 35 357 3579 5 57 579 7 79 9 Private Sub Command1_Click() Dim a As integer Dim i As Integer,j As Integer For i = 1 To 5 a = 0 For j = 2 * i - 1 To 9 Step 2 a = a * 10 + j Print a;
VB程序设计考试试题及答案
月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″，下面使b=″Basic″的语句是 A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 __________________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。
VB上机试题及答案
1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分） 参考答案： Private Sub Form_Click() Cls For i = 1 To 9 For j = 1 To i Print i * j; " "; Next j Print Next i End Sub 2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。 要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分） 参考答案： Private Sub Check1_Click() Text1.FontBold = Check1.Value End Sub
Private Sub Check2_Click() Text1.FontItalic = Check2.Value End Sub Private Sub Check3_Click() Text1.FontUnderline = Check3.Value End Sub 3、在工程中添加一窗体form3，在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。 要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除.（本题：20分） 参考答案： Private Sub Command1_Click() List1.AddItem Text1.T ext End Sub Private Sub List1_DblClick() List1.RemoveItem List1.ListIndex End Sub 4、在窗体form4中建立下图所示的菜单,各菜单项的名称如下： 文件：file, 新建：NEW，-：kong1，打开：OPEN，关闭：CLOSE 编辑：EDIT，剪切：CUT，复制：COPY，粘贴：PASTE （本题不用编程，30分）
VB上机+答案
1利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。 Private Sub Form_Click() Dim m%, n% For i = 1 To 25 m = Int(Rnd * 900 + 100) Print m; If i Mod 5 = 0 Then Print Next i End Sub 2 利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。 Private Sub Form_Click() Dim k#, n% n = 0 For i = 1 To 25 m = Int(Rnd * 90 + 10) Print m; n = n + m Next i Print Print "25个数的和为：", n k = n / 25 Print "25个数的平均值为：", Format(k, "#.000") End Sub 3 利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Private Sub Form_Click() Dim a%(1 To 25) For i = 1 To 25 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print For i = 1 To 24 p = i For j = i + 1 To 25 If a(p) > a(j) Then p = j Next j t = a(i): a(i) = a(p): a(p) = t Next i Print "从小到大排序为："; For i = 1 To 25 Print a(i); Next i
VB期末考试试题及答案
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13 13、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案（） A、=0 B、=0 C、=False D、=False 14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（） A、Picture属性中的图形 B、DownPicture属性中的图形 C、DisablePicture 属性中的图形 D、不显示图形 15、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
VB期末考试上机题编程答案
VB期末考试上机题编程答案 具体要求： 1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击"查找"按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数； 3、单击“清除”按钮，则将列表框和文本框清空； 4、单击“退出”按钮，结束程序运行； 5、程序中应包含一个过程，用于判断一个数是否是幸运数。 解：Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then List1.AddItem i: a = a + 1 Next i Text1.Text = a End Sub Private Sub Command2_Click() List1.Clear Text1.Text = "" End Sub
Private Sub Command3_Click() End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！ 具体要求： 1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2、单击"求和"按钮，则在文本框中显示计算得到的因子和； 3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框； 4、单击“退出”按钮，结束程序运行；