VBA练习2(含答案)
vba循环练习题
vba循环练习题在本文中，将为您展示一些VBA循环练习题。
VBA（Visual Basic for Applications）是一种用于创建宏的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，如Excel、Word和PowerPoint等。
通过编写VBA代码，可以自动执行重复的任务，提高工作效率。
以下是一些常见的VBA循环练习题，供您练习和学习。
练习一：使用For循环输出1到10之间的偶数在Excel中新建一个模块，输入以下VBA代码：```Sub PrintEvenNumbers()Dim i As IntegerFor i = 1 To 10If i Mod 2 = 0 ThenDebug.Print iEnd IfNext iEnd Sub```运行此代码（按F5键），你将看到输出窗口中显示了2、4、6、8和10这五个偶数。
这段代码通过For循环遍历1到10的所有数字，使用If语句判断是否为偶数，如果是偶数则输出。
练习二：使用Do While循环计算1到100之间所有奇数的和在Excel中新建一个模块，输入以下VBA代码：```Sub CalculateOddSum()Dim i As IntegerDim sum As Integeri = 1sum = 0Do While i <= 100If i Mod 2 <> 0 Thensum = sum + iEnd Ifi = i + 1LoopMsgBox "1到100之间所有奇数的和为：" & sumEnd Sub```运行此代码（按F5键），将会弹出一个消息框显示1到100之间所有奇数的和为 2500。
这段代码使用了Do While循环，从1开始遍历到100的所有数字，如果是奇数则累加到sum变量中。
练习三：使用For Each循环遍历Excel工作表中的所有单元格在Excel中新建一个模块，输入以下VBA代码：```Sub IterateCells()Dim ws As WorksheetDim cell As RangeSet ws = ThisWorkbook.ActiveSheet '假设要遍历的是当前活动工作表For Each cell In edRange'在这里编写对单元格的操作，例如：'cell.Value = cell.Value * 2Next cellEnd Sub```运行此代码（按F5键），将会遍历当前活动工作表的所有单元格。
计算机vba试题及答案
计算机vba试题及答案一、选择题（每题2分，共20分）1. 在VBA中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A2. VBA中，用于结束一个循环结构的关键字是？A. NextB. LoopC. ExitD. Continue答案：A3. 在VBA中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A4. VBA中，以下哪个对象代表当前工作表？A. ThisWorkbookB. ActiveSheetC. WorksheetsD. ActiveDocument答案：B5. 在VBA中，以下哪个属性用于获取或设置单元格的值？A. ValueB. NameC. FormulaD. Address答案：A6. VBA中，以下哪个函数用于计算数组中元素的数量？A. CountB. SumC. UBoundD. LBound答案：C7. 在VBA中，以下哪个事件用于在工作表被激活时触发？A. Worksheet_SelectionChangeB. Worksheet_ActivateC. Worksheet_BeforeDoubleClickD. Workbook_Open答案：B8. VBA中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. PropertyD. Const答案：B9. 在VBA中，以下哪个方法用于将一个工作簿保存为Excel 97-2003工作簿格式？A. SaveAsB. SaveC. ExportD. Close答案：A10. VBA中，以下哪个属性用于获取或设置单元格的宽度？A. WidthB. HeightC. ColumnWidthD. RowHeight答案：C二、填空题（每题2分，共20分）1. 在VBA中，使用________关键字可以定义一个变量。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
excel vba 练习题
excel vba 练习题Microsoft Excel是一种广泛使用的电子表格软件，而VBA（Visual Basic for Applications）是Excel内置的一种编程语言，可帮助用户自动化处理数据和执行各种任务。
掌握Excel VBA对于提高工作效率和数据处理能力非常有帮助。
为了帮助大家巩固和提升对Excel VBA的理解和应用能力，本文将为您提供一些Excel VBA练习题。
请按以下要求完成每个练习题，并在最后的总结中记录您的发现和心得。
练习题一：简化数据录入问题描述：您需要每天手动录入员工考勤数据，包括姓名、日期和考勤情况（正常、迟到、早退等）。
编写一个Excel VBA程序，使得用户只需在指定的单元格中输入员工信息，然后自动将相应的考勤情况填入指定单元格。
练习题二：年度销售额统计问题描述：您有一个包含多个工作表的Excel文件，每个工作表代表不同的月份。
每个工作表中都有一个姓名列和一个销售额列。
编写一个Excel VBA程序，根据用户输入的姓名，自动统计全年销售额，并将结果显示在新建的工作表中。
练习题三：数据筛选和排序问题描述：您有一份包含大量数据的Excel表格，需要根据特定条件筛选数据并按照一定规则进行排序。
编写一个Excel VBA程序，根据用户输入的条件，自动筛选数据并按照指定的条件进行排序。
练习题四：自动生成图表问题描述：您有一份包含销售数据的Excel表格，需要根据数据生成柱状图以便更直观地展示销售情况。
编写一个Excel VBA程序，根据用户选择的数据范围，自动生成相应的柱状图。
练习题五：自动发送邮件问题描述：您需要定期向公司员工发送邮件提醒他们的工作进度和下一步计划。
编写一个Excel VBA程序，根据预设的邮件内容和接收人列表，自动发送提醒邮件。
练习题六：数据备份和恢复问题描述：您需要定期备份Excel表格中的数据，以防止数据丢失。
编写一个Excel VBA程序，实现数据的自动备份和恢复功能。
vba练习题
vba练习题VBA（Visual Basic for Applications）是一种用于自动化任务和定制应用程序的编程语言。
它广泛应用于Microsoft Office套件中的各种应用程序，如Excel、Word和Access等。
本文将为您提供一些VBA练习题，帮助您巩固和提升VBA编程技能。
1. 统计数字的和与平均值（Excel）在Excel中，有一个包含数字的单元格范围，请编写一个VBA宏，计算这些数字的总和和平均值，并将结果显示在工作表上。
解决方案：```Sub CalculateSumAndAverage()Dim rng As RangeDim cell As RangeDim sum As DoubleDim count As IntegerDim average As DoubleSet rng = Range("A1:A10") '将范围更改为您需要的范围sum = 0count = 0For Each cell In rngsum = sum + cell.Valuecount = count + 1Next cellaverage = sum / countRange("B1").Value = sumRange("B2").Value = averageEnd Sub```2. 计算阶乘（Excel）在Excel中，输入一个整数，请编写一个VBA宏，计算该整数的阶乘并在单元格中显示结果。
解决方案：```Sub CalculateFactorial()Dim num As IntegerDim result As Longnum = Range("A1").Value '输入要计算阶乘的整数result = 1If num >= 0 ThenFor i = 1 To numresult = result * iNext iEnd IfRange("B1").Value = resultEnd Sub```3. 寻找最大值和最小值（Excel）在Excel中，有一个包含数字的单元格范围，请编写一个VBA宏，找到这些数字的最大值和最小值，并将结果显示在工作表上。
excel vba 习题 答案
excel vba 习题答案Excel VBA 习题答案在Excel VBA编程中，掌握基本的习题答案是非常重要的。
通过解决各种习题，我们可以加深对VBA语言的理解，提高编程技能，提升工作效率。
下面我们来看一些常见的Excel VBA习题及其答案。
1. 习题：编写一个VBA程序，实现将选定单元格的内容复制到另一个单元格的功能。
答案：```vbaSub CopyCellContent()Range("A1").Copy Destination:=Range("B1")End Sub```2. 习题：编写一个VBA程序，实现将选定单元格的内容相加并显示在另一个单元格的功能。
答案：```vbaSub AddCellContent()Range("A1").Value = Range("A1").Value + Range("B1").ValueEnd Sub```3. 习题：编写一个VBA程序，实现对选定单元格的内容进行求和并显示在另一个单元格的功能。
答案：```vbaSub SumCellContent()Range("A1").Value = Application.WorksheetFunction.Sum(Range("A1:B1")) End Sub```通过以上习题的答案，我们可以看到VBA语言的简洁和强大。
掌握这些基本的习题答案，可以帮助我们更好地应用VBA语言来解决实际工作中的问题，提高工作效率，实现自动化操作。
除了以上的习题答案，还有很多其他的VBA习题可以挑战和解决。
通过不断的练习和实践，我们能够更加熟练地运用VBA语言，为我们的工作带来更多的便利和效率。
总之，掌握Excel VBA习题的答案对于提高编程技能和工作效率非常重要。
希望大家能够通过不断的练习和实践，不断提升自己的VBA编程能力，为工作带来更多的价值和贡献。
vba试题及答案
vba试题及答案1. 题目一：编写一个VBA函数，该函数接受一个字符串作为参数，并返回该字符串中每个字符出现的次数。
答案：```vbaFunction CountCharacters(str As String) As DictionaryDim dict As New DictionaryDim i As IntegerDim char As StringFor i = 1 To Len(str)char = Mid(str, i, 1)If Not dict.Exists(char) Thendict.Add char, 1Elsedict(char) = dict(char) + 1End IfNext iSet CountCharacters = dictEnd Function```2. 题目二：编写一个VBA宏，用于在Excel工作表中查找并高亮显示所有与指定条件相匹配的单元格。
答案：```vbaSub HighlightCells()Dim rng As RangeDim criteria As StringDim cell As Range' 用户输入条件criteria = InputBox("请输入要高亮显示的条件：")' 遍历工作表中的所有单元格For Each cell In edRangeIf cell.Value = criteria Thencell.Interior.Color = RGB(255, 255, 0) ' 黄色高亮 End IfNext cellEnd Sub```3. 题目三：编写一个VBA程序，用于计算Excel工作表中指定列的总和。
答案：```vbaFunction SumColumn(col As Range) As DoubleDim sum As DoubleDim cell As Rangesum = 0For Each cell In colIf IsNumeric(cell.Value) Thensum = sum + cell.ValueEnd IfNext cellSumColumn = sumEnd Function```4. 题目四：编写一个VBA宏，用于将Excel工作表中的数据复制到另一个工作表中。
vba练习2(含答案)
Vba练习21、VBA中定义符号常量可以用关键字A)Const B)Dim C)Public D)Static2．定义了二维数组A(2 to 5，5)，则该数组的元素个数为A)25 B)36 C)20 D)243．标识符必须由字母和汉字开头,后面可跟（D）。
A）、汉字B）、数字C）、下划线D）、以上都可以4．以下常量的类型说明符使用正确的是（A）。
A）、Const A1!=2000B）、Const A1%=60000C）、Const A1%="123"D）、Const A1$=True5．以下声明I是整型变量的语句正确的是（C）。
A）、Dim I,j As Integer B）、I=1234C）、Dim I As Integer D）、I As Integer6．以下变量名中,正确的是（B）。
A）、A B B）、C24C）、12A$B D）、1+27．以下不是VBA中变量的作用范围的是（D）。
A）、模块级B）、窗体级C）、局部级D）、数据库级8．下面属于VBA常用标准数据类型的是（D）。
A）、数值型B）、字符型C）、货币型D）、以上都是9．不属于VBA中变量的声明方式的是（D）。
A）、显式声明B）、隐式声明C）、强制声明D）、自动声明10．Dim A(10) As Double,则A数组共有(B )个元素。
A）、10B）、11C）、12D）、911．Dim A(3,4) As Integer,声明的数组A有(A )个元素。
A）、20B）、12C）、15D）、1612．VBA中的标识符长度小于( B)个字符A）、256B）、255C）、128D）、以上都不是13．定义了二维数组A(2to5,5),则该数组的元素个数为（D）。
A）、25B）、36C）、20D）、241．VBA中变量作用域分为3个层次，这3个层次是局部变量、模块变量和全局变量。
2．在模块的说明区域中，用private关键字说明的变量是模块范围的变量；而用public或Global键字说明的变量是属于全局范围的变量。
vba 入门练习题
vba 入门练习题VBA（Visual Basic for Applications）是一种用于编写Excel宏的编程语言，它能够使Excel的功能更加强大和灵活。
本文将介绍一些VBA入门练习题，以帮助读者更好地理解和运用VBA。
1. 编写一个VBA宏，实现将A列中的所有数据复制到B列中。
解答：```Sub CopyColumn()Dim lastRow As LonglastRow = Cells(Rows.Count, "A").End(xlUp).RowRange("A1:A" & lastRow).Copy Destination:=Range("B1:B" & lastRow)End Sub```2. 编写一个VBA宏，实现将Sheet1中的两个单元格相乘并将结果显示在Sheet2的相应单元格中。
解答：```Sub MultiplyCells()Sheets("Sheet2").Range("A1").Value =Sheets("Sheet1").Range("A1").Value *Sheets("Sheet1").Range("B1").ValueEnd Sub```3. 编写一个VBA宏，实现将Sheet1中的数据按照升序排列，并将结果显示在Sheet2中。
解答：```Sub SortData()Sheets("Sheet1").Range("A1").CurrentRegion.SortKey1:=Sheets("Sheet1").Range("A1"), Order1:=xlAscending,Header:=xlYesSheets("Sheet1").Range("A1").CurrentRegion.Copy Destination:=Sheets("Sheet2").Range("A1")End Sub```4. 编写一个VBA宏，实现统计Sheet1中数据列A中不同数值出现的次数，并将结果显示在Sheet2的相应单元格中。
vba 练习题
vba 练习题VBA 练习题VBA（Visual Basic for Applications）是一种用于自动化任务和开发应用程序的编程语言。
它是微软的Office套件中的一部分，可以用于Excel、Word、PowerPoint等应用程序。
通过使用VBA，用户可以编写宏来执行各种操作，从简单的数据处理到复杂的自定义功能。
为了提高自己的VBA编程技能，下面将介绍一些常见的VBA练习题。
1. 自动求和在Excel中，我们经常需要对一列数据进行求和操作。
通过使用VBA，可以编写一个宏来自动完成这个任务。
首先，打开Excel并创建一个新的工作表。
然后，按下Alt+F11打开VBA编辑器。
在VBA编辑器中，选择插入->模块，然后在代码窗口中输入以下代码：```vbaSub AutoSum()Dim LastRow As LongDim SumRange As RangeLastRow = Cells(Rows.Count, 1).End(xlUp).RowSet SumRange = Range("A1:A" & LastRow)Range("A" & LastRow + 1).Value = WorksheetFunction.Sum(SumRange)End Sub```保存并关闭VBA编辑器。
现在，选择你要进行求和的数据范围，然后按下Alt+F8打开宏对话框。
选择AutoSum宏并点击运行。
你将看到在数据范围下方生成了一个包含求和结果的单元格。
2. 数据筛选在Excel中，我们经常需要根据某些条件筛选数据。
通过使用VBA，可以编写一个宏来自动完成这个任务。
首先，打开Excel并创建一个新的工作表。
然后，按下Alt+F11打开VBA编辑器。
在VBA编辑器中，选择插入->模块，然后在代码窗口中输入以下代码：```vbaSub FilterData()Dim LastRow As LongLastRow = Cells(Rows.Count, 1).End(xlUp).RowWith Range("A1:A" & LastRow).AutoFilter Field:=1, Criteria1:=">10", Operator:=xlAndEnd WithEnd Sub```保存并关闭VBA编辑器。
vb考试试题及答案二级
vb考试试题及答案二级一、单选题（每题2分，共20分）1. 在VB中，以下哪个关键字用于定义一个类？A. FunctionB. SubC. ClassD. Module答案：C2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 递归结构答案：D3. VB中，用于定义变量的数据类型关键字是：A. DimB. ConstC. FunctionD. Sub答案：A4. 在VB中，以下哪个函数用于计算一个数的绝对值？A. AbsB. SqrC. IntD. Round5. VB中，以下哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. NameD. Title答案：A6. 在VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A7. VB中，以下哪个事件用于响应鼠标单击操作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. 在VB中，以下哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A9. VB中，以下哪个函数用于将字符串转换为数值？B. ValC. CStrD. Chr答案：B10. 在VB中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A二、填空题（每空2分，共20分）1. VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中，使用________函数可以连接两个或多个字符串。
答案：Concatenate 或 &3. VB中，使用________函数可以将数值转换为字符串。
答案：Str4. VB中，使用________事件可以响应文本框内容的改变。
答案：Change5. VB中，使用________方法可以清空一个列表框的所有项目。
excel vba 习题 答案
excel vba 习题答案Excel VBA 习题答案在学习Excel VBA编程的过程中，做一些习题是非常有帮助的。
通过实际操作和解决问题，我们可以更好地理解VBA的语法和功能。
本文将提供一些Excel VBA习题的答案，帮助读者更好地掌握这门技术。
1. 习题一：编写一个VBA宏，将选定的单元格文本转换为大写。
答案：```Sub ConvertToUpper()Selection.Value = UCase(Selection.Value)End Sub```2. 习题二：编写一个VBA宏，将选定的单元格文本转换为小写。
答案：```Sub ConvertToLower()Selection.Value = LCase(Selection.Value)End Sub```3. 习题三：编写一个VBA宏，将选定的单元格文本反转。
答案：```Sub ReverseText()Dim originalText As StringDim reversedText As StringDim i As IntegeroriginalText = Selection.ValuereversedText = ""For i = Len(originalText) To 1 Step -1reversedText = reversedText & Mid(originalText, i, 1)Next iSelection.Value = reversedTextEnd Sub```4. 习题四：编写一个VBA宏，将选定的单元格中的数字相加并显示结果。
答案：```Sub SumNumbers()Dim cell As RangeDim sum As DoubleFor Each cell In SelectionIf IsNumeric(cell.Value) Thensum = sum + cell.ValueEnd IfNext cellMsgBox "Sum: " & sumEnd Sub```5. 习题五：编写一个VBA宏，将选定的单元格中的文本合并为一行。
VBA笔试真题练习2 - 答案
条件语句1、2006.9（33）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：Private Sub Command1_Click( )A=75If A>60 Then I=1If A>70 Then I=2If A>80 Then I=3If A>90 Then I=4MsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1 B）2 C）3 D）42、2007.4(31）在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Cimmandl_Click（）a =75If a >60 Thenk =1Elself a>70 Thenk =2Elself a>80 Thenk =3Elself a>90 Thenk =4EndlfMsgBox kEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）1 B）2 C）3 D）43、2009.9 (32)在窗体中有一个文本框Text1，编写事件代码如下：Private Sub Form_Click ( )X=val (Inputbox(“输入x的值”))Y=1If X〈〉0 Then Y=2Text1.value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是A） 1 B） 2 C）3 D）44、2007.9（13）在窗体中使用一个文本框（名为num1）接受输入值，有一个命令按钮run13，事件代码如下：Private Sub run13_Click()If Me!num1 >= 60 Thenresult = "及格"ElseIf Me!num1 >= 70 Then····elseif是当上一个条件表达式不满足时，才会执行 Result = "良好"ElseIf Me!num1 >= 85 ThenResult = "优秀"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是及格。
计算机二级考试VB练习题及答案（2）
计算机二级考试VB练习题及答案（2）2017计算机二级考试VB练习题及答案(22)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(10, 10) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = (i - 1) * 3 + jPrint a(i, j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是A）1 2 3 B）2 3 4 C）1 4 7 D）1 2 32 4 6345 2 5 8 4 5 63 6 9456 3 6 978 9(23)在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A(4) As Integer,B(4) As IntegerFor k = 0 To 2A(k + 1) = InputBox("请输入一个整数")B(3 - k) = A(k + 1)Next kPrint B(k)End Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为A)0 B)2 C)3 D)4(24)有以下程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2); arr(3, 4)End Sub程序运行后，单击窗体，输出结果为A)8 13 B)0 13 C)7 12 D)0 0(25)以下叙述中正确的是A)一个Sub过程至少要有一个Exit Sub语句B)一个Sub过程必须有一个End Sub语句C)可以在Sub过程中定义一个Function过程，但不能定义Sub 过程D)调用一个Function过程可以获得多个返回值(26)有以下程序：Sub subP(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5a(2) = 6a(3) = 7a(4) = 8subP a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为A） 2 B） 5 C）10 D）出错4 6 126 7 148 8 16(27)设有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr = ""strL = Len(xStr)i = 1Do While i <= strL / 2tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)i = i + 1LoopFun = tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。
计算机二级VB考试题及答案
计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
vba 练习题
vba 练习题VBA（Visual Basic for Applications）是一种可以在Microsoft Office 应用程序中编写和运行宏的编程语言。
它能够帮助用户自动化重复任务，提高工作效率。
本文将提供一些 VBA 练习题，帮助读者加深对VBA 的理解和掌握。
练习一：创建一个简单的消息框在Excel中创建一个新的工作簿，按下"ALT + F11"进入VBA编辑器。
在VBA编辑器中，插入一个新的模块（Module）。
在模块中编写以下代码：```vbaSub ShowMessage()MsgBox "Hello, World!"End Sub```保存并关闭VBA编辑器。
按下"ALT + F8"打开宏对话框，选择并运行名为"ShowMessage"的宏。
一个简单的消息框将弹出，显示"Hello, World!"。
练习二：实现字符串连接函数在VBA编辑器中的新建模块中编写以下代码：```vbaFunction ConcatenateStrings(ByVal str1 As String, ByVal str2 As String) As StringConcatenateStrings = str1 & str2End Function```保存并关闭VBA编辑器。
返回Excel工作簿，输入以下公式：```=ConcatenateStrings("Hello", "World")```按下回车键，将会在单元格中显示"HelloWorld"。
练习三：使用循环实现数字求和在VBA编辑器中的新建模块中编写以下代码：```vbaSub SumNumbers()Dim sum As IntegerDim i As IntegerFor i = 1 To 10sum = sum + iNext iMsgBox "Sum of numbers from 1 to 10 is: " & sumEnd Sub```保存并关闭VBA编辑器。
国家二级ACCESS机试(模块与VBA编程基础)模拟试卷2(题后含答案及解析)
国家二级ACCESS机试（模块与VBA编程基础）模拟试卷2(题后含答案及解析)题型有：1. 选择题选择题1．VBA中定义符号常量使用的关键字是A．ConstB．DimC．PublicD．Static正确答案：A解析：在VBA编程过程中，如果在代码中要反复使用相同的值，或者代表一些具有特定意义的数字或字符串，可以用符号常量形式来表示，符号常量使用关键字Const来定义，格式如下：Const符号常量名称：常量值2．可以用InputBox函数产生“输入对话框”。
执行语句：st=InputBox(“请输入字符串”，“字符串对话框”,“aaaa”) 当用户输入字符串“bbbb”，按OK 按钮后，变量st的内容是A．aaaaB．请输入字符串C．字符串对话框D．bbbb正确答案：D3．下列不属于VBA函数的是A．ChooseB．IfC．IIfD．Switch正确答案：B解析：If( )函数，该函数可用于选择操作。
调用格式为：If(条件表达式，表达式l，表达式2) 功能：函数根据”条件表达式”的值来决定返回值。
如果“条件表达式”的值为“真”(True)，函数返回“表达式1”的值；“条件表达式”的值为“假”(Flase)，函数返回“表达式2”的值。
Switch( )函数，该函数可用于多条件选择操作。
调用格式为：Switch(条件式1，表达式l[，条件式2，表达式2]…[，条件式n，表达式n]) 功能：函数分别根据“条件式1”、“条件式2”…“条件式n”的值来决定返回值。
条件式是由左至右进行计算判断的，函数将返回第一个条件式为True的对应“表达式”的值。
Choose( )函数，调用格式为：Choose(数值表达式，表达式l[，表达式2]…[，表达式n]) 功能：函数根据“数值表达式”的值决定返回值。
若不考虑变量的小数的定义位数，当“数值表达式”值大于1、小于2时，函数将返回“表达式1”的值；值大于2、小于3，返回“表达式2”的值，依此类推。
安徽省vb二级考试真题及答案
安徽省vb二级考试真题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项不是窗体的属性？A. CaptionB. NameC. TextD. Font答案：C2. 下列哪个函数用于计算一个数的绝对值？A. AbsB. SqrC. IntD. Round答案：A3. 在Visual Basic中，以下哪个关键字用于声明一个子程序？A. FunctionB. SubC. ClassD. Property答案：B4. 如果要为一个文本框控件设置初始文本，应该使用哪个属性？A. TextB. CaptionC. ValueD. Name答案：A5. 在Visual Basic中，以下哪个控件用于显示图像？A. PictureBoxB. ImageBoxC. LabelD. TextBox答案：A6. Visual Basic中，以下哪个事件用于响应鼠标单击操作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A7. 在Visual Basic中，以下哪个数据类型用于存储日期和时间？A. DateB. TimeC. DateTimeD. String答案：C8. 以下哪个选项不是Visual Basic中的流程控制语句？A. If...Then...ElseB. For...NextC. While...WendD. Switch...Case答案：D9. 在Visual Basic中，以下哪个函数用于将字符串转换为整数？A. StrB. ValC. CIntD. Chr答案：C10. 如果要创建一个数组，应该使用哪个关键字？A. ArrayB. DimC. ReDimD. New答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用____关键字可以声明一个变量。
答案：Dim2. 要创建一个按钮控件，应该在工具箱中选择____控件。
vb二级考试题库及答案
vb二级考试题库及答案1. 题目：以下哪个选项是Visual Basic中用于声明变量的关键字？A. DimB. FunctionC. SubD. End答案：A2. 题目：在Visual Basic中，哪个函数用于将字符串转换为大写？A. StrCompB. UCaseC. LCaseD. Trim答案：B3. 题目：在Visual Basic中，以下哪个选项是正确的循环结构？A. For EachB. Do UntilC. WhileD. All of the above答案：D4. 题目：以下哪个选项是Visual Basic中用于创建数组的关键字？A. DimB. FunctionD. End答案：A5. 题目：在Visual Basic中，以下哪个选项是用于捕获异常的语句？A. TryB. CatchC. FinallyD. All of the above答案：D6. 题目：在Visual Basic中，以下哪个选项是用于定义类的方法？A. FunctionB. SubC. PropertyD. Both A and B答案：D7. 题目：在Visual Basic中，以下哪个选项是用于定义类的属性？A. FunctionB. SubC. PropertyD. Dim答案：C8. 题目：在Visual Basic中，以下哪个选项是用于定义常量的关键字？B. FunctionC. SubD. Dim答案：A9. 题目：在Visual Basic中，以下哪个选项是用于定义事件的关键字？A. EventB. FunctionC. SubD. Dim答案：A10. 题目：在Visual Basic中，以下哪个选项是用于定义接口的关键字？A. InterfaceB. FunctionC. SubD. Dim答案：A。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VBA练习2一、填空题1.2.在VBA中要判断一下字段的值是否为Null，应该使用的函数是isnull 。
3.VBA中定义符号常量的关键字是const 。
4.VBA编程中，要得到［15，75］上的随机整数可以用表达式15+int(61*rnd()) 。
5.在VBA中，只有True和False两个值是布尔数据类型。
6.表达式Fix（－3.25）和Fix（3.75）的结果分别是-3 3 。
7.8.三维数组Array（3,3，3）的元素个数为64 。
9.VBA中使用的三种选择函数是iif 、Switch和Choose。
10.在VBA中要将数值表达式的值转换为字符串，应使用函数str 。
11.要将正实数x保留两位小数，若采用Int函数完成，则表达式为int(100*x)/100 。
12.通常说的虚岁就是当天的年份与出生年份之差，而周岁是要过了生日才增加一岁。
设D＝当天日期＝date（），B＝某人出生日期，则虚岁为＝year(b)-year(b) ，周岁＝int((d-b)/365) 。
13.执行下面的程序段后，s的值为9 。
s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i14.程序执行结果s的值是6 。
Private Sub Command1_Click( )i=0Dos=i+si=i+1Loop Until i>=4End Sub15.窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click( )Dim M(10)As IntegerFor k=1 To 10M(k)=12-knextx=6Msgbox M(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是 4 。
16.下面程序的输出结果是。
Private Sub Form_Click( )i=0Do Until 0i=i+1If i>10 Then Exit DoLoopDebug.print iEnd Sub17.在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_Click( )x=1Do While x<=7x=x+2LoopEnd Sub18.运行下列程序，输入如下两行：Hello,I am here.弹出的窗体中的显示结果是hello，Private Sub Command11_Click( )Dim abc As string, sum As Stringsum=””Doabc=InputBox(“输入abc”)if Right(abc,1)=“.”Then Exit Dosum = sum+abcLoopMsgBox sumEnd Sub二、单选题1.在计算机中，算法是指（B）A、加工方法B、解题方案的准确而完整的描述C、排序方法D、查询方法2.执行语句“Value＝10 Mod 3”后，返回的值是（1）A、1B、2C、3D、43.在模块的声明部分使用“Option Base 1”语句，然后定义二维组A（2to 5,5），则该数组的元素个数为（A）A、20B、24C、25D、364.VBA中去除前后空格的函数是（C）A、LtrimB、RtrimC、TrimD、Ucase5.用于命名和定义常量、数组和过程的语句是（A）A、声明语句B、赋值语句C、条件语句D、循环语句6.VBA数据类型符号“&”表示的数据类型是（C）A、整数B、长整数C、单精度数D、双精度数7.以下不属于Access中标准函数的是（C）A、数值函数B、字符函数C、数据函数D、日期/时间函数8.如果x是一个正的实数，保留两位小数，将千分四舍五入的表达式是（B）A、0.01*Int(x+0.05)B、0.01*Int(100*(X+0.005))C、0.01*Int(x+0.005)D、0.01*Int(100*(X+0.05))9.由“For i=1 To -10 Step – 3”决定的循环结构，其循环体将被执行（C）A、0次B、1次C、4次D、5次10.下列给出的选项中，非法的变量名是（C ）A、SumB、Integer_2C、RemD、Form111.InputBox函数的返回值类型是（B）A、数值B、字符串C、变体D、视输入的数据而定12.下列能够交换变量X和Y值的程序段是（C）A、Y＝X：X＝YB、Z＝X：Y＝Z：X＝YC、Z＝X：X＝Y：Y＝ZD、Z＝X：W＝Y：Y＝Z：X＝Y13.已知程序段：S=0For i=1 to 10 step 2s=s+1i=i*2Next i当循环结束后，变量i、s值分别为（A）A、22、3B、11、4C、10、5D、16、614.在窗体中有一个文本框Test1，编写事件代码如下：Private Sub Form_Click( )X=val(Inputbox(“输入x的值：”))Y＝1If X<>0 Then Y=2 Text1.Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（B）A、1B、2C、3D、415.若变量i的初值为8，则下列循环语句中循环体的执行次数为（C）Do While I ＜=17i=i+2LoopA、3次B、4次C、5次D、6次16、运行下列程序段，结果是（A）For m =10 to 1 Step 0k=k+3Next mA、形成死循环B、循环体不执行即结束循环C、出现语法错误D、循环体执行一次后结束循环17.有如下事件程序，运行该程序后输出结果是（A）Private Sub Command33_Click( )Dim x As Integer, y As Integerx=1:y=0Do Until y<=25y=y+x*xx=x+1LoopMsgBox “x=”& x &“,y=”&yEnd SubA、x=1,y=0B、x=4,y=25C、x=5,y=30D、输出其他结果18.下列程序的功能是计算sum=1＋（1＋3）＋（1＋3＋5）＋......＋（1＋3＋5＋ (39)Private Sub Command34_Click( )t=0m=1sum=oDot=t+msum=sum+tm=Loop While m＜=39MsgBox“Sum=”&sumEnd Sub为保证程序正确完成上述功能，空白处应填入的语句是（B）A、m+1B、m+2C、t+1D、t+219.窗体中有命令按钮run34，对应的事件代码如下：Private Sub run34_Enter( )Dim num As Integer, a As Integer, b As Integer, I As Integer For i=1 to 10num=InputBox(“请输入数据：”，“输入”)If Int(num/2)=num/2 Thena=a+1Elseb=b+1End IfNext iMsgBox(“运行结果：a＝”&Str(a)&“,b=”&Str(b))End Sub运行以上事件过程，所完成的功能是（c）A、对输入的10个数据求加和B、对输入的10个数据求各自的余数，然后再进行累加C、对输入的10个数据分别统计奇数和偶数和个数D、对输入的10个数据分别统计整数和非整数的个数20.运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（C）Private Sub Form_Click( )Dim sum As Integer,m AS IntegerSum=0Dom=VAL(InputBox(“输入m”))sum=sum+mLoop Until m=0MsgBox sumEnd SubA、0B、17C、20D、21三、程序填空1.下面的程序显示一个如下4×4的乘法表：1*1=1 1*2=2 1*3=3 1*4=42*2=4 2*3=6 2*4=83*3=9 3*4=12 4*4=16请在空白处填入适当的语句使子过程完成指定的功能。
Dim I As Integer, j As IntegerFor I = 1 To 4For j = 1 To 4If j <= 5 - I ThenDebug.Print I & "＊" & j & "=" & I * j & Space(2);End IfNext jDebug.PrintNext I2.以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，显示结果。
请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Form_Click( )Dim x as single,y As SingleDim z As Integerx=(InputBox(“Enter a score”))Do While x>=0y=y+xz=z+1x=InputBox(“Enter a score”)LoopIf z=0 Thenz=1End Ify=y/zMsgBox yEnd sub。