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操作题答案...

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

    vb操作选择题及答案

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

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

    VB操作题

    VB操作题...

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

    vb24题操作答案

    vb24题操作答案...

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

    VB作业第三章习题答案

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

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

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

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

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

    VB上机操作练习题

    VB上机操作练习题...

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

    vb作业题1—参考答案

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

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

    200901-VB操作题

    200901-VB操作题...

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

    VB国家计算机考试操作题

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

    贡献者:网络收集
    498270
  • 网友在搜
    温州德信爱琴海岸地图 wagner symphonie 适马1770三代 饭后4小时血糖8.4 西格里夫.萨松 bose qc35测评 绝地求生1.0 UMP 非竞争性抑制作用 abb global support wss 267 家庭用车昕锐1.4够用吗 世界三大人种数量 makefile的obj ios7 越狱恢复 八宝粥的配料 2.0帕萨特多少马力 清远英德新房 www.2016je .com 沃尔沃s60lt3是b级车吗 法国人对拿破仑的评价 华为安卓8.0功能少了 同色系颜色动物 深圳利剑一号 a lock to the door 太子妃为何被禁? 杜世源死了 寒门状元有声小说 movado手表什么档次 印度空漫画 pe系统卸载 webstorm调字体大小 疯狂填字3答案201-220 权力的游戏全英文字幕 形容欧式风格的句子 rotman商学院的特点 单公仔红酒 韩娱之边伯贤同人小说 天津市西青区 星辰武神 072617_001主演是 ビースト.ダソス歌词 血清促卵泡刺激素12.28 女士皮靴中跟 学生眼睛0.5 暗夜猎手技能 一念无明粤语资源 django 用户管理 至尊狂神无弹窗 住院结算单丢了能补吗 Re:Monster漫画 原来她只是女配 竹下鸢 民事反驳证据 格力电器股票分红 月牙儿1986 mp4 marinewaterfull 腮腺炎多久能好 160 107斤穿什么码衣服 男生发昂跟嗯的区别

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

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

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