当前位置：文档之家 › VISUAL BASIC程序设计上机考试试题及答案

VISUAL BASIC程序设计上机考试试题及答案

  • 格式：pdf
  • 大小：115.02 KB
  • 文档页数：10

下载文档原格式

  / 10

合集下载

Visual Basic程序设计综合练习题一及答案

Visual Basic程序设计综合练习题一及答案

Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）1．无论何种控件，共同具有的属性是（）。

A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。

A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序，下列说法正确的是（）。

A．只保存窗体文件（.frm）B．只保存工程文件（.vbp）C．分别保存工程文件和标准模块文件(.bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中，变量的默认类型是（）。

A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）。

A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。

A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1.Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表（）。

A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。

A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。

Visual Basic 程序设计题

Visual Basic 程序设计题

【编号:1】'------------------------------------------------- '【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

' (响应)求闭区间[1..m]上所有偶数之积，并将结果输'出在窗体上。

m是大于1的自然数，例如m=10，则输出3840'-------------------------------------------------Private Function fun(m As Integer) As Double'******begin******'******end******End FunctionPrivate Sub Form_Click()Print fun(10)TestFuncEnd SubPrivate Sub TestFunc()Dim fIn As IntegerDim fOut As IntegerDim i As IntegerDim t As IntegerDim j As IntegerDim l As IntegerDim a(10) As String, b As StringfIn = FreeFileOpen App.Path & "\in.dat" For Input As #fInfOut = FreeFileOpen App.Path & "\out.dat" For Output As #fOutFor i = 1 To 3Line Input #fIn, a(i)b = ""For j = 1 To Len(a(i))t = Asc(Mid(a(i), j, 1)) Xor 10b = b & Chr(t)Nextl = Val(b)Print #fOut, fun(l)NextClose #fInClose #fOutEnd Sub参考答案:Dim sum As DoubleDim i As Integersum = 1#For i = 1 To mIf i Mod 2 = 0 Thensum = sum * iEnd IfNextfun = sum【编号:2】'------------------------------------------------- '【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

Visual Basic程序—考试题库及答案

Visual Basic程序—考试题库及答案
已知：Option Base 1，Dim a() As Integer, Dim b(-1 to 2) As Intege r，Dim c(4) As Single，则下列赋值操作中，正确的赋值是( )。
收藏 A. a=b B. b=a C. c=a D. a=c
回答错误!正确答案： A
a 为数组名，合法的数组元素是＿＿＿＿＿＿。
使用 Windows XP 保存一新建的工程，其默认的路径是______。
收藏 A. My Documents B. Windows C. VB98 D. VB
回答错误!正确答案： C
所谓默认属性是指不用指定控件的属性名就可以代表其属性。一个标签控件 La bel1 的默认属性是( )。
收藏 A. Name B. FontSize C. Top D. Caption
回答错误!正确答案： C
下列选项中，不能用来在模块之间传递数据的是( )。
收藏 A. 模块级变量 B. 对象属性 C. 全局变量 D. 全局数组
回答错误!正确答案： A
下列正确的答案为：
收藏 A. 50 个 Twip 为一磅 B. 40 个 Twip 为一磅 C. 30 个 Twip 为一磅 D. 20 个 Twip 为一磅
收藏 A. Index B. Name C. Caption D. Default
回答错误!正确答案： A
打开一个存在的顺序文件 SeqOld.dat，用户要从该文件读出数据，指定文件 号为 2，正确的语句为( )。
收藏 A. Open seqOld.dat For Output As #2 B. Open "seqOld.dat" For Output As #2 C. Open "seqOld.dat" For Input As #2 D. Open seqOld.dat For Input As #2

Visual Basic程序设计复习题及答案

Visual Basic程序设计复习题及答案

中南大学网络教育课程考试复习题及参考答案Visual Basic程序设计(专科)一、单项选择题：1.Visual Basic程序中的注释所使用的字符是 [ ]A. 'B. :C. \D. _2.若要设置定时器的定时间隔设为10秒，应将( )属性值设为10000。

[ ]A. IntervalB. ValueC. EnabledD. Text3.算法一般都可以用( )三种控制结构组合而成。

[ ]A.循环、分支、递归B.顺序、循环、嵌套C.循环、递归、选择D.顺序、选择、循环4.下列可调整图片框的大小以适合图片的属性是 [ ]A.stretchB. autosizeC. pictureD. oledropmode5.用下面的语句所定义的数组的元素个数是 [ ] Dim arr(3 to5,-2 to 2)A.20B. 12C.15D. 246.下列不属于常量的是 [ ]A. 12B. “ch”C. abcD. 1.237.InputBox函数的返回值类型为 [ ]A.数值型B.字符型C.逻辑型D.变体型8.默认情况下，语句：Dim student(10,5) 定义的数组有( )个元素。

[ ]A.50B.6C.15D.669.Abs( -3.14)的值是 [ ]A. 3B. -3C.-3.14D. 3.1410.要让菜单项无效，应将( )属性值设置为 False。

[ ]A. VisibleB. EnabledC. MoveableD. Checked11.以下代码，循环( )次 [ ]Dim nFor n = 1 To 50 Step 5sult.Text = Str(n)NextA.12B.10C.50D.1112.表达式 Mid("Beijing2008",4,4)的值是 [ ]A. BeijB. jingC. inj2D. 200813.A$="+3.14+2"，则Val（A$）的值为 [ ]A. +3.14+2B. +5.14C. 3.14D. 5.1414.语句：Dim student(10,5 to 100) 定义的是一个( )维数组。

《VisualBasic程序设计》综合练习题(二)及答案

《VisualBasic程序设计》综合练习题(二)及答案

《Visual Basic程序设计》综合练习题（二）及答案一、单项选择1．键盘事件的执行顺序是（ B ）A．KeyPress、KeyDown、KeyUp B．KeyDown、KeyPress、KeyUpC．KeyUp、KeyDown、KeyPress D．KeyUp、KeyPress、KeyDown2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（ C ）。

A．Help B．F10 C．F1 D． Esc3．下列对象不能响应 Click事件的是（ D ）A、列表框B、图片框C、窗体D、计时器4．在Visual Basic中，变量的默认类型是（ B ）。

A．Integer B． VariantC．Double D．Currency5．WinsockServer.LocalPort=10001语句的含义是（ A ）。

A．设置侦听端口 B．设置计算机IP地址 C．设置中断地址 D．设置通信协议6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ B ）属性设置就有效。

A．MaxButton B．BorderSyleC．Width D．MinButton7．如果想让文本框中的内容在运行时不能编辑，需将文本框的（ C ）属性设置为True。

A．TabStop B．MultiLine C．Locked D．Visible8．要设置命令按钮的背景图形，必须设置的两个属性是（ D ）。

A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在Visual Basic中，变量的默认类型是（ D ）。

A．Integer B．Double C．Currency D．Variant10．如下数组声明语句，正确的是（ D ）。

A．Dim a[3,4] As Integer B．Dim a(3 4) As IntegerC．Dim a(n,n) As Integer D．Dim a(3,4) As Integer11．表达式7+10 Mod 3*2+2（ A ）。

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

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

vb上机考试题库及答案86套一、单项选择题（每题2分，共10题，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. SqrD. Abs答案：A3. 在VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Name答案：A4. VB中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A5. 在VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A6. VB中，以下哪个关键字用于循环遍历数组？A. ForB. DoC. WhileD. Loop答案：A7. 在VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A8. VB中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. MultiLineC. PasswordCharD. TextAlign答案：A9. 在VB中，以下哪个事件用于响应键盘按键？A. KeyDownB. KeyUpC. KeyPressD. MouseClick答案：C10. VB中，以下哪个控件用于选择日期？A. ComboBoxB. ListBoxC. MonthViewD. DateTimePicker答案：D二、填空题（每题2分，共5题，共10分）1. 在VB中，使用________关键字可以声明一个变量。

答案：Dim2. VB中的________函数可以返回一个随机数。

答案：Rnd3. 在VB中，使用________属性可以设置控件的背景颜色。

答案：BackColor4. VB中，使用________事件可以响应文本框内容的改变。

《Visual Basic 6.0程序设计》习题答案

《Viusla Basic 6.0程序设计》习题答案习题1答案一、简答题1. 答：Windows应用程序通常以窗口形式运行，窗口上包含文本框、按钮等控件。

在Visual Basic中，采用“所见即所得”方式设计Windows应用程序，可以把控件直接拖放到窗口上，而不用编写代码来实现用户界面。

2. 答：在任务1中，窗体、标签和按钮都是对象，在设计过程设置了这些对象的许多属性，例如Caption属性等；还在按钮的Click事件中编写程序代码，以便在单击按钮时执行相应的操作。

二、填空题1. 窗体模块；标准模块；类模块2. 对象；过程3. 运行；启动4. .frm；.vbp三、选择题1. A2. D3. D4. B一、简答题1. 答：Visual Basic有以下基本数据类型：Byte（字节型）、Integer （整型）、Long（长整型）、Single（单精度浮点型）、Double（双精度浮点型）、Currency（货币型）、String（变长）、String（定长）、Variant（可变型数字）、Variant（可变型字符）、Boolean（布尔型）、Date （日期型）、Object（对象型）。

2. 答：Visual Basic的表达式分为以下4类：算术表达式、字符串表达式、关系表达式、布尔表达式。

3. 答：Print语句用于输出数字和文本，通常是把结果输出到窗体上。

4. 答：分支语句有两个：If语句和Select语句，它们都是根据条件来执行特定的语句。

5. 答：循环语句有3种语句：For、While和Do，For用于执行指定次数，While为先测试型循环语句，Do为后测试型循环语句。

6. 答：定长数组包含固定数目的元素，通过数组名和下标来访问每个元素。

7. 答：动态数组和定长数组的不同之处在于：动态数组的元素数可以动态改变。

8. 答：过程的参数有两种传递方式：按值传递参数和按地址传递参数。

二、填空题1. “"”；“#”2. 字母；255；句号、空格、类型说明符、运算符等3. False4. 495. marriage And age >= 26 And workingage >=56. 177. 408. 149. 10 1210. 2 4 7 11 1611. s=2 s=5 s=9三、选择题1. D2. B3. C4. D5. A6. B一、简答题1. 答：不是。

VB程序设计练习题附加答案

VB程序设计练习题附加答案《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__对象________的可视化程序设计语言，采取了事件驱动________的编程机制。

2、在VB中工程文件的扩展名是vbp__________，窗体文件的扩展名是___frm_________，标准模块文件的扩展名是__bas_________。

3、执行“工程”菜单下的_部件_________命令，可选择并添加ActiveX控件。

4、Visual Basic 6.0用于开发__ WINDOWS ________环境下的应用程序。

二、选择题1、下面不是VB工作模式的是（C）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（D）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用__ T abstop ____________属性。

2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。

3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。

vb程序设计考试题库及答案

vb程序设计考试题库及答案一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. RealD. All of above答案：D2. VB中，哪个函数用于计算两个数的最大值？A. MinB. MaxC. AbsD. Sgn答案：B3. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. All of above答案：D4. VB中，以下哪个是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of above答案：D5. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. Select...CaseD. All of above答案：D6. VB中，哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. SqrD. Int答案：A7. 在VB中，以下哪个是合法的数组声明？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C8. VB中，哪个函数用于将字符串转换为大写？B. UCaseC. StrCompD. StrConv答案：B9. 在VB中，以下哪个是正确的事件处理程序的声明方式？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案：A10. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. ExpD. Log11. 在VB中，以下哪个是正确的文件打开模式？A. Open For InputB. Open For AppendC. Open For RandomD. All of above答案：D12. VB中，哪个函数用于计算一个数的指数？A. SqrB. PowC. ExpD. Log答案：B13. 在VB中，以下哪个是正确的窗体属性？A. CaptionC. Both A and BD. None of the above答案：C14. VB中，哪个函数用于计算一个数的自然对数？A. SqrB. PowC. ExpD. Log答案：D15. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C16. VB中，哪个函数用于计算一个数的四舍五入？A. RoundB. IntC. FixD. Sgn答案：A17. 在VB中，以下哪个是正确的控件属性？A. NameB. CaptionC. Both A and BD. None of the above答案：C18. VB中，哪个函数用于计算一个数的符号？A. AbsB. SgnC. RoundD. Int答案：B19. 在VB中，以下哪个是正确的控件事件？A. KeyPressB. KeyDownC. Both A and BD. None of the above答案：C20. VB中，哪个函数用于计算一个数的固定整数部分？A. RoundB. IntC. FixD. Sgn答案：C二、填空题（每题2分，共20分）21. VB中，使用________函数可以将一个字符串转换为小写。

大学《VisualBasic程序设计》试题库及答案

单选题在数组的声明格式中，数组名后可以是( )。

收藏A.小括号()B.方括号[]C.尖括号<>D.花括号{}回答错误!正确答案： A下列语句中，必须使用字符串变量的语句是( )。

收藏A.Print #B.Write #C.Line Input #D.Input #回答错误!正确答案： C启动Visual Basic后, VB为用户建立的第一个窗体是()。

收藏A.窗体B.FormC.Form1D.窗体1回答错误!正确答案： C在使用Open语句打开文件时，若省略“For方式”，则打开的文件存取方式为收藏A.随机存取方式B.二进制方式C.顺序输出D.顺序输入回答错误!正确答案： A设a = "MicrosoftVisualBasic" ，则以下使变量b的值为"VisualBasic"的语句是( )。

收藏A.b = Mid(a, 10)B.b = Right(a, 10)C.b = Left(a, 10)D.b = Mid(a, 11, 10)回答错误!正确答案： A用Open语句打开一个随机文件时，若省略“Len＝记录长度”，则记录的长度为收藏A.64B.128C.1024D.256回答错误!正确答案： B打开菜单编辑器的热键为收藏A.Ctrl+EB.Alt+MC.Alt+ED.Ctrl+M回答错误!正确答案： A对于如下结构的循环：Do 循环体Loop Until 条件则下列正确的叙述是：。

收藏A.如果“条件”为常数-1，则至少执行二次循环体；B.如果“条件”为常数-1，则只执行一次循环体；C.如果“条件”为常数0，则一次循环体也不执行。

D.如果“条件”为常数0，则只执行一次循环体；回答错误!正确答案： B如果在定义一个过程时，没有使用任何限制的关键字，则定义的过程属于收藏A.PrivateB.StaticC.随机的D.Public回答错误!正确答案： D在Visual Basi6.0中，合法的字符串常量是( )。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

1.某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。OptionExplicitDima(1To20)AsInteger,iAsInteger,jAsInteger,tAsIntegerPrivateSubForm_Load()ShowPrint"原始数组是："RandomizeFori=1To20a(i)=Int(Rnd*90)+10Printa(i);NextiPrintPrint"现在数组是："Fori=1To10j=21-it=a(i):a(i)=a(j):a(j)=tNextiFori=1To20Printa(i);NextiEndSub2.从数组中删除一个数。先定义一个一维数组，大小、数组的值自定。从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；2）能实现多次删除OptionExplicitDima()AsInteger,iAsInteger,jAsInteger,nAsInteger,kAsInteger,mAsIntegerDimfAsBooleanPrivateSubCommand1_Click()n=InputBox("查找的数是：","请输入")i=0:f=FalseDoIfa(i)=nThenj=i:f=TrueFork=jToUBound(a)-1a(k)=a(k+1)NextkReDimPreservea(UBound(a)-1)i=i-1EndIfi=i+1LoopWhile(i<=UBound(a))Iff=FalseThenMsgBoxn&"不在该数组中"ElsePrint"删除"&n&"后的数组是:"Fori=0ToUBound(a)Printa(i);NextiEndIfPrintEndSubPrivateSubForm_Load()ShowReDima(9)AsIntegerm=1Print"原来数组为："Fori=0To9a(i)=InputBox("请输入第"&m&"个数：")Printa(i);m=m+1NextiPrintEndSub3.数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。注意：要求利用动态数组，能够实现多次插入OptionExplicitDima()AsVariant,iAsInteger,nAsInteger,jAsInteger,bAsInteger,cAsIntegerPrivateSubCommand1_Click()PrintReDimPreservea(c+1)n=InputBox("插入的数是","请输入")Fori=0Tocb=n-a(i)Ifb<=0ThenForj=c+1Toi+1Step-1a(j)=a(j-1)Nextja(i)=nExitForEndIfNextiIfi=c+1Thena(c+1)=nFori=0Toc+1Printa(i);Nextic=UBound(a)EndSubPrivateSubForm_Load()ShowReDima(9)a=Array(3,6,9,11,15,19,33,44,56,67)c=UBound(a)Fori=0TocPrinta(i);NextiEndSub4.6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。如：歌手395分歌手187分歌手480分歌手270分OptionExplicitDima(4)AsInteger,m(4)AsInteger,iAsInteger,jAsInteger,tAsInteger,minAsInteger,maxAsInteger,pAsIntegerDims(4)AsIntegerPrivateSubForm_Load()ShowFori=1To4s(i)=0min=100:max=1Forj=1To6a(i)=InputBox("第"&j&"个评委给"&i&"打分1-100")s(i)=s(i)+a(i)Ifa(i)>maxThenmax=a(i)Ifa(i)Nextja(i)=(s(i)-min-max)/4m(i)=a(i)NextiFori=1To3p=iForj=i+1To4Ifa(j)>a(p)Thenp=jNextjt=a(i):a(i)=a(p):a(p)=tNextiFori=1To4Forj=1To4Ifa(i)=m(j)ThenPrint"歌手"&j&""&a(i)&"分"ExitForEndIfNextjNextiEndSub5.把文本框1、文本框2指定的范围内的所有素数添加到列表框中，并选中列表框数据中最后一位是9的所有数据(设定selected属性)，把它们的和值输出。OptionExplicitDimaAsLong,bAsLong,iAsInteger,jAsInteger,kAsInteger,sAsIntegerPrivateSubCommand1_Click()a=Text1.Text:b=Text2.TextFori=aTobForj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenList1.AddItemiIfRight(i,1)=9ThenList1.Selected(k)=True:s=s+ik=k+1EndIfNextiLabel3.Caption="列表框数据中最后一位是9的所有数据和为："&sEndSub6.任意输入一组字符，统计出大写字母（65-90）多少个，小写字母（97-122）多少个，数字（48-57）多少个？要求用过程实现。OptionExplicitDimaAsString,mAsInteger,jAsInteger,nAsInteger,iAsInteger,bAsStringPrivateSubCommand1_Click()zfLabel1.Caption="大写字母"&m&"个"&"小写字母"&n&"个"&"数字"&j&"个"EndSubPrivateFunctionzf()a=Text1.TextFori=1ToLen(a)b=Asc(Mid(a,i,1))Ifb>=48Andb<=57Thenj=j+1Ifb>=65Andb<=90Thenm=m+1Ifb>=97Andb<=122Thenn=n+1NextiEndFunction

PrivateSubForm_Load()EndSub7.随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。OptionExplicitOptionBase1Dima(5,5)AsInteger,iAsInteger,jAsInteger,sAsIntegerPrivateSubForm_Load()ShowRandomizeFori=1To5Forj=1To5a(i,j)=Int(Rnd*100+1)Ifi=1Andj=1Thena(i,j)=1Ifi=1Andj=5Thena(i,j)=1Ifi=5Andj=1Thena(i,j)=1Ifi=5Andj=5Thena(i,j)=1Printa(i,j);NextjPrint:PrintNextiFori=1To5s=s+a(1,i)+a(5,i)NextiFori=2To4s=s+a(i,1)+a(5,i)NextiList1.AddItemsEndSub8.编写一个函数，能将字母按下列规律译成密码：A<-->Za<-->zB<-->Yb<-->y即第1个字母与第26个字母互换，第i个字母与第(26-i+1)个字母互换。在文任意输入一个字符串，调用该函数将密码显示在另一个文本框中。OptionExplicitDimaAsString,iAsInteger,bAsIntegerPrivateSubCommand1_Click()yimaEndSubPrivateFunctionyima()a=Text1.TextFori=1ToLen(a)b=Asc(Mid(a,i,1))Ifb<=90ThenText2=Text2+Chr(155-b)