当前位置：文档之家 › 《Visual Basic程序设计教程》编程题答案

《Visual Basic程序设计教程》编程题答案

  • 格式：doc
  • 大小：153.00 KB
  • 文档页数：13

《Visual Basic程序设计教程》<编程及上机调试>题参考答案第1章《编程及上机调试》1. 按要求设置窗体属性。

2．在窗体上建立一个标签Label1。

程序代码如下：Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。

两个文本框的Text属性均为空。

Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章《编程及上机调试》1～3题：按要求完成操作练习。

4．在窗体上设置三个命令按钮，其名称分别为Command1(“最大化”)、Command2(“还原”)和Command3(“最小化”)。

程序代码如下：Private Sub Command1_Click() '"最大化"按钮Form1.WindowState = 2 '最大化End SubPrivate Sub Command2_Click() '"还原"按钮Form1.WindowState = 0 '还原End SubPrivate Sub Command3_Click() '"最小化"按钮Form1.WindowState = 1 '最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。

Private Sub Command1_Click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = x * x + y * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。

Private Sub Command1_Click()Dim x As Stringx = Left(Text1.Text, 1) + Right(Text1.Text, 1)Text2.Text = xEnd Sub第3章《编程及上机调试》1．在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。

Private Sub Command1_Click()n = Val(Text1.Text)Randomizex = Int(1 + n * Rnd)Label1.Caption = "第一个随机数" + Str(x)x = Int(1 + n * Rnd)Label2.Caption = "第二个随机数" + Str(x)x = Int(1 + n * Rnd)Label3.Caption = "第三个随机数" + Str(x)End Sub2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及两个命令按钮Command1(“交换”)和Command2(“合并”)。

Private Sub Command1_Click() '“交换”t = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextText3.Text = tEnd SubPrivate Sub Command2_Click() '“合并”t = Text1.Text + Text2.Text + Text3.TextText4.Text = tEnd Sub3. (1)Rnd * 9000 + 1000 (2)Str(x) (3)Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)4. Private Sub Cmd1_Click()Lab1.Visible = TrueLab1.Caption = "您已下达显示命令"End SubPrivate Sub Form_Click()Cmd1.Visible = TrueEnd Sub5. Private Sub Form_KeyPress(KeyAscii As Integer)ShowPrint "输入字符："; Chr(KeyAscii), "ASCII码为;"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub6. 产生这三个消息框的相应语句是：产生第1个消息框：x = MsgBox("在这里显示提示信息", 4 + 0, "请确认")产生第2个消息框：x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认")产生第3个消息框：x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认")第4章《编程及上机调试》1. 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)，一个命令按钮Command1(“判断”)。

Private Sub Command1_Click() '“判断”x = Val(Text1.Text)If x Mod 2 = 0 ThenText2.Text = "偶数"Else消息Text2.Text = "奇数"End IfEnd Sub2. 在窗体上建立两个文本框Text1、Text2及Text3，分别代表学号、年级及学生类型，建立一个命令按钮Command1(“判断”)。

Private Sub Command1_Click()Dim t As String, p As Stringt = Mid(Text1.Text, 5, 1)Select Case tCase "2"p = "博士生"Case "3"p = "硕士生"Case "4"p = "本科生"Case "5"p = "专科生"Case Elsep = "无效学号"End SelectText2.Text = Left(Text1.Text, 2) + "级"Text3.Text = pEnd Sub3．窗体上建立了一个文本框Text1(“输入口令”)和一个命令按钮Command1(“检查”)。

Private Sub Command1_Click() '“检查”x = Text1.TextIf x = "12345678" ThenMsgBox "欢迎你用机!"ElseMsgBox "对不起，口令错"End IfText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 8Text1.PasswordChar = "*"End Su b4．窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果)，一个命令按钮Command1(“清除”)。

Private Sub Command1_Click() '“清除”Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim s As String * 1s = Chr(KeyAscii)Select Case sCase "A" To "Z"s = LCase(s)Case "a" To "z"s = UCase(s)Case Elses = "*"End SelectText2.Text = Text2.Text + sEnd Sub5．分别选择”红”、”绿”、”蓝”复选框后，单击命令按钮Command1时，通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。

Private Sub Command1_Click()r = 0: g = 0: b = 0If Check1.Value = 1 Then '”红”复选框r = 255End IfIf Check2.Value = 1 Then '”绿”复选框g = 255End IfIf Check3.Value = 1 Then '”蓝”复选框b = 255End IfLabel1.BackColor = RGB(r, g, b)End Sub6．程序代码如下：Private Sub Form_Load()LabClk.Caption = "0"LabClk.Alignment = 1LabClk.BorderStyle = 1LabClk.FontSize = 22LabClk.FontName = "黑体"TimClk.Interval = 1000End SubPrivate Sub TimClk_Timer()LabClk.Caption = Val(LabClk.Caption) + 1End Sub7．在窗体上建立了两个文本框Text1及Text2，两个命令按钮Command1及Command2(“复制”及“粘贴”)。

合集下载

visual basic程序设计课后编程答案

visual basic程序设计课后编程答案

Dim n As Integern=Text1.TextIF(n Mod 4 =0 And n mod 100< >0 or n mod 400 = 0)Then Text2.text =”闰年”ElseText2.text=”非闰年”End IF求和求积Dim i As integerOpen App.path&”\jsdata.txt”For input As #1For i =1 to 15Input #1,arr(i)Next iIf op1.value=ture thenT1.text=Aaa()End ifIf op2.value=ture thenT1.text=Bbb()End ifClose #1写入文件****Dim i As Integer, j As Integer, n As IntegerOpen app.path &”\zfwj.txt”for output As #1n=val(text1.text)for I =1 to nfor j=1 to iprint #1,”*”;next jprint #1next I close#1计算结果dim n As Integer, I As Integer, s1 As integer,s2 As long n=val(text1.textfor I =1 to ns1=s1+is2=s2+s1next itext2.text=s2求值dim n1 as integer, n2 as integer, n3 as integer,t as integer n1= val(text1.text)n2=val(text2.text)n3=val(text3.text)if n1<n2 then t=n1:n1=n2:n2=tif n2<n3 then t=n2:2=n3:3=tif n1<n2 then t =n1:1=n2:2=ttext4.text=n1text5.text=n3建立文件显示文件Dim num as string,name as srting, I as integerOpen App.path&”\xhxm.txt”for output As #1For I = 1 to 3num=inputbox(“请输入学号：“)name = inputbox(“请输入姓名：“)write #1,num,namenext iclose #1End sub Private sub command2_click()Dim s as string, I as integerOpen app.path &\xhxm.txt” for input as # 1Do While Not EoF(1)Line input # 1,sText1.text= text1.text& s & vbCrLfLoopClose #1第三卷求和输入N值Dim n As integer, I as integer, sum as integerN= val(text1.text)For I = 1 to nIf I mod 3 =0 then sum = sum+ iNext iText2.text=sum输入正整数NDim m As integer, n as integerPrivate sub commad1_click(0Dim c as doubleN=text1.textM=text2.textIf n<=m thenC=fact(m)/(fact(n)* fact(m-n))Text3.text=cElseMsgbox”输入的n必须小于等于m！请重新输入“Text1.text=””Text2.text=””Text1.setfocusEnd ifEnd sub读入数据统计英文字母Dim s as stringOpen app.path&”\yy.txt”for input as #1Do while not EOF(1)Line input #1,sText1.text=text1.text &s &vbCrLfLoopClose #1End subPrivate sub command2_click()Dim n as integer, I as integer, s As integer, c as stringN= Len(text1.text)For I = 1 to nC= mid(text1.text,I,1)If c >=”a”and c <=”z” or c 》=“a” and c <=”z” then s =s+1 Next iLabel1.caption= “共“& s &”个英文字母”End sub第四卷转换十进制Dim n as integer,b as stringN=text1.textB=zh(n)Text2.text=b读取文件加密Dim s1 as stringPrivate sub command1_click()Open app.path &”\jmwb.txt”for input as #1Input #1,s1Text1.text=s1End subPrivate sub command2_click()Dim n As integer, I as integer dim s2 as string, j As stringN=Len(s1)For I =1 to nJ=mid(s1,I,1)J=chr(asc(j)+5)S2=s2&jNext iText2.text=s2生成数组降序排列Option base 1Dim n AS integer,x(15) as integerPrivate Sub command1_Click(0Dim s1 as stringFor N= 1 to 15X(N)=int(91 * Rnd +10)S1=s1 &STR(x(N))Next NText1.text =s1End subPrivate sub command2_click()Dim s2 as stringDim I as integer, j AS integer t as integerFor I =1 to 15For j 1 to 15For j=I +1 to 15If x (i)<x(j) thenT=x(i)X(i)=x(j)X(j)=tEnd ifNext jS2=s2& Str(x(i))Next IText2.text =s2End sub第五卷判断字符还是字母Dim s as stringCall Getchar(s)Text1.text=sIf Asc(s)>= Asc(“A”) and asc (s)<=asc(“z”) or asc (s)>=Asc(“a”) And asc (s)<=asc(“z”) then Label1.caption=”是字母字符“ElseIf asc(s)>=asc(”0”) and asc(s)<= asc(“s)<=asc(“9”) thenLabel1.caption=”是数字字符“ElseLabel1.caption=”是其他字符”End ifEnd sub生成三个随机数Dim n1 as integer, n2 as integern1=val(text1.text)n2=val(text2.text)label1.caption=int((n2-n1+1)*Rnd +n1)label2.caption=int((n2-n1+1)*Rnd+n1)label3.caption=int((n2-n1+1)*Rnd+n1)end sub转换大写小写Dim a as stringPrivate sub command1_click()Text1.text=UCase(a)End subPrivate sub command1_click()Text1.text=LCase(a)End subPrivate sub command3_click()Text1.text=aEnd subPrivate sub text1_keypress(keyascii as integer)If not((keyascii>=65 and keyascii<=90)or (keyascii>= 97 And keyascii<=122)) then BeepKeyascii =0End Ifa=Text1.textend sub。

《Visual_Basic程序设计》试题及其答案

《Visual_Basic程序设计》试题及其答案

页脚内容1一、填空题（每题1分，共10分）1.把数学式子： 25sin 21π+写成VB 的数值表达式为（ Sqr(1+3.14159/2*Sin(25*3.14159/180)) ）。

2．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D 的值是（ True ）。

3．若Case 子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 指定范围内的值 ）时，执行该Case 子句相应的语句块。

4．执行下面的程序段后，x 的值为（ 12 ）。

x=0For i=1 To 8 Step 3x=x+iNext i5．在图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。

6．将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为( Text1.Text=Command1.Caption )7．复选框的Value 属性为（ 1 ）时，表示复选框被选中。

8. 使用滚动条可以获取某一范围内的数值输入。

为使垂直滚动条的Value 属性值从下往上递增变化，应设置滚动条Min 属性值大于( Max )属性值。

9．语句：Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是（8）。

10．给定如下子过程：Function fun(ByVal num As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function执行语句Print fun(5) 后在窗体上显示的结果为（0）。

二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（ C ）。

A) 对象B) 属性C) 事件D) 方法2.设a="Visual Basic"，下面使b的值为"Basic"的赋值语句正确的是( B)。

VisualBasic程序设计教程第版课后部分编程题参考答案(一)

VisualBasic程序设计教程第版课后部分编程题参考答案(一)

VisualBasic程序设计教程第版课后部分编程题参考答案(一)Visual Basic 程序设计教程是程序员必备的一本教材。

而其第四版中也包含了大量课后编程题，能够帮助读者深入理解 Visual Basic 程序设计的核心内容。

本文就来为大家介绍一下这部分编程题的参考答案。

一、数据类型和运算符1. 将两个整数相加Dim num1, num2, result As Integernum1 = 10num2 = 20result = num1 + num2MsgBox ("The result of adding " & num1 & " and " & num2 & " is " & result & ".")2. 将两个小数相减Dim num1, num2, result As Doublenum1 = 2.5num2 = 1.2result = num1 - num2MsgBox ("The result of subtracting " & num2 & " from " & num1 & " is " & result & ".")3. 将两个字符拼接在一起Dim str1, str2, result As Stringstr1 = "Hello"str2 = "World"result = Str1 + Str2MsgBox ("The result of concatenating " & str1 & " and " & str2 & " is " & result & ".")二、程序结构和函数1. 将两个整数相加并返回结果Public Function Add(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerDim result As Integerresult = num1 + num2Return resultEnd Function2. 获取当前日期和时间Dim currentDateTime As StringcurrentDateTime = Now()MsgBox ("The current date and time is " & currentDateTime & ".")3. 显示一个消息框并返回用户的选择Dim userInput As IntegeruserInput = MsgBox("This is a prompt. Would you like tocontinue?", vbYesNoCancel, "Message Box Test")MsgBox ("Your choice was " & userInput & ".")三、数组和结构1. 将一个整数数组按照升序排列Dim numArray() As IntegernumArray = {5, 10, 2, 8, 1}Array.Sort(numArray)MsgBox ("The sorted array is " & Join(numArray, ", ") & ".")2. 创建一个结构体表示一个人，包含姓名、年龄和性别字段Public Structure PersonPublic Name As StringPublic Age As IntegerPublic Gender As StringEnd Structure3. 创建一个数组表示一个班级的学生，使用 Person 结构体表示每个学生的信息Dim students(2) As Personstudents(0).Name = "Tom"students(0).Age = 16students(0).Gender = "Male"students(1).Name = "Jane"students(1).Age = 15students(1).Gender = "Female"students(2).Name = "Bob"students(2).Age = 17students(2).Gender = "Male"四、文件和数据库1. 读取一个文本文件中的内容并显示Dim filePath As String ="C:\Users\UserName\Documents\MyFile.txt"Dim fileText As StringfileText = File.ReadAllText(filePath)MsgBox ("The contents of the file are " & fileText & ".")2. 将一个字符串写入到一个新建的文本文件中Dim filePath As String ="C:\Users\UserName\Documents\NewFile.txt"Dim fileContent As StringfileContent = "This is the content of the new file."File.WriteAllText(filePath, fileContent)MsgBox ("The file was created and the following content was written to it: " & fileContent & ".")3. 从一个 SQL 数据库中查询某个表格的内容Dim connectionString As String = "DataSource=myServerName;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Dim query As String = "SELECT * FROM myTable"Dim dataTable As New DataTable()Using connection As New SqlConnection(connectionString)connection.Open()Using command As New SqlCommand(query, connection)Using adapter As New SqlDataAdapter(command)adapter.Fill(dataTable)End UsingEnd UsingEnd UsingMsgBox ("The following records were retrieved from the database: " & vbNewLine & DataTableToString(dataTable))这些编程题的参考答案可以帮助读者理解 Visual Basic 程序设计的一些基本概念和技术，希望读者能够结合自己的实际情况进行学习和练习，不断提高自己的编程水平。

《Visual Basic程序设计教程》习题参考答案

《Visual Basic程序设计教程》习题参考答案

第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。

文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。

2. 可以自行定义。

标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。

四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。

2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。

3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。

4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。

5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。