VB上机操作题综合(优选.)
vb试题及答案选择
vb试题及答案选择VB试题及答案选择1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. 以下哪个选项不是Visual Basic的控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案：D3. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给一个变量？A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.TextC. Dim text As String = TextBox1.ValueD. Dim text As String = TextBox1.Text答案：A4. 如果要在Visual Basic中创建一个窗体（Form），应该使用以下哪个类？A. FormB. UserControlC. PanelD. Button答案：A5. 在Visual Basic中，如何声明一个名为“myFunction”的过程，它不接受参数也不返回值？A. Function myFunction() As VoidB. Sub myFunction()C. Function myFunction() As IntegerD. Sub myFunction() As Integer答案：B6. 如果要在一个事件处理程序中引用当前窗体，可以使用哪个关键字？A. MeB. ThisC. SelfD. Current答案：A7. 在Visual Basic中，如何声明一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As Integer[5]答案：A8. 在Visual Basic中，以下哪个是正确的字符串连接运算符？A. +B. &C. *D. =答案：B9. 如何在Visual Basic中声明一个名为“myClass”的类？A. Function myClassB. Sub myClassC. Class myClassD. Dim myClass答案：C10. 在Visual Basic中，以下哪个关键字用于捕获所有未处理的异常？A. Try...CatchB. If...Then...ElseC. For...NextD. While...End While答案：A11. 在Visual Basic中，如何声明一个名为“myButton”的按钮？A. Dim myButton As ButtonB. Sub myButtonC. Function myButtonD. Dim myButton As Control答案：A12. 在Visual Basic中，如何将一个变量的值增加1？A. Increment myVarB. myVar += 1C. myVar = myVar + 1D. myVar.Increment()答案：C13. 在Visual Basic中，如何声明一个名为“myLabel”的标签？A. Dim myLabel As LabelB. Sub myLabelC. Function myLabelD. Dim myLabel As Control答案：A14. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Quit答案：A15. 在Visual Basic中，如何声明一个名为“myList”的列表？A. Dim myList As List(Of String)B. Dim myList As String()C. Dim myList As ArrayD. Dim myList As Collection答案：A16. 在Visual Basic中，如何声明一个名为“myDictionary”的字典？A. Dim myDictionary As DictionaryB. Dim myDictionary As HashtableC. Dim myDictionary As List(Of String)D. Dim myDictionary As Array答案：A17. 在Visual Basic中，如何声明一个名为“myEvent”的事件？A. Event myEventB. Sub myEvent()C. Function myEvent()D. Dim myEvent As Event答案：A18. 在Visual Basic中，如何声明一个名为“myDelegate”的委托？A. Delegate myDelegateB. Sub myDelegate()C. Function myDelegate()D. Dim myDelegate As Delegate答案：D19. 在Visual Basic中，如何声明一个名为“myEnum”的枚举？A. Enum myEnumB. Sub myEnumC. Function myEnumD. Dim myEnum As Enum。
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操作题题库(含答案)
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
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机试(上机操作)模拟试卷280(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷280(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“组合框”的窗体上画1个名称为Combo1的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图3—37所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Image1的图像框，并通过属性窗口为其装入考生文件夹中的图标文件CARS．ico再画一个名称为Timer1的计时器，一个名称为Command1、标题为“开始”的命令按钮，如图3—37图3—38所示。
要求：通过属性窗口设置适当的属性，再编写适当的事件过程，使得程序运行时，单击“开始”按钮，图片可以每0．2秒向右移动50。
注意：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个组合框。
按表4—25设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个图像框、一个定时器和一个命令按钮。
按表4—26设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写命令按钮的Click事件代码和定时器的Timer事件代码。
参考代码：Private Sub Command1_Click( )Timer1．Enabled=TrueEnd SubPrivate Sub Timer1_Timet( )Image1．Left=50+Image1．LeftEnd Sub步骤3：按要求将文件保存至考生文件夹中。
全国计算机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练习题(上机)含答案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套一、单项选择题（每题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中，使用________事件可以响应文本框内容的改变。
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上机操作练习题及答案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。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
最新文件---------------- 仅供参考--------------------已改成-----------word文本 --------------------- 方便更改VB程序设计—《暴风影音》程序运行前：程序运行后：说明：当用户双击窗体任意区域时，播放器窗口最大化。
提示：窗体最大化可使用语句：Form1.windowstate = 2详细内容：程序使用控件如下：窗体（Form）1个。
控件属性设置：Form1Caption 暴风影音BackColor 黑色参考代码：Private Sub Form_DblClick()Form1.WindowState = 2End SubVB程序设计—《登录框》程序运行：说明：制作如图所示登录框，其中，用户名限制输入6位长度，密码以“*”号显示。
详细内容：程序使用控件如下：窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（Command Button）2个。
控件属性设置：Form1Caption 登录框Label1 Label2Caption 用户名Caption 密码Font 小三Font 小三Text1 Text2Text 清空Text 清空Font 小三Font 小三MaxLength 6 Passwordchar *Command1 Command2Caption 登录Caption 退出Font 小三Font 小三VB程序设计—《静夜思》程序运行：说明：当用户点击程序中的“显示诗句”按钮时，程序相应位置显示对应诗句. 程序使用控件如下：窗体（Form）1个，标签（Label）5个，按钮（CommandButton）4个。
控件属性设置：Form1 Label1Caption 诗词记忆练习Caption 静夜思Font 一号，隶书Label2 Label3Caption 床前明月光，Caption 疑是地上霜。
Font 小二，隶书Font 小二，隶书Visible False Visible FalseLabel4 Label5Caption 举头望明月，Caption 低头思故乡。
Font 小二，隶书Font 小二，隶书Visible False Visible FalseCommand1 Command2Caption 显示诗句Caption 显示诗句Font 三号Font 三号Command3 Command4Caption 显示诗句Caption 显示诗句Font 三号Font 三号参考代码：Private Sub Command1_Click()Label2.Visible = TrueEnd SubPrivate Sub Command2_Click()Label3.Visible = TrueEnd SubPrivate Sub Command3_Click()Label4.Visible = TrueEnd SubPrivate Sub Command4_Click()Label5.Visible = TrueEnd SubPrivate Sub Form_Load()End SubVB订餐功能：当单击窗体上的“计算金额”命令按钮时，弹出如图所示消息框MsgBox ，并显示相应消费金额。
参考代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer, S AsInteger a = Val(Text1) b = Val(Text2) c = Val(Text3)S = 10 * a + 12 * b + 2 * cMsgBox "您好！您本次消费共计" & S & "元", vbOKOnly, "欢迎使用" End SubVB 简单加法计算器运前运行运行功能：当单击窗体上的命令按钮时，窗体上最右侧文本框输出如图所示运算结果。
参考代码：Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1)b = Val(Text2)c = a + bText3 = cEnd SubVB程序设计—《字体设置》程序运行：详细内容：程序使用控件如下：窗体（Form）1个，框架（Frame）2个，标签（Label）4个，组合框（ComboBox）2个，复选框（CheckBox）1个。
控件属性设置：Form1Caption 字体Frame1 Frame2Caption 字体设置Caption 预览Label1 Label2Caption 字体(&T): Caption 大小(&S):Label3 Label4Caption 字形(&Y): Caption 北华大学Font 三号Combo1 Combo2Text 宋体Text 20List 宋体黑体隶书List 102030Check1Caption 加粗参考代码：Private Sub Check1_Click()Label4.FontBold = Not Label4.FontBoldEnd SubPrivate Sub Combo1_Click()Label4.FontName = Combo1.TextEnd SubPrivate Sub Combo2_Click()Label4.FontSize = Combo2.TextEnd SubVB程序设计—《电子表》出题人：柳崧轶程序运行：说明：设计电子表程序实现如下功能：1.电子表能根据系统自动显示当前时间；2.电子表具有定时功能如上图所示，在电子表到达预设时间时，程序闪烁闹铃图标并发出提示音。
详细内容：程序使用控件如下：窗体（Form）1个，图片框（PictureBox）1个，标签（Label）1个,按钮（CommandButton）2个，计时器（Timer）1个。
控件属性设置：Form1Picture1Picture \素材\闹钟.jpgCaption 电子表AutoSize TrueLabel1Timer1BackColor 浅绿色ForeColor 深蓝色Interval 250Font Arial、初号参考代码：Dim tx As DatePrivate Sub Command1_Click()Tx = InputBox("请输入闹铃时间,如8:00", "闹钟设置") End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Label2.Caption = TimeIf tx = Label2.Caption ThenBeepPicture1.Visible = Not Picture1.VisibleEnd IfEnd SubVB程序设计—《读心术》程序运行：说明：设计读心术小游戏，程序功能如上图中规则所示。
详细内容：程序使用控件如下：窗体（Form）1个，图片框（PictureBox）2个，标签（Label）1个,文本框（TextBox）1个，按钮（CommandButton）2个控件属性设置：Form1Caption 读心术BackColor 白色Picture \素材\背景.jpg重要提示：由于程序运行过程中要加载图片，因此请将素材文件夹复制到程序存储根目录中。
参考代码：Private Sub Command1_Click()Picture2.Picture = LoadPicture(App.Path & "\素材\00.jpg") Randomizer = Int(Rnd * 4 + 1)Select Case rCase 1Picture1.Picture = LoadPicture(App.Path & "\素材\1.jpg")Case 2Picture1.Picture = LoadPicture(App.Path & "\素材\2.jpg")Case 3Picture1.Picture = LoadPicture(App.Path & "\素材\3.jpg")Case 4Picture1.Picture = LoadPicture(App.Path & "\素材\4.jpg")End SelectEnd SubPrivate Sub Command2_Click()Command1.Caption = "再来一次"Select Case rCase 1Picture2.Picture = LoadPicture(App.Path & "\素材\11.jpg")Case 2Picture2.Picture = LoadPicture(App.Path & "\素材\22.jpg")Case 3Picture2.Picture = LoadPicture(App.Path & "\素材\33.jpg")Case 4Picture2.Picture = LoadPicture(App.Path & "\素材\44.jpg")End SelectEnd SubVB程序设计—《三角形面积》出题人：胡智鹏程序运行,单击窗体：说明：编写程序，当单击窗体时，首先根据输入框提示输入任意三角形三边长，再计算相应三角形面积，最后将计算结果显示到窗体上。
要求： 1.数据输入使用InputBox函数，样式如截图所示；2.面积值存入变量s中；2.数据输出使用窗体的Print方法，内容如截图所示。
测试数据（边长分别为3、4、5的三角形面积是6）相关知识：面积公式：)(*)(*)(cpbpapps---*=其中：2cbap ++ =参考代码：Private Sub Form_Click()Dim a As Single, b As Single, c As Single, p As Single, s As Singlea = Val(InputBox("请输入边长一", "输入框"))b = Val(InputBox("请输入边长二", "输入框"))c = Val(InputBox("请输入边长三", "输入框"))p = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是:" & sEnd SubVB程序设计—《圆周长面积》出题人：蔡国欣程序运行,单击窗体：说明：编写程序，当单击窗体时，首先根据输入框提示输入任意圆半径，再计算相应圆的周长和面积，最后将计算结果显示到窗体上。