VB考试练习题(上机操作)
VB上机模拟卷
《计算机高级语言上机实验（VB）》试卷模拟卷考试时间：70分钟考试方式：闭卷学院班级姓名学号序号【考试须知】1. 请在E盘下新建一个以你的班级、学号、姓名命名的考生文件夹2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。
一、改错题（40分）【题目】一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称是绝对素数。
例如11和13都是绝对素数。
试求所有两位绝对素数。
【要求】1．新建工程，输入代码（5分）；参考界面如图1；（3分）2．共3处错误。
改错时，不得增加或删除语句，但可适当调整语句位置；（30分）3．将窗体文件和工程文件分别命名为F1和P1，并保存到考生文件夹中。
（2分）图1错误的代码：二、编程题（60分）编写程序，生成一个5×5的二维数组，每个元素均为随机生成的两位正整数；然后将数组的最大值与最小值位置互换。
【要求】1.程序参考界面如图2所示。
编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见（6分）。
2.单击“生成数组”按钮，在左边文本框中生成1个5×5的二维数组（14分）；单击“互换”按钮，则把最大值和最小值位置对换，并按图示格式输出结果（10分）；单击“清除”按钮，将两个文本框中的内容清除，焦点置于“生成数组”按钮上（6分）；单击“退出”按钮，则停止程序运行（2分）。
3.程序中包含1个名为MinAMax的通用Sub过程，用来求一个数组的最小值与最大值，并记录最小值与最大值各自的行坐标与列坐标（20分）。
4.将窗体文件和工程文件分别命名为F2和P2，并保存到考生文件夹下（2分）。
图2。
VB上机练习题
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
国家二级VB机试(上机操作)模拟试卷410(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷410(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：打开Visual Basic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3．1所示。
步骤2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图3．2所示。
步骤3：按照题目的要求，在窗体上添加两个标签控件，如图3．3所示。
步骤4：按照题目的要求设置两个标签的相关属性，如图3．4所示。
程序中用到的控件及属性见表3．1。
步骤5：按下键盘上的F5键运行程序，程序运行后的窗体界面如图3．5所示。
步骤6：按题目要求保存工程和窗体，如图3．6所示。
国家二级VB机试(上机操作)模拟试卷267(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷267(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．在考生文件夹下有一个数据库文件“samp1．accdb”，里边已建立了两个表对象“tGrade”和“tStudent”，同时还存在一个Excel文件“tCourse．xlsx”。
请按以下操作要求，完成表的设计。
(1)将Excel文件“tCourse．xlsx”链接到“samp1．accdb”数据库文件中，链接表名称不变。
要求：数据中的第一行作为字段名。
(2)将“tGrade表中隐藏的列显示出来。
(3)将“tStudent”表中“政治面貌”字段的默认值属性设置为“团员”，并将该字段在数据表视图中的显示标题改为“政治面目”。
(4)设置“tStudent”表的显示格式，使表背景颜色为主题颜色的“橄榄色，强调文字颜色3，深色50％”，文字颜色为标准色中的“黄色”、字号为10号。
(5)将北京五中毕业学生的学号第3、4位改为“09”。
(6)建立“tGrade”和“tStudent”两表之间的关系。
正确答案：(1)【操作步骤】步骤1：单击“外部数据”选项卡下“导入并链接”组中的“Excel”按钮，打开“获取外部数据－Exce电子表格”对话框，单击“浏览”按钮，在考生文件夹找到要导入的“tCourse．xlsx”文件，单击“打开”按钮，选择“通过创建链接表来链接到数槲源”单选框，单击“确定”按钮，如图3．215所示。
步骤2：单击“下一步”按钮，勾选“第一行包含列标题”复选框，单击“完成”按钮，如图3．216所示。
(2)【操作步骤】步骤1：右键单击“tGrade”表对象，从弹出的怏捷菜单中选择“打开”命令。
步骤2：在任一字段名称位置右击，选择“取消隐藏字段”命令，在打开的“取消隐藏列”对话框中勾选“成绩”复选框，单击“关闭”按钮，如图3．217所示。
步骤3：按Ctrl＋S保存修改，关闭数据表视图。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
山东交通学院计算机VB考试上机操作题11
设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c的值为【1】.
答案：1). False
━━━━━━━━━━━━━━━
二、判断共10题（共计10分）
━━━━━━━━━━━━━━━
第1题（1.0分）题号:227
单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.
答案：D
第6题（1.0分）题号:298
激活主菜单的按键是().
A:F1或Ctrl键B:Ctrl键或Atl键
C:F10或Ctrl键D:F10或Atl键
答案：B
第7题（1.0分）题号:361
下列不能打开属性窗口的操作是().
A:执行"视图"菜单中的"属性窗口"命令B:按F4键
C:按Ctrl+T D:单击工具栏上的"属性窗口"按钮
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出
答案：ABD
第4题（2.0分）题号:280
请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
C:矩形D:三角形
答案：D
第10题（1.0分）题号:860
组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由
()属性决定.
A:StyleB:BoderStyle
C:FillStyleD:DrawStyle
vb上机考试试题
vb上机考试试题VB（Visual Basic）是一种非常流行的编程语言，在计算机科学领域广泛应用。
VB语言的开发环境是Visual Studio，该软件是微软公司开发的一个集成开发环境（IDE），是用来开发Windows 应用程序的集成包。
VB上机考试是衡量学生能力的一种重要方式之一，它可以考察学生掌握VB语言的基础知识和编程能力。
下面，我们列举一些常见的VB上机考试试题。
1. 编写一个求和程序，要求实现输入两个数值，计算它们的和并将结果输出。
提示：可以使用文本框（TextBox）和按钮（CommandButton）控件。
2. 编写一个计算器程序，要求实现基础的加、减、乘、除四则运算。
提示：可以使用文本框和按钮控件以及一些逻辑运算符和条件语句。
3. 编写一个登录界面，要求实现输入用户名和密码，验证用户信息是否正确。
如果验证通过，则进入主界面；如果验证失败，则提示用户重新输入。
提示：可以使用文本框和按钮控件以及一些判断语句和布尔运算符。
4. 编写一个学生管理系统，要求实现添加、删除和修改学生信息的功能。
提示：可以使用列表框（ListBox）和按钮控件以及一些数组和循环语句。
5. 编写一个简单的冒泡排序程序，要求实现对一组数字进行排序。
提示：可以使用文本框和按钮控件以及一些数组和循环语句。
这些试题都是比较基础的，但是涵盖了VB语言的许多核心概念和技术。
在实际应用中，我们还可以根据自己的需求增加一些拓展性的试题，比如实现文件操作、网络连接、多线程等等。
总的来说，VB上机考试是一种有效的评估学生编程能力的方式，它可以让学生在实践中巩固和应用所学知识，提高自己的技能水平。
我们希望大家能够通过VB上机考试，更好地掌握编程技能，为未来的职业发展打下坚实的基础。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
vb上机考试试题
vb上机考试试题一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property2. VB中的“Option Explicit”语句的作用是什么？A. 定义变量类型B. 强制显式变量声明C. 隐藏变量D. 设置变量的作用域3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. PictureBoxD. ComboBox4. 如果要为VB中的按钮控件添加点击事件，应该使用哪个事件？A. ClickB. DoubleClickC. MouseDownD. KeyPress5. 在VB中，以下哪个函数可以用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Asc()6. VB中的“Select Case”语句最多可以有多少个Case分支？A. 1B. 2C. 10D. 无限制7. 在VB中，以下哪个属性用于设置控件是否可见？A. VisibleB. EnabledC. CaptionD. Text8. 当在VB中创建一个数组时，数组的下标默认从哪个数字开始？A. 0B. 1C. 100D. -19. 在VB中，以下哪个方法用于获取文本框中输入的文本？A. TextB. CaptionC. ValueD. Name10. VB中的“With”语句用于什么目的？A. 初始化变量B. 创建对象C. 引用对象的多个属性或方法D. 定义数据类型二、填空题（每空3分，共30分）11. 在VB中，使用________关键字可以创建一个类。
12. 如果要让一个变量在整个应用程序中都可访问，应该使用________关键字声明它。
13. 在VB中，一个事件处理程序的名称通常由触发事件的控件名称、一个下划线和一个________组成。
14. 要循环遍历一个数组中的所有元素，可以使用________循环。
国家二级VB机试(上机操作)模拟试卷157(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷157(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。
注意：存盘时必须存放在考生文件夹下，上程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。
在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。
程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ieo文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图3．32所示。
程序中用件的控件及属性见表3．47。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。
程序中涉及的控件及属性见表3．48。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub Command1_Click( ) Image1．Picture＝LoadPicture(App．path＆”＼MiSC 34．iCO”)’加载图片End Sub Private Sub Command2_Click( ) Imagel．Picture＝LoadPicture(App．path＆”＼Misc37．ico”) End Sub Private Sub Command3_Click( ) Set Image1．Picture＝Nothing’清除Imagel中的图片End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
计算机VB二级考试上机题带答案
计算机VB二级考试上机题带答案2016年计算机VB二级考试上机题带答案1.使用Excel创建学生成绩图表后，可以进行以下哪项操作( )：a.修改工作表中的数据，而保持图表的数据不变b.修改图表标题的内容c.修改图表的插入方式d.修改图表的类型-------答案------：B,C,D2.测验法、问卷法、成长记录袋法是收集评价学生数据的常用方法，关于它们的说法中正确的是a.测验法适用于收集学生的知识水平、能力情况等信息b.成长记录袋法主要用于收集学生作品和学习反思等信息c.通过问卷法可以获得学生思想和态度等信息d.成长记录袋法有利于对学生的学习过程进行评价-------答案------：A,B,C,D3.收集学生信息的方法可以是( )a.测验法b.访谈法c.成长记录法d.问卷法-------答案------：A, B, C, D4.把收集、加工、和管理学生的信息作为实施有效教学的重要工作的原因是：( )a.教师只有根据学生的各种信息，判断学生存在的优势与不足，才能提出有针对性地改进建议。
b.教师只有对学生进行深入的了解，才能做到因材施教。
c.教师只有根据学生的特点及其学习的规律进行教学，才能真正促进学生的发展。
d.学生是教学活动的中心，教学是为了促进学生的全面发展。
5.下列关于发布个人网站的描述中哪些是正确的?a.发布个人网站时可以将自已的网站发布到网络服务商提供的网络空间b.发布个人网站时可以将自已的网站发布到本地机上c.发布到本地局域网内的个人网站不能供别人访问d.发布个人网站时可以利用FTP软件进行上传-------答案------：A,B,D6.教师建立的个人网站能够实现下列哪些功能?a.收集与管理课件、教案等教学资源b.发布课程安排c.进行作业布置d.展示个人风采-------答案------：A,B,C,D7.制作网页时，科学规划网页的做法是( )a.构图要力求简明，图形、标题、文字标注三者并重b.色彩搭配适宜c.一个网页多个主题d.用好超级链接是使网站结构合理有序，网页美观、简洁的关键因素-------答案------：A, B, D8.下列关于多媒体教学演示文稿制作的说法中，错误的是( )：a.制作教学演示文稿时，背景如果是黑色，则文字应尽量使用反差较小的蓝色或灰色b.制作教学演示文稿时，幻灯片的背景应增加多种风格，使幻灯片更具吸引力c.制作教学演示文稿时，适当设置超级链接，实现幻灯片之间的轻松跳转d.制作教学演示文稿时，应将课本中的内容尽量详细地包含在课件中，使演示文稿更完整9.幻灯片制作时，?以下做法正确的是( )a.构图要力求简明，图形、标题、文字标注三者并重b.?色彩搭配适宜c.动画要多，声音要多，文字要多d.注意画面的'美观，风格统一-------答案------：A,B,D10.在设计多媒体教学演示文稿的过程中，首先要进行需求分析，它包括哪几个方面的内容( )a.教学内容b.学生的认知特点c.教学目标d.教学活动-------答案------：A,B,C,D11.关于多媒体教学演示文稿，下列说法正确的是( )a.多媒体教学演示文稿可以整合文本、图形、图像、音频和视频等多种形式的媒体b.教师可以根据教学需要随时调整多媒体教学演示文稿中演示和呈现的内容，根据学生的反应及时调整播放节奏c.多媒体教学演示文稿具有制作方便、编辑灵活的特点，教师易于掌握d.在应用多媒体教学演示文稿辅助教学时，应坚持以形象化演示呈现教学内容的原则-------答案------：A,B,C12.教师在利用Flash制作课件时，会用到很多的实例与符号(也称元件)，对于实例与符号的关系，下列描述中不正确的是( )a.修改符号的属性不会影响实例的属性b.修改符号的属性会影响实例的属性c.修改实例的属性会影响符号的属性d.两者根本没有关系13.Flash课件制作完毕，经常需要将课件进行发布以后再提供给教师或是学生使用，Flash软件可以发布下列哪几种格式的文件( )a.swfb.jpgc.htmld.avi-------答案------：A,B,C14.下列说法中正确的是( )a.逐帧动画是把一系列的图形或文字放置在一系列关键帧中形成的动画。
专升本VB上机编程作业1_题解
专升本Visual Basic上机编程作业（一）及题解一、循环结构程序设计：1、编程找满足条件的值。
例1：编程求解百钱买百鸡问题。
公鸡每只5元，母鸡每只3元，小鸡三只1元，百元钱买百只鸡，问公鸡、母鸡、小鸡各若干？程序代码如下：1Dim x%, y%, z %For x=1 To 20For y=1 To 33Z=100-x-yIf 5*x+3*y+z/3=100 Then Print ”公鸡：”; x ，”母鸡：”; y，”小鸡：” ;zNext yNext x请参考以上程序，完成下列编程。
1.1、（09专升本编程题）鸡免同笼问题：已知笼中鸡和免共36只，它们的脚共有100只，编程计算鸡和免分别有多少只。
Dim x As Integer, y%For x = 1 To 35y = 36 - xIf 2 * x + 4 * y = 100 Then Print "鸡："; x; "免："; yNext x1.2、已知两个三位数相加之和abc+cba=1333，编程计算并输出能满足这个条件的所有a、b、c的值。
Dim a%, b%, c%For a = 1 To 9For b = 0 To 9For c = 1 To 9If (a + c) * 100 + 2 * b * 10 + c + a = 1333 Then Print "a="; a, "b="; b, "c="; cNext cNext bNext a1.3、有一篮鸡蛋（总数小于500），二个一数多一个，三个一数多二个，四个一数多三个，五个一数多四个，六个一数多五个，七个一数正好，编程求鸡蛋的数量。
Dim i%For i = 1 To 499If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; I ：exit forNext iDim i%i = 0Do Until i >= 500i = i + 1If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; iLoop1.4、马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩。
重庆计算机二级VB上机模拟题
重庆计算机二级VB上机模拟题一、基本操作题请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
1、在名称为Form1的窗体上画一个名称为Chk1的复选框数组（Index属性从0开始），含三个复选框，其标题分别为“语文”、“数学”、“英语”。
利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“英语”为灰色，再把窗体的标题设置为“选课”，程序运行时的窗体界面如图所示。
2、在名称为窗体上画一个命令按钮，其名称为Cmd1，标题为“清除”。
请编写适当的事件过程，使得程序运行后，窗体上的标题为“VB期末上机考试”，如图1所示，如单击命令按钮，则清除窗体的标题，程序运行时的窗体界面如图2所示。
图1 图23、在名称为Form1的窗体上画一个命令按钮，其名称为Cmd1，标题为“移到左上”。
编写适当的事件过程，使程序运行时，如单击命令按钮，则按钮移到窗体的左上角。
程序中不得使用任何变量。
程序运行时的窗体界面如图。
4、在名称为Form1的窗体上建立一个名称为L1的标签，标题为“选课”，其字号大小为4号；再建立三个复选框，名称分别为Chk1、Chk2、Chk3，标题分别为“操作系统”、“数据库原理”、和“概率论”，字体大小均为14，其中“概率论”被禁用，运行界面如图。
5、在Form1的窗体上画一个命令按钮，其名称为Cmd1，标题为“显示”；再画一个文本框，其名称为Txt1，编写适当的事件过程。
程序运行后，在窗体加载时使文本框不可见，如双击窗体，则文本框出现；此时如单击命令按钮，则在文本框中显示“期末考试”，如图所示。
6、在名称为Form1的窗体上，画一个组合框和一个命令按钮。
组合框的名称为Cbo1，初始内容为空，有“长跑”、“游泳”、和“跳远”三个可供选择项。
命令按钮的名称为Cmd1，Opt2，标题为“确定”。
编写适当的事件过程，使得程序运行时，选择组合框中的某项，单击命令按钮后，就会弹出一个对话框，内容为“您选择了（该项）”。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第一部分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是水仙花数，因为153 = 1*1*1 + 5*5*5 + 3*3*3。
编程求出100～999之间所有的“水仙花数”。
要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。
程序运行界面如下图。
3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0～100的整数)，并在左边图片框中输出 (一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。
4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。
5 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。
其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。
6 以下程序运行界面如下图所示。
其功能如下：1) 单击"读数据"按钮(Command1)，可将随机产生100个三位正整数存到数组a中；2) 单击"计算"按钮(Command2)，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的? 改为正确的内容。
注意：不能修改程序的其他部分。
题目提供的程序代码：Dim a(100) As IntegerPrivate Sub Command1 Click()Dim n As IntegerFor n = 1 To 100a(n)=Int(Rnd * ? )Next nEnd SubPrivate Sub Command2 Click()Dim x& ,y& , z& ,i% , j% , k%For i = 1 To 100If a(i) Mod ? Thenx = x + a(i)：j = j + 1Elsey = y + a(i)?End IfNext kx = Int(x / j + 0.5)：y = Int(y / k + 0.5)z = Int((x + y) / (j + k) + 0.5)Select Case Combo1.TextCase "所有偶数"Text1 = ?Case "所有奇数"Text1 = ?Case "所有数"Text1 = ?End Select End Sub7 编写程序。
要求：程序运行后，单击“开始”按钮，则随机产生20个2位数输出到窗体上，每行10个数。
同时对所产生的20个数从小到大排序，将排序后的数再次输出在窗体上。
程序运行界面如下图。
8 编写程序，程序的功能是：程序运行后，在文本框中输入一串字符, 单击标题为"统计"的命令按钮，分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分别在相应的标签框中显示。
程序运行界面如下图。
9 编写程序。
程序功能是：程序运行后在文本框中输入一个正整数，单击“判断”按钮，在标签框中输出“该数是一个素数”或“该数不是一个素数”的信息。
程序运行界面如下图。
10 编写程序，程序的功能是：程序运行后，单击“开始”按钮，在窗体上显示出10个小于100的随机正整数，单击“查找”按钮，则在窗体的下一行显示出这10个数中的最大的数以及最大数在此数列中的位置号。
程序运行界面如下图。
第三部分1 在窗体Form1上添加两个文本框，一个“转换”命令按钮和三个单选按钮（名称分别为Opt1、Opt2、Opt3，标题分别为“大小写转换”、“全部大写”、“全部小写”）。
程序功能：在上方文本框Text1中输入一字符串，选中“大小写转换”，单击“转换”按钮后，Text2中显示大小写相反的字符串；选中“全部大写”，单击转换按钮后，Text2中显示全部大写字符串，选中“全部小写”，单击转换按钮后，Text2中显示全部小写字符串。
程序运行界面如下图。
要求：①请按要求完成窗体界面设计②程序的部分代码已给出如下，但不完整。
请录入下面代码，并将“？”处补充完整。
Private Sub Command1_Click()Dim n As Integer, k As Integer, ch As String, a As Stringch = ""If Opt1.Value = True Thenn = Len(？)For k = 1 To na = Mid$(Text1, k, ？)If a >= "a" And a <= "z" Thench = ch + UCase(a)ElseIf a >= "A" And a <= "Z" Thench = ch + LCase(a)Elsech = ch + aEnd IfNext kEnd IfIf Opt2.Value = True Then ch = UCase(Text1)If Opt3.Value = True Then ch = ？(Text1)Text2 = chEnd Sub2 编写程序，演示列表框控件的基本操作。
在窗体上建立两个列表框，两个命令按钮。
程序运行后，在左边列表框中选中所需要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。
如果单击“删除”按钮，则删除左边列表框中选中的项目。
程序运行时的窗体界面如图。
3 编程实现：单击“输出最大值”按钮，随机产生8个大于或等于10小于100的整数，显示在窗体的第一行，然后在窗体第二行显示其中的最大值。
程序运行时的效果如图。
4 在Form1的窗体上有一个名称为Text1的文本框和两个命令按钮，命令钮标题分别为“显示A”和“显示B”。
要求程序运行后，如单击“显示A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"A"构成的字符串；如单击“显示B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"B"构成的字符串。
程序运行时的窗体界面如图所示。
5 已知十个数为：67, 45, 34, 28, 49, 37, 87, 76, 27, 83。
编程实现：按“开始”按钮，则在窗体的第一行显示这十个数，在窗体的第二行按从大到小的顺序显示这十个数。
6 界面设计如下图所示，单击“确定”按钮，在文本框中显示一句话，说明用户选择的综合情况。
7 编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮，在窗体上显示出数组元素中的最大值。
8 编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第一行显示它们的最大公约数。
程序运行界面如下图所示。
9 编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一张图片装入到图像框的Picture属性中，每按一次“放大”按钮时图像放大10%，同理，每按一次“缩小”按钮时图像缩小10%，放大缩小时均需保持图像的纵横比不变，按“结束程序”按钮则结束程序。