vb的操作题(有答案)

1.(1)在考生文件夹中有工程文件sj126.vbp,其中的窗体 如图所示。

程序刚运行时,会生成一个有10个元素的整型数 组。

若选中"查找最大值"(或"查找最小值")单选按钮,再 单击"查找"按钮,则找出数组中的最大值(或最小值),并 显示在标签Label2中。

请去掉程序中的注释符,把程序中 的 ?改为正确的内容。

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

最后把 修改后的文件按原文 件名存盘。

Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i) > x Then x End If = a(i)

ElseIf a(i) < y Then y End If Next = a(i) If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.(2)在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口其 设置为圆形。

画一个名称为List1的列表框,并在属性窗口中设置列表项的 值分别为1、2、3、4、5。

将窗体的标题设为"图形控件"。

单击列表框中 的某一项,则将所选的值作为形状控件的填充参数。

例如,选择3,则形状 控件中被竖线填充。

如图所示。

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

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

在 Shape 控件中,可以用 FillStyle 属性设置图形的填充图案,0:透明,2:虚线,3: 点线,4:点划线,5:双点划线,6:内实线。

List控件的Click过程为: Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3. (1) 在名称为Form1的窗体上画一个文本框, 名称为Text1;

再画二个命令按钮,名称分别为C1、C2,标题分别为"隐藏"、 "显示"(如图所示)。

请编写适当的过程,使得在运行 时,如果单击"隐藏"按钮,则文本框消失,而如果单击"显 示"按钮,则文本框显示出来。

程序中不得使用任何变量。

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

隐藏:text1.visible=false 显示:text1.visible=true 4. 在窗体上画二个文本框,名称分别为Text1、Text2。

请设 置适当的控件属性, 并编写适当的过程, 使得在运行时, 如果在Text1中每输入一个字符,则显示一个"*",同时在 Text2中显示输入的内容(如图所示)。

程序中不得使用任 何变量。

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

答案:将 Text1 的文本框的 PasswordChar 属性为"*"。

Private Sub Text1_Change() Text2.Text = Text1.Text End Sub 5. (1)在考生文件夹中有工程文件wy69.vbp及其窗体文件 wy69.frm,该程序是不完整的,请在有?号的地方填入正确 内容,然后删除?及所有注释符(即'号)但不能修改其他 部分。

存盘时不得改变文件名和文件夹。

本题描述如下:在窗体上有一个列表框,名称为List1,一 个文本框,名称为Text1,和一个命令按钮,名称为 C1,标 题为"复制"。

要求程序运行后,在列表框中自动建立四个列表项,分别为 "Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的 一项, 则单击"复制"按钮时, 可以把该项复制到文本框中 (如 图所示)。

Private Sub Command1_Click() Dim i As Integer For i = 0 To 3 Text1.Text = List1 Next i End Sub 6 在考生文件夹下有一个工程文件sj31.vbp,相应的窗 体文件为sj31.frm,此 外还有一个名为datain.txt的文本文件,其内容如下: 32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后,单击窗体,将把文件datain.txt中的数据 输入到二维数组 Mat 中,在窗体上按5行、5列的矩阵形式显示出来,并输出 矩阵左上-右下对角线 上的数据,如图所示。

在窗体的代码窗口中,已给出 了部分程序,这个程序 不完整,请把它补充完整,并能正确运行。

要求: 去掉程序中的注释符,把程序中的 ? 改为正确的内 容,使其实现上述功

能,但不能修改程序中的其他部分。

最后把修改后的 文件按原文件名存盘。

解题方法: 打开sjt5.vbp中的Form1窗体,打开代码窗口,修改后的代 码如下: Option Base 1 Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(M, N) Dim i, j Open App.Path & "\" & "datain.txt" For Input As #1 For i = 1 To N For j = 1 To M Input #1, Mat(i, j) Next j Next i Close #1

  • vb操作题答案

    vb操作题答案

    vb操作题答案...

    贡献者:网络收集
    806142
  • vb操作选择题及答案

    vb操作选择题及答案

    vb操作选择题及答案...

    贡献者:网络收集
    455806
  • VB操作题

    VB操作题

    VB操作题...

    贡献者:网络收集
    17418
  • vb24题操作答案

    vb24题操作答案

    vb24题操作答案...

    贡献者:网络收集
    898838
  • VB作业第三章习题答案

    VB作业第三章习题答案

    VB作业第三章习题答案...

    贡献者:网络收集
    524718
  • 2013计算机二级vb操作题答案-题库版(二)

    2013计算机二级vb操作题答案-题库版(二)

    2013计算机二级vb操作题答案-题库版(二)...

    贡献者:网络收集
    646160
  • VB上机操作练习题

    VB上机操作练习题

    VB上机操作练习题...

    贡献者:网络收集
    188924
  • vb作业题1—参考答案

    vb作业题1—参考答案

    vb作业题1—参考答案...

    贡献者:网络收集
    702545
  • 200901-VB操作题

    200901-VB操作题

    200901-VB操作题...

    贡献者:网络收集
    424744
  • VB国家计算机考试操作题

    VB国家计算机考试操作题

    VB国家计算机考试操作题...

    贡献者:网络收集
    98387
  • 网友在搜
    rmk水凝粉霜 nfft 2 nextpow2 l how to draw贵哥 pppd178 ed2k 亿格瑞a5 总是缓冲 翻包活动 xmao熊猫tv ps抠透明公章 wince蓝牙驱动 hdmi信号带宽 范文澜和汪精卫 2016世界女排大奖赛程 非常小特务5 r 中rpart plot 剪枝 clitoris play 魅族a6800参数 sumline vuejs i ve读法 redis hash 搜索 nicehashminer下载 何唯reiko真名 10gb fcoe配置 mini stx 雷电 java int 除法 取整数 surfacebook改装 日志 app javazoom是什么 annualised return 最美的动漫风景 cortexa7有哪些 laird remove 2kol体验服 5a写字楼租金多少 肉丸潜艇mili c string 类型转换 长江黄河图文资料 中国有jb嘻哈 sql2008sp1补丁 www.sz jic.com b2司机找工作 gee郑爽 安225运输机落户中国 sdmu344主演 iPadair更换电池 way of wade wow1 ipad3图片大全 apple sweet服饰 alphacam cdm 视频@greenbef windows8精简版 idea打印日志乱码 ellis faas 香港 110v 220v 2000w 2014 民提字第216号 ruby 打印对象 cb菌个人资料 nnpj075中文字幕 easyx如何使用

    声明:本站内容部分源于网络转载,出于传递更多信息之目的,并不意味着赞同其观点或证实其描述。文章内容仅供参考,请咨询相关专业人士。

    如果无意之中侵犯了您的版权,或有意见、反馈或投诉等情况, 联系我们:点击这里给我发消息

    Copyright © 2016 All Rights Reserved 智诚知识网 手机站