省二计算机二级vb程序设计题,2018年3月计算机二级考试VB语言程序设计试题-程序员宅基地

技术标签：省二计算机二级vb程序设计题

(21)窗体上有一个文本框，用于接收正整数。为保证输入数据的合法性　　(即正整数)，可以在该数据输入结束后准备继续其他操作时进行数据的合法性检查。为实现上述目的，应选用的事件是

(22)设有如下程序：

Private Sub Command1_Click()

Dim a(10) As Integer

Dim i As Integer, n As Integer

n = 6

For i = 1 To n

a(i) = i * i

Next i

For i = 1 To n / 2

temp = a(i)

a(i) = a(n - i)

a(n - i) = temp

Next i

For i = 1 To n

Print a(i);

End Sub

程序运行后，单击命令按钮Command1，输出结果为

(23)工程中包含Form1、Form2两个窗体，Form1是启动窗体，两个窗体上都有名称为 Label1的标签和名称为Command1的命令按钮，窗体外观分别如图1、图2所示：

Form1的事件过程如下：

Private Sub Command1_Click()

Form2.Show

End Sub

Form2中的事件过程如下：

Private Sub Command1_Click()

Label1.Caption = Form1.Label1.Caption

End Sub

关于以下程序，下面叙述中错误的是

(24)窗体上有一个名称为Dir1的目录列表框，一个名称为File1的文件列表框。当改变目录列表框的内容时，文件列表框的内容应该与之同步改变。为实现两控件同步操作，应该使用的事件过程是

(25)列表框List1中没有数据项，现编制如下程序：

Private Sub Command1_Click()

For i = 1 To 6

List1.AddItem i

Next i

For i = 5 To 3 Step -1

List1.RemoveItem i

Next i

End Sub

程序运行后，单击命令按钮Command1，则列表框List1中的数据项为

(26)一个工程文件中含有窗体Form1、Form2和标准模块Model1。如果Form1的声明部分有语句Private x As Integer，且Model1中有语句Public y As Integer，则下列说法中，正确的是

(27)下列关于文件及其操作的描述中，正确的是

(28)下列操作说明中，错误的是

(29)在窗体上画一个名称为CD1的通用对话框，并编写如下程序：

Private Sub Command1_Click()

CD1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc"

CD1.FilterIndex = 2

CD1.Action = 2

End Sub

运行程序，并单击命令按钮Command1，下面描述中正确的是

(30)下列关于Visual Basic菜单的叙述中，错误的是

(31)下列关于Sub Main过程的描述中，错误的是

(32)设有如下程序：

Private Sub Command1_Click()

Dim i As Integer

str1 = InputBox("输入一个字符串")

str2 = ""

i = 0

Do While i < Len(str1) / 2

str2 = str2 + Mid(str1, i + 1, 1)

str2 = str2 + Mid(str1, Len(str1) - i, 1)

i = i + 1

Loop

Print str2

End Sub

程序运行后，单击命令按钮Command1，在弹出的输入对话框中输入“abcdef”，则输出结果为

(33)命令按钮Command1的单击事件过程如下：

Private Sub Command1_Click()

Dim x As String

Dim y As String

x = InputBox("输入字母", "输入")

y = IIf((ucase9x) <> "A", "表达式1", "表达式2")

Print y

End Sub

运行程序，单击命令按钮，在弹出的输入对话框中输入“ a”，则以下描述中正确的是

(34)设有如下程序：

Sub proc(x() As Integer)

Static i As Integer

x(i) = x(i) + x(i + 1)

i = i + 1

Loop While i < 2

End Sub

Private Sub Command1_Click()

Dim a(5) As Integer, i As Integer

For i = 0 To 4

a(i) = i + 1

Next i

Call proc(a)

For i = 0 To 4

Print a(i);

Next i

End Sub

程序运行后，单击命令按钮Command1，输出结果为

(35)以下程序将随机产生n个两位整数，并使用冒泡法将它们按递增顺序排序后输出。

Option Base 1

Private Sub Command1_Click()

Dim a() As Integer

Dim i As Integer, j As Integer

Randomize

n = InputBox("输入数据个数")

ReDim a(n)

For i = 1 To n

a(i) = Int(Rnd * 90) + 10

Next i

For i = 1 To n - 1

For j = 1 To n - i

If a(j) < a(j - 1) Then

temp = a(j): a(j) = a(j - 1): a(j - 1) = temp

End If

Next j

Next i

For i = 1 To n

Print a(i);

Next i

End Sub

运行以上程序，发现有错误，需要对j循环的开始语句进行修改。以下正确的修改是

本文链接：https://blog.csdn.net/weixin_35117321/article/details/118689091

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

稀疏编码的数学基础与理论分析-程序员宅基地

文章浏览阅读290次，点赞8次，收藏10次。1.背景介绍稀疏编码是一种用于处理稀疏数据的编码技术，其主要应用于信息传输、存储和处理等领域。稀疏数据是指数据中大部分元素为零或近似于零的数据，例如文本、图像、音频、视频等。稀疏编码的核心思想是将稀疏数据表示为非零元素和它们对应的位置信息，从而减少存储空间和计算复杂度。稀疏编码的研究起源于1990年代，随着大数据时代的到来，稀疏编码技术的应用范围和影响力不断扩大。目前，稀疏编码已经成为计算...

EasyGBS国标流媒体服务器GB28181国标方案安装使用文档-程序员宅基地

文章浏览阅读217次。EasyGBS - GB28181 国标方案安装使用文档下载安装包下载，正式使用需商业授权, 功能一致在线演示在线API架构图EasySIPCMSSIP 中心信令服务, 单节点, 自带一个 Redis Server, 随 EasySIPCMS 自启动, 不需要手动运行EasySIPSMSSIP 流媒体服务, 根..._easygbs-windows-2.6.0-23042316使用文档

【Web】记录巅峰极客2023 BabyURL题目复现——Jackson原生链_原生jackson 反序列化链子-程序员宅基地

文章浏览阅读1.2k次，点赞27次，收藏7次。2023巅峰极客 BabyURL之前AliyunCTF Bypassit I这题考查了这样一条链子：其实就是Jackson的原生反序列化利用今天复现的这题也是大同小异，一起来整一下。_原生jackson 反序列化链子

一文搞懂SpringCloud，详解干货，做好笔记_spring cloud-程序员宅基地

文章浏览阅读734次，点赞9次，收藏7次。微服务架构简单的说就是将单体应用进一步拆分，拆分成更小的服务，每个服务都是一个可以独立运行的项目。这么多小服务，如何管理他们？(服务治理注册中心[服务注册发现剔除])这么多小服务，他们之间如何通讯？这么多小服务，客户端怎么访问他们？(网关)这么多小服务，一旦出现问题了，应该如何自处理？(容错)这么多小服务，一旦出现问题了，应该如何排错?(链路追踪)对于上面的问题，是任何一个微服务设计者都不能绕过去的，因此大部分的微服务产品都针对每一个问题提供了相应的组件来解决它们。_spring cloud

Js实现图片点击切换与轮播-程序员宅基地

文章浏览阅读5.9k次，点赞6次，收藏20次。Js实现图片点击切换与轮播图片点击切换<!DOCTYPE html><html> <head> <meta charset="UTF-8"> <title></title> <script type="text/ja..._点击图片进行轮播图切换

tensorflow-gpu版本安装教程（过程详细）_tensorflow gpu版本安装-程序员宅基地

文章浏览阅读10w+次，点赞245次，收藏1.5k次。在开始安装前，如果你的电脑装过tensorflow，请先把他们卸载干净，包括依赖的包（tensorflow-estimator、tensorboard、tensorflow、keras-applications、keras-preprocessing），不然后续安装了tensorflow-gpu可能会出现找不到cuda的问题。cuda、cudnn。..._tensorflow gpu版本安装

随便推点

物联网时代权限滥用漏洞的攻击及防御-程序员宅基地

文章浏览阅读243次。0x00 简介权限滥用漏洞一般归类于逻辑问题，是指服务端功能开放过多或权限限制不严格，导致攻击者可以通过直接或间接调用的方式达到攻击效果。随着物联网时代的到来，这种漏洞已经屡见不鲜，各种漏洞组合利用也是千奇百怪、五花八门，这里总结漏洞是为了更好地应对和预防，如有不妥之处还请业内人士多多指教。0x01 背景2014年4月，在比特币飞涨的时代某网站曾经..._使用物联网漏洞的使用者

Visual Odometry and Depth Calculation--Epipolar Geometry--Direct Method--PnP_normalized plane coordinates-程序员宅基地

文章浏览阅读786次。A. Epipolar geometry and triangulationThe epipolar geometry mainly adopts the feature point method, such as SIFT, SURF and ORB, etc. to obtain the feature points corresponding to two frames of images. As shown in Figure 1, let the first image be and th_normalized plane coordinates

开放信息抽取(OIE)系统（三）-- 第二代开放信息抽取系统(人工规则, rule-based, 先抽取关系)_语义角色增强的关系抽取-程序员宅基地

文章浏览阅读708次，点赞2次，收藏3次。开放信息抽取(OIE)系统（三）-- 第二代开放信息抽取系统(人工规则, rule-based, 先关系再实体)一.第二代开放信息抽取系统背景第一代开放信息抽取系统(Open Information Extraction， OIE， learning-based, 自学习, 先抽取实体)通常抽取大量冗余信息，为了消除这些冗余信息，诞生了第二代开放信息抽取系统。二.第二代开放信息抽取系统历史第二代开放信息抽取系统着眼于解决第一代系统的三大问题: 大量非信息性提取（即省略关键信息的提取）、_语义角色增强的关系抽取