首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框,其MultiLine 属性为True。程序运行后,如果单击窗体,则用随机数函数产生16个0~99的整数,并按4行4列的矩阵形式在文
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框,其MultiLine 属性为True。程序运行后,如果单击窗体,则用随机数函数产生16个0~99的整数,并按4行4列的矩阵形式在文
admin
2019-01-16
32
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框,其MultiLine 属性为True。程序运行后,如果单击窗体,则用随机数函数产生16个0~99的整数,并按4行4列的矩阵形式在文本框中显示出来;然后在文本框中输出该矩阵对角线上的数。程序运行情况如图1-300所示。
这个程序不完整,请把它补充完整,并能正确运行。
提示:程序中的vbCrLf 是回车-换行符。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。
在窗体上有两个命令按钮,其名称分别为Command1和Command2,标题分别为“开始”和“停止”;有两个水平滚动条,其名称分别为HScroll1和 HScroll2,Min 属性均为0,Max属性均为100;此外还有一个计时器,其名称为Timer1,如图1-301(a)所示。程序的功能是,程序运后,如果单击“开始”命令按钮,则滚动条HScroll1中的滚动框从左向右移动(每次移动一个刻度),移到最右端后,自动回到最左端,再重新向右移动;同时滚动条HScroll2 中的滚动框从右向左移动(每次移动一个刻度),移到最左端后,自动回到最右端,再重新向左移动。如果单击“停止”按钮,则两个滚动条中的滚动框停止移动,如图1-301(b)所示。该程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Mat(i, j) = Int(Rnd * 100) S = S & Str(Mat(i, j)) & " " If i = j Then T = T & Str(Mat(i, j)) & " " 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Private Sub Command1_Click() Form1.Timer1.Enabled = True End Sub Private Sub Command2_Click() Form1.Timer1.Enabled = False End Sub Private Sub Timer1_Timer() n1 = n1 + 1 If n1 = 100 Then n1 = 0 HScroll1.Value = n1 n2 = n2 - 1 If n2 = 0 Then n2 = 100 HScroll2.Value = n2 End Sub 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/owm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下选项中,不合法的VisualBasic的变量名是( )。
利用通用对话框控件打开字体对话框的操作是
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动
编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(x,12)+xEndSubPrivateFunctionfun1(mAsI
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click() x=0 DoWhilex
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.En
设窗体上有一个名称为Timer1的计时器控件,其Interval属性被设置为500,Enabled属性被设置为True;还有一个名称为Text1的文本框和下面的事件过程:PrivateSubTimer1_Timer()Sta
随机试题
AMI患者半夜突然出现呼吸困难,咳粉红色泡沫样痰,第一心音减弱,舒张期奔马律,心尖可闻及2级收缩期杂音,则该患者诊断为
男性,48岁,在某生产高分子聚合物化工厂工作。工龄15年。最近感神经衰弱、肝区疼痛,去医院就诊,诊断为肝血管肉瘤。该名工人可能是()
下列属于细胞因子测定的临床应用的是
路基地下排水设施中,各类渗沟均应设置()。
关于企业所得税免税收人,下列表述正确的有()。
下列各项中,应计入销售费用的是()。
学校随意开除未成年学生,实际上是侵犯了学生的()。
读下图回答问题。圆圈地区水资源十分紧张,造成这种状况的主要原因是()。
材料1:实现中华民族伟大复兴,是中华民族近代以来最伟大的梦想,是一个一个省的梦想汇集而成的梦,是以实现党的十八大提出的全面建成小康社会,加快推进和谐社会建设,努力建设美丽中国第一百年目标任务为基础的中国梦。当前,陕西正站在跨越发展、蓄势腾飞的新起点,建设“
WhyHaveFormalDocuments?First,writingthedecisionsdownisessential.Onlywhenonewritesdothegapsappearandthe(71
最新回复
(
0
)