首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3,3)As Integer For i=1 To 3 For i
阅读程序: Option Base 1 Private Sub Form_Click() Dim Arr(3,3)As Integer For i=1 To 3 For i
admin
2019-04-29
22
问题
阅读程序:
Option Base 1
Private Sub Form_Click()
Dim Arr(3,3)As Integer
For i=1 To 3
For i=1 To 3
If j=i Or j=3-i+1 Then
Arr(i,j)=1
Else
Arr(i,j)=0
End If
Next j
Next i
For i=1 To 3
For j=1 To 3
Print Arr(i,j);
Next j
Print
Next i
End Sub
程序运行后,如粜单击窗体,则输出结果为
选项
A、
B、
C、
D、
答案
D
解析
本题是用一个二重循环为二维数组赋值,只有满足下标j=i或者j=3-i+1才将其设置为1,否则设置为0,如果写出这个二维数组可以看出,两个对角线的元素被设置成1
转载请注明原文地址:https://jikaoti.com/ti/WJN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为计算1+2+22+23+24+…+210。的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1_Click()Dima%,b%,i%s=1a=2Fori
在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3-85所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;②请编写适当的程序完成以下功能:在Text1中输入40(度数),
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签,并设置适当属性以满足以下要求:①标签的内容为“计算机等级考试”;②标签可根据显示
在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图3-185(a)所示。输入商品名称后,选中一种付款方式,则“成交”按钮变为可用,选择一种或多种“服务”后,单击“成交”按钮,则把相应信息显示在下面的图片框中,如图3-185(b)所示。若不选任何
考生文件夹下的工程文件sjt4.vbp中有如图3-161所示的控件。程序功能如下:程序运行时,在Text1中输入一个商品名称,在Text2中输入一个数量,单击“计算”按钮,则会在列表框中找到该商品的单价,乘以数量后显示在Text3中(如图3-161所示);
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drivel、Dirl和Filel,为了使它们同步操作,必须触发驱动器的Change事件和目录的Change事件,在这两个事件中执行的语句分别为()。
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
在E—R图中,用来表示实体联系的图形是
“商品”与“顾客”两个实体集之间的联系一般是
软件测试的目的是
随机试题
患者女,42岁。1天前出现呕吐,黄疸;发热。该患者的诊断是
A.浆细胞B.单核细胞C.嗜碱性粒细胞D.嗜酸性粒细胞E.中性粒细胞具有抗过敏作用的是
患者,男性,27岁,肺炎球菌肺炎3周,在抗生素治疗下体温退后复升,白细胞持续上升,应考虑
高强混凝土应选用质量稳定、强度等级不低于()级的硅酸盐水泥或普通水泥。
(用户名:41;账套:401;操作日期:2013年1月31日)在“正式人员1”工资类别下,录入工资变动数据。姓名:杨南萧事假天数:5
为了搜集某地区国有工业企业生产情况的资料,则调查单位是()。
根据企业所得税相关规定,企业债务重组确认的应纳税所得额占当年应纳税所得额()以上的,可以在5个纳税年度内均匀计入各年度应纳税所得额。
在传统的DoS攻击基础上产生的,使许多分布式的主机同时攻击一个目标,从而导致目标瘫痪,这种攻击属于()。
Readthememoandtheletterbelow.Completethecustomercomplaintform.Writeawordorphrase(inCAPITALLETTERS)ornumber
YouarerequiredtowriteanInquiryLetteraccordingtothefollowinginformationgiveninChinese.Remembertowriteitinno
最新回复
(
0
)