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

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

    vb操作选择题及答案

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

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

    VB操作题

    VB操作题...

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

    vb24题操作答案

    vb24题操作答案...

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

    VB作业第三章习题答案

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

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

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

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

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

    VB上机操作练习题

    VB上机操作练习题...

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

    vb作业题1—参考答案

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

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

    200901-VB操作题

    200901-VB操作题...

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

    VB国家计算机考试操作题

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

    贡献者:网络收集
    635913
  • 网友在搜
    payixakiznigmuhabiti4 徐文长传思考题及答案 ipad pro 9.7发布时间 Jeff Van Vonderen win10 hdmi 缩放 platinum credit card 威海 政协常委 l470 固态硬盘 淮河入海口在哪里 你要青春干嘛 马云视频 段启明西厢记赏析答案 空间流行的毛笔字 1.62.00基带是哪家的 周星驰台词 好像一条狗 百度贴吧 精简版 田和平 苏蟹阁 材质是牛皮的 英语 爱国100字小故事 qoros怎么读 深圳女王玫主微博 夫妻搭档 韩国电影 iphone 6s 16g价格 上帝的教会真理发表册1 halsey和g eazy合影 whisk是什么意思啊 汉化彩漫 薇诺娜好用吗 level against k线后复权是什么意思 王思佳 律师爸爸 natasha poly掉鞋视频 喊你一声老公 怎么拿到星巴克代理权 rpg maker游戏图片 8250u与i5-7300hq legal hight高清下载 babacaoner 澳门旅行价位 飞利浦s5570好么 樱桃3800 外壳太薄 excel去掉隐qq空格 settle sb in 吉尔伽美 tolino vision评测 松雪泰子电影 dsdtranscoder 下载 睾酮具有什么结构特点 智友影视官网 荒野之息 城市 动漫美女脱去胸动态图 diora baird pohoto 泥浆处理方案 truth edition kms如何激活win10 新英朗压缩比 java add(vol) 罪恶王冠亚里沙本子图 摄像头 usb 板

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

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

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