VB上机考试习题以及答案

合集下载

国家二级VB机试(上机操作)模拟试卷400(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷400(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷400(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.请根据以下各小题的要求设计Visua,Basic应用程序(包括界面和代码)。

(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处于选中状态,运行时的窗体如图3—147所示。

请画控件并设置相应属性。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

(2)在名称为Form1的窗体上画一个名称为HS1的水平滚动条,其刻度值范围为1~100;画一个命令按钮,名称为C1,标题为“移动滚动框”。

请编写适当的事件过程,使得在运行时,每单击命令按钮一次(假定单击次数少于10次),滚动框向右移动10个刻度。

运行时的窗体如图3—148所示。

要求程序中不得使用变量,事件过程中只能写一条语句。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

正确答案:(1)【操作步骤】步骤1:新建一个“标准EXE”工程。

步骤2:在窗体Form1中加入一个复选框,并用“复制”和“粘贴”的方法,生成包含四个元素的复选框数组。

步骤3:分别设置窗体和复选框数组中各元素的相关属性。

步骤4:按要求将文件保存至考生文件夹中。

(2)【操作步骤】步骤1:新建一个“标准EXE”工程,按要求画出控件并设置相应属性。

步骤2:在代码编辑窗口,编写命令按钮的Click事件过程。

参考代码:Private Sub C1_Click( )HS1.Value=HS1.Value+10End Sub 步骤3:按要求将文件保存至考生文件夹中。

简单应用题2.(1)在名称为Form1的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。

vb上机题库及答案

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机试章节练习试卷1(题后含答案及解析)

VB机试章节练习试卷1(题后含答案及解析)

VB机试章节练习试卷1(题后含答案及解析) 题型有:1. 基本操作题基本操作题(30分)1.在名为Form1的窗体上绘制一个水平滚动条,名为HS1,最小值为0、最大值为80;再绘制3个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为“左端”、“居中”和“右端”。

编写适当的事件过程,使程序运行后,若单击“左端”命令按钮,则滚动框位于滚动条最左端处;如果单击“居中”命令按钮,则滚动框位于滚动条中间;如果单击“右端”命令按钮,则滚动框位于滚动条最右端处。

程序的运行情况如下图所示。

注意:程序中不得使用任何变;文件必须存放在考生文件夹中,窗体文件名为execise118.frm,工程文件名为execise118.vbp。

正确答案:2.在名为Form1的窗体上绘制一个标签,名为Lab1,标题为“请输入一个摄氏温度”;绘制两个文本框;名称分别为Text1和Text2,内容设为空:再绘制一个名为Cmd1的命令按钮,其标题为“华氏温度等于”。

编写适当的程序,使得单击“华氏温度等于”按钮时,将Textl中输入的摄氏温度(c)转换成为华氏温度(f),转换公式为:f=c*9/5+32,并显示在Text2中。

程序运行结果如下图所示。

注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,窗体文件名为execise119.frm,工程文件名为execise119.vbp。

正确答案:3.在窗体上绘制两个标签,名称分别为Lab1和Lab2,标题分别为“请输入一个正整数N”和“1+2+3+…+N=”;绘制两个文本框,名称分别为Text1和Text2,内容都设为空白;绘制一个命令按钮,名为Cmd1,标题为“计算”。

编写适当的程序,使程序运行时,在Text1中输入一个正整数N,单击“计算”按钮,计算出1+2+3+…+1N的和显示在Text2中。

程序运行结果如下图所示。

注意:程序中不得使用任何变量:文件必须存放在考生文件夹中,窗体文件名为execise120.frm,工程文件名为execise120.vbp。

vb上机试题及答案

vb上机试题及答案

vb上机试题及答案一、选择题(每题2分,共10分)1. VB中,用来声明变量的关键字是:A. DimB. SetC. CallD. Function答案:A2. 下列哪个不是VB中的控件事件?A. ClickB. LoadC. PrintD. Resize答案:C3. VB中,用于循环结构的关键字是:A. ForB. NextC. LoopD. Do答案:A4. VB中,用于定义过程的关键字是:A. SubB. FunctionC. DimD. Call答案:A5. VB中,用于定义窗体的关键字是:A. FormB. ClassC. ModuleD. Property答案:A二、填空题(每题2分,共10分)1. VB中,使用________关键字可以定义一个数组。

答案:Dim2. 在VB中,________函数用于将字符串转换为大写。

答案:UCase3. VB中的________函数用于计算字符串的长度。

答案:Len4. 使用________语句可以退出当前循环。

答案:Exit For5. VB中,________语句用于创建一个子程序。

答案:Sub三、简答题(每题5分,共15分)1. 请简述VB中如何声明一个变量,并赋值。

答案:在VB中,使用Dim关键字声明变量,例如Dim myVar As Integer,然后使用赋值语句赋值,例如myVar = 10。

2. 解释VB中什么是事件驱动编程。

答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件触发,而不是由程序的顺序执行决定。

在VB中,用户操作(如点击按钮)会触发事件,程序响应这些事件执行相应的代码。

3. 描述VB中如何使用条件语句。

答案:在VB中,使用If...Then...Else语句来实现条件判断。

例如,If condition Then '执行代码块 1 Else '执行代码块 2 End If。

四、编程题(每题15分,共30分)1. 编写一个VB程序,计算并输出1到100之间所有偶数的和。

VB上机试题及答案

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上机题库及答案(全)

全国计算机VB上机题库及答案(全)

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料:PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组,含三个命令按钮,它们的Index 属性分别为0、1、2,标题依次为"是"、"否"、"取消",每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp ,窗体文件名为sjt1.frm 。

图1【操作步骤】步骤1:新建一个"标准EXE"工程,如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。

表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件,然后建立一个菜单,标题为"形状",名称为shape0,该菜单有两个子菜单,其标题分别为"正方形"和"圆形",其名称分别为shape1和shape2,如图2所示,然后编写适当的程序。

程序运行后,如果选择"正方形"菜单项,则形状控件显示为正方形;如果选择"圆形"菜单项,则窗体上的形状控件显示为圆形。

注意:程序中不能使用变量,每个事件过程中只能写一条语句。

保存时必须存放在考生文件夹下,工程文件名为sjt2.vbp ,窗体文件名为sjt2.frm 。

图2【操作步骤】步骤1:新建一个"标准EXE"工程,在窗体Form1中画一个名为Sha1的形状控件。

步骤2:选择【工具】→【菜单编辑器】命令,打开菜单设计器,如表2中的设置建立菜单项。

全国计算机 二级 VB上机操作题 题目答案及解析

全国计算机 二级 VB上机操作题 题目答案及解析

85 (1)【考点分析】本题考点有:文本框的Name、Height、Width、Font、FontSize属性,窗体的Caption、MaxButton、MinButton属性。

【解题思路】根据题意添加控件并设置相应属性。

不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。

【操作步骤】步骤1:建立界面,添加控件并设置控件的属性。

程序中用到的控件及属性见表3.275。

步骤2:调试并运行程序,关闭程序后按题目要求存盘。

(2)【考点分析】本题考点有:图像框的Name、Picture、Stretch属性,命令按钮的Name、Caption属性。

【解题思路】图像框(Image)的Picture属性用于在设计阶段设置在图像框中显示的图片,它的Stretch(自动伸缩)属性用来设定载入其中的图片是否需要自动调整大小,以适应图像框的大小。

本题要在单击按钮时实现"向右移动"或"向下移动"的功能,应在程序中动态设置图像框的Left和Top属性。

【操作步骤】步骤1:建立界面,添加并设置控件的属性。

程序中用到的控件及属性见表3.276。

4 步骤2:编写程序代码。

参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。

(1)【考点分析】本题考点有:命令按钮的Caption属性和Click事件,直线控件的X1、X2、Y1、Y2属性,形状控件的Shape属性,Sin( )函数,Cos( )函数以及计时器的Enabled属性和Timer事件。

【解题思路】Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值;通过X1、X2、Y1、Y2属性来设置直线的端点。

VB练习题(上机)含答案

VB练习题(上机)含答案

VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。

程序运行后,单击命令按钮完成以下工作:①随机产生20个0到1000的整数,将其放入一个一维数组中②求出所有元素的平均值,并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮,如下图所示。

在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其他字符不变。

Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。

程序运行后,单击命令按钮完成以下工作:①随机产生30个0~1000的整数,将其放入一个一维数组中②求出其中的最大值,并显示在窗体上。

vb上机考试题库及答案86套

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上机操作练习题及答案

计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,下面店铺为为大家带来计算机二级VB上机操作练习题及答案,希望大家喜欢!一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。

组合框中的文本内容为空,表项内容有“乒乓球”、“羽毛球”和“网球”3项。

运行后的窗体如图所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在名称为Forml、标题为“转换”的窗体上,画1个名称为Shapel、边框宽度为3的形状。

再画两个标题分别为“椭圆”和“圆”的命令按钮。

如下图所示。

要求:编写适当的事件过程,使得单击“椭圆”按钮时,Shapel 的形状变换为椭圆;单击“圆”按钮时,Shapel的形状变换为圆。

程序中不得使用变量,每个事件过程中只能写一条语句。

注意:存盘时必须存放在考生文件夹下,工程文件名为sjr2.vbp,窗体文件名为sjr2.frm。

二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。

窗体上显示有一个列表框和一个文本框,且列表框中已有若干列表项。

程序的功能是,程序运行时,当用户在列表框中单击并选中某个列表项时,该项的内容将显示到文本框中,用户可以在文本框中对相关内容进行编辑,按回车键后,能够用编辑好的内容替换被选中的列表项,并自动清空文本框;当双击某个列表项时,则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后,则把该文本添加为列表框的一个新列表项,添加完成后,将文本框清空。

运行窗体如图所示。

要求:程序已经给出,但不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序。

最后程序按原文件名存盘。

vb考试题及答案解析

vb考试题及答案解析

vb考试题及答案解析一、选择题(每题2分,共20分)1. 在Visual Basic中,以下哪个关键字用于声明变量?A. DimB. FunctionC. SubD. Class答案:A2. 下列哪个选项是Visual Basic中的保留字?A. MainB. IfC. ElseD. My答案:B3. 在Visual Basic中,以下哪个函数用于将字符串转换为数字?A. StrB. ValC. ChrD. Asc答案:B4. 以下哪个控件用于在Visual Basic中显示文本?A. LabelB. TextBoxC. ComboBoxD. CheckBox5. 在Visual Basic中,如何表示“或”逻辑运算?A. AndB. OrC. NotD. Xor答案:B6. Visual Basic中,以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. Text答案:A7. 在Visual Basic中,以下哪个事件用于响应按钮点击?A. ClickB. DoubleClickC. MouseDownD. KeyPress答案:A8. Visual Basic中,以下哪个关键字用于循环结构?A. ForB. WhileC. DoD. All of the above答案:D9. 在Visual Basic中,以下哪个函数用于获取当前系统时间?B. DateC. TimeD. Timer答案:A10. 以下哪个选项是Visual Basic中的错误处理语句?A. TryB. CatchC. FinallyD. All of the above答案:D二、填空题(每题2分,共20分)1. 在Visual Basic中,使用________关键字可以声明一个数组。

答案:Dim2. 如果需要在Visual Basic中创建一个自定义函数,应该使用________关键字。

VB上机考试 习题以及答案

VB上机考试  习题以及答案

VB上机考试1、利用随机函数产生25个100到999之间的整数,构成5 5的矩阵,输出该矩阵。

Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数,求其平均值(要求保留3位小数,第4位四舍五入)。

Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键,记录其坐标。

Private Sub Form_Load() Label1.BorderStyle = 1Label1.Alignment = 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenLabel1.Caption = X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数,按从小到大的顺序显示。

Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数,2的个数,3的个数,4的个数,5的个数和6的个数。

vb试题及答案上机

vb试题及答案上机

vb试题及答案上机1. 编写一个VB程序,计算并输出1到100之间所有奇数的和。

答案:```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有奇数的和为:" & sum)```2. 编写一个VB程序,实现输入一个字符串,然后输出该字符串的反转。

答案:```vbDim inputString As String = Console.ReadLine()Dim reversedString As String = StrReverse(inputString) Console.WriteLine("反转后的字符串为:" & reversedString)```3. 编写一个VB程序,判断一个整数是否为素数,并输出结果。

答案:```vbDim number As Integer = Convert.ToInt32(Console.ReadLine()) Dim isPrime As Boolean = TrueIf number > 1 ThenFor i As Integer = 2 To number / 2If number Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextElseisPrime = FalseEnd IfIf isPrime ThenConsole.WriteLine("该数是素数")ElseConsole.WriteLine("该数不是素数")End If```4. 编写一个VB程序,实现一个简单的计算器,可以进行加、减、乘、除运算。

答案:```vbDim num1 As Double = Convert.ToDouble(Console.ReadLine("请输入第一个数:"))Dim num2 As Double = Convert.ToDouble(Console.ReadLine("请输入第二个数:"))Dim operation As String = Console.ReadLine("请输入运算符(+、-、*、/):")Select Case operationCase "+"Console.WriteLine("结果为:" & num1 + num2)Case "-"Console.WriteLine("结果为:" & num1 - num2)Case "*"Console.WriteLine("结果为:" & num1 * num2)Case "/"If num2 <> 0 ThenConsole.WriteLine("结果为:" & num1 / num2)ElseConsole.WriteLine("除数不能为0")End IfCase ElseConsole.WriteLine("无效的运算符")End Select```5. 编写一个VB程序,实现一个简单的学生信息管理系统,可以添加、删除、查询学生信息。

国家二级VB机试(上机操作)模拟试卷304(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷304(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷304(题后含答案及解析)题型有:1.jpg />(2)在名称为Form1的窗体上画一个名称为Label1、标题为“口令”的标签;画一个名称为Text1的文本框;再画三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“显示口令”、“隐藏口令”、“重新输入”。

程序运行时,在Text1中输入若干字符,单击“隐藏口令”按钮,则只显示同样数量的“*”,如图3—157(b)所示;单击“显示口令”按钮,则显示输入的字符,如图3—157(a)所示,单击“重新输入”按钮,则清除Text1中的内容,并把光标定位到Text1中。

要求:请画出所有控件,编写命令按钮的Click事件过程,程序中不得使用变量,在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。

正确答案:第1小题步骤1:新建一个“标准EXE”工程,画出控件并设置相应属性。

步骤2:按要求将文件保存至考生文件夹中。

第2小题步骤1:新建一个“标准EXE”工程,按要求画出控件并设置属性。

步骤2:在代码编辑窗口,分别编写三个按钮的单击事件过程。

参考代码:Private Sub Command1_Click( )Text1.PasswordChar=““End SubPrivate Sub Command2_Click( )Text1.PasswordChar=“*”End SubPrivate Sub Command3_Click( )Text1=““Text1.SetFocusEnd Sub步骤3:按要求将文件保存至考生文件夹中。

解析:第1小题:本题只需要在窗体上画出控件并相应设置其属性即可。

第2小题:PasswordChar属性用于设置屏蔽文本框中内容的字符,要去掉对文本框中输入内容的屏蔽,需将其PasswordChar属性值清空,使用SetFocus方法可使文本获得焦点。

国家二级VB机试(上机操作)模拟试卷157(题后含答案及解析)

国家二级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考试试题及答案

vb考试试题及答案一、选择题(每题2分,共20分)1. 在Visual Basic中,以下哪个不是基本数据类型?A. IntegerB. StringC. ObjectD. Array答案:D2. 下面哪个语句用于在Visual Basic中声明一个变量?A. DimB. DeclareC. DefineD. Set答案:A3. 在Visual Basic中,以下哪个是正确的循环结构?A. LoopB. WhileC. DoD. Repeat答案:C4. 以下哪个属性用于设置控件的可见性?A. VisibleB. ShowC. HideD. Display答案:A5. Visual Basic中的事件通常与哪个关键字一起使用?A. SubB. FunctionC. EventD. Procedure答案:A6. 在Visual Basic中,以下哪个不是控件的属性?A. NameB. CaptionC. TypeD. Left答案:C7. 下列哪个不是Visual Basic的内置函数?A. LenB. UBoundC. SqrtD. Max答案:D8. 在Visual Basic中,以下哪个不是数组的声明方式?A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案:D9. 在Visual Basic中,以下哪个不是条件语句?A. IfB. Select CaseC. WhileD. Do答案:C10. Visual Basic中,以下哪个不是错误处理的关键字?A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案:D二、填空题(每题2分,共10分)1. 在Visual Basic中,使用________关键字可以声明一个变量。

国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1.(1)在名称为Form1的窗体上添加一个名称为L1的标签,标签上标题为“请输入密码”,添加一个名称为Text1的文本框,其宽、高分别为2000和300,设置适当的属性,使得在输入密码时,文本框中品永为“*”字符,此外再把窗体的标题设置为“密码窗口”,以上这些设置都必须在属性窗口中进行,程序运行时的窗体如图所示。

注意:存盘时必须存放在考生文件火下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjt1.frm。

(2)在名称为Form1的窗体上添加一个名称为P1的图片框,请编写适当的事件过程,使得程序在运行时,每单击一次图片框,就在图片框中输出“单击图片框”,每单击图片框外的窗体一次,就在窗体中输出“单击窗体”,运行时的窗体如图所示。

要求在程序中不得使用变量,每个事什过程中只能写一条语句。

注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。

正确答案:(1)【操作步骤】步骤1:新建一个窗体,按照要求建立控件并设置其属性,如图3.11所示。

程序中用到的控件及属性如表3.7所示。

步骤2:调试并运行程序,效果如图3.12所示。

步骤3:关闭程序后按题目要求保存T程和窗体文件。

(2)【操作步骤】步骤1:新建一个窗体,按照题日要求建立控什并设置其属性,如图3.13所示。

步骤2:打开代码编辑窗口,存指定位置编写如下代码。

参考答案Private Sub Form_CliCk( ) Form1.Print”单击窗体”End Sub Private Sub P1_Click( ) P1.Print”单击图片框”End Sub 步骤3:凋试并运行程序,关闭程序后按题目要求存盘。

简单应用题2.(1)在考生文件央下有一个工程文件sit3.vbp,窗体中柯两个图片框,名称分别为P1、P2,其中的图片内容分别是-架航天飞机和一朵云彩,一个命令按钮,名称为C1,标题为“发射”,还有一个计时器,名称为Timer1。

vb考试题及答案详解

vb考试题及答案详解

vb考试题及答案详解一、选择题(每题2分,共40分)1. 在Visual Basic中,下列哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. 以下哪个关键字用于声明一个过程?A. FunctionB. SubC. Both A and BD. None of the above答案:C3. 如果变量x的值是5,那么表达式x > 3 And x < 10的结果是?A. TrueB. FalseC. 5D. 3答案:A4. 在Visual Basic中,如何将文本框(TextBox)的内容赋值给变量str?A. str = TextBox.TextB. str = TextBoxC. str = TextD. str = Text.Text答案:A5. 下列哪个控件用于在窗体上显示图像?A. PictureBoxB. ImageBoxC. LabelD. Button答案:A6. Visual Basic中的哪个函数用于计算一个数的平方根?A. SqrB. PowC. LogD. Exp答案:A7. 如何在Visual Basic中声明一个整型变量?A. Dim intVar As IntegerB. Declare intVar IntegerC. Var intVar IntegerD. Integer intVar答案:A8. 在Visual Basic中,哪个事件用于响应鼠标单击?A. ClickB. MouseDownC. MouseUpD. DoubleClick答案:A9. 下列哪个不是Visual Basic的内置控件?A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案:D10. 在Visual Basic中,如何使用If语句进行条件判断?A. If condition ThenstatementsEnd IfB. If condition ElsestatementsEnd IfC. Both A and BD. None of the above答案:C11. Visual Basic中哪个函数用于获取当前日期?A. NowB. DateC. TodayD. Time答案:C12. 如何在Visual Basic中声明一个数组?A. Dim arrayName() As TypeB. Declare arrayName() As TypeC. Var arrayName() As TypeD. Array arrayName() As Type答案:A13. 在Visual Basic中,哪个属性用于设置文本框的只读状态?A. ReadOnlyB. ReadOnlyC. CanReadD. CanWrite答案:A14. 如何在Visual Basic中声明一个类?A. Class classNamedeclarationsEnd ClassB. Declare classNamedeclarationsEnd DeclareC. Var classNamedeclarationsEnd VarD. Type classNamedeclarationsEnd Type答案:A15. 在Visual Basic中,哪个关键字用于退出当前的过程?A. ExitB. ReturnC. EndD. Stop答案:B二、填空题(每题2分,共20分)1. 在Visual Basic中,使用________关键字可以声明一个变量。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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
If Tag = True The n
Print a;"是素数"
Else
Print a;"不是素数"
End If
End Sub
13、利用随机函数产生并显示10个3位数的正整数,找出其中的最大数
Explicit
Dim i%, max%, loc%
Dim a(1 To 10) As In teger
Private Sub Form_Click()
For j = 1 To 25-i
If a(j) > a(j+1) The n tmp = a(j): a(j) = a(j+1): a(j+1) = tmp
Next j
Next i
For i = 1 To 25
Print a(i);
Next i
End Sub
5、利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数,2的个
数,3的个数,4的个数,5的个数和6的个数。Dim a(1 To6)
Private Sub Form_Click()
For i = 1 To 6
a(i) = 0
Next i
For j = 1 To 50
x = In t(R nd * (6-1+1)+1)
a(x) = a(x)+1
Next j
For i = 1 To 6
Print a;
s = s+a
Next i
Print
Avg = s/25
Print Avg
End Sub
3、在窗体上按下鼠标的右键,记录其坐标。
|4202820
Private Sub Form_Load()
Label1.BorderStyle = 1
Label1.Alig nment = 2
End Sub
Print s
End Sub
9、用For…Next语句编程,双击窗体后,在屏幕上显示如图:
□jjcJ
1
2 3 4
5 676 9
Private Sub Form_Click()
a = 0
Fori = 1 To 3
Print Tab(8-2 * i-1);
Forj = 1 To 2 *i-1
a = a+1
Ran domize
Form1.Cls
For i = 1 To 10
a(i) = In t(R nd * (999-100+1)+100)
Print a(i)
Next i
max = a(1): loc = 1 '变量赋值,假设a(1)为最大数
For i = 2 To 10
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)
If a = 2 The n
Tag = True
ElseIf a Mod 2 = 0 The n
Tag = False
Else
Tag = True
For i = 3 To Sqr(a) Step 2
If a Mod i = 0 Then Tag = False: Exit For
Next i
End If
Print i&"出现了"&a(i);"次"
Next i
End Sub&在文本框中输入一些英语单词,统计空格的个数
单词的个数Kb 6|统计
Dim n%, x As String, s%
Private Sub Form_Click() n = Le n(Text1.Text) x = Text1.Text
S=2!+4!+6!++(2* n)! Private Sub Form_Click()
n = Val(lnputBox("请输入一个不大于10的整数"))
s= 0
For i = 2 To 2 * n Step 2
p = 1
Forj = 1 Toi
p = p * j
Next j
s = s+p
Next i
4、利用随机函数产生25个10到99之间的整数,按从小到大的顺序显示。Dim a(1
To25)
Private Sub Form_Click()
Cis
For i = 1 To 25
a(i) = In t(R nd * (99 -10+1)+10)
Print a(i);
Next i
Print
For i = 1 To 25-1
n = Val(lnputBox("请输入一个不大于10的整数"))
s= 0
For i = 1 To 2 * n - 1 Step 2
p = 1
Forj = 1 Toi
P = P * j
Next j
s = s+p
Next i
Print s
End Sub8、编程计算下列公式的值,其中n(<10)为从键盘输入的正整数。
Print Str(a);
Next j
Print
Next i
End Sub
10、用For…Next语句编程,双击窗体后,在屏幕上显示如图:
End Sub
12、 从文本框输入一个正整数,判断该数是否为素数。Dim a As Long
Private Sub Form_Click()
a = Val(Text1.Text)
VB
1、利用随机函数产生25个100到999之间的整数,构成5 5的矩阵,输出该矩 阵。Dim a(1 To5, 1To 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)
For i = 1 To n
If Mid(x, i, 1) = " ห้องสมุดไป่ตู้ The n s = s+1
Next i
Print "共出现了"&s&"个空格" End Sub7、编程计算下列公式的值,其中n(<10)为从键盘输入的正整数。
S=1!+3!+5!+……+(2* n-1)! Private Sub Form_Click()
相关文档
最新文档