首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明以及用Visual Basic语言编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。 【应用4.1】 设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chk1,chk2,chk3),各个复选
阅读以下应用说明以及用Visual Basic语言编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。 【应用4.1】 设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chk1,chk2,chk3),各个复选
admin
2012-12-10
41
问题
阅读以下应用说明以及用Visual Basic语言编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【应用4.1】
设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chk1,chk2,chk3),各个复选框单击事件过程的程序代码如下:
Private Sub chkl_Click()
Label.fontBold=chkl.Value
End Sub
Private Sub chk2_Click()
Label.fontltalic=chk2.Value
End Sub
Private Sub chk3_Click()
Label.fontUnderLine=chk3.Value
End Sub
三个复选框chkl、chk2、chk3的功能分别是:(1)。
【应用4.2】
设应用程序的运行窗口内有两个文本框Txt1和Txt2,其初始内容为空。在Txt1文本框中输入一个数值,当光标离开此文本框(例如进入文本框Txt2)时,执行的程序代码如下:
Private Sub Txt1_LostFocus()
dim x aS double
x=Val(Txtl.Text)
工f x<0 Or x>100 Then
Txtl.Text =""
MsgBox$("请重新输入!")
Txtl.SetFocus
Else
Txt2.Text=Txt1.Text
End If
End Sub
该程序代码的功能是:若在文本框Txtl中输入的数值小于0或大于100,当光标离开此文本框时,(2);否则,将其值复制到文本框Txt2中。
【应用4.3】
在下面的应用中,当窗口内发生C1ick事件时,窗口内将显示如图2-4所示的杨辉三角(每一行都是二项式展开的系数)。请完善程序代码。
Private Sub Form Click()
Dim i,j,c As Integer,StrTemp AS String
Dim a(9)As Integer
a(0)=0=a(1)=l:StrTemp=Str(a(1))+Space(3)
CurrentX=(ScaleWidth-TextWidth(StrTemp))/2
Print StrTemp
For j=2 TO 9
a(j)=1
For C=j-1 TO 2 Step-1
a(c) =(3)
Next
(4)=""
For c = 1 To j
StrTemp = StrTemp & Str((5)) & Space(5 - Len(Str(a(c))))
Next
CurrentX = (ScaleWidth - TextWidth(StrTemp)) / 2
Print StrTemp
Next End Sub
选项
答案
(1)对文字标签中的文字,分别控制其粗体、斜体和下划线设置;或含义相同的文字描述 (2)将该文本框清空:弹出对话框,提示重新输入:光标定位于该文本框中;或含义相同的文字描述 (3)a(c)+a(c-1) (4)StrTemp (5) a?
解析
本题考查Visual Basic中常用控件的属性设置及事件处理。
对于同一框架中的一组单选按钮,只能有一个被选中,用户选中一个时,另一个就自动呈现取消选中状态。这种效果是系统自动赋予的,无须编程。对于复选框,则可以同时选中多个,每个复选框是独立选择的,单击复选框就是改变该复选框的选中状态。因此,复选框的Click事件的程序代码中,还需要判断是选中还是取消选中。
单选钮的属性为Value,其值为True表示选中,为False表示未选中(默认)。
复选框的属性为Value,其值为0表示未选中(默认),1表示选中,2表示禁用。
fontBold、fontltalic和fontUnderLine分别表示文字的粗体属性、斜体属性和下划线属性,因此应用4.1中,复选框chk1、chk2、chk3分别控制文字标签中文字的粗体、斜体和下划线设置。
应用4.2程序代码的功能是:若在文本框Txt1中输入的数值小于0或大于100,当光标离开此文本框时,将该文本框清空,弹出对话框并提示重新输入,光标定位于该文本框中;否则,将其值复制到文本框Txt2中。
应用4.3在窗体中显示杨辉三角(每一行都是二项式展开的系数),观察元素的值可知,值不等于1的元素由其左上角和右上角的元素相加得到。例如,若已经计算出第四行的所有元素,如下所示,然后需求出第五行的所有元素,每行的元素存储在一维数组a中。
a(1) a(2) a(3) a(4)
第四行:1 3 3 1
第五行上的元素自左至右表示为a(1)、a(2)、a(3)、a(4)、a(5),如下所示。
a(1) a(2) a(3) a(4)
第四行: 1 3 3 1
第五行:1 4 6 4 1
a(1) a(2) a(3) a(4) a(5)
先设置最后一个元素a(5)等于1,再根据第四行上的a(4)和a(3)求出第五行上的a(4),
根据第四行的a(3)和a(2)求出第五行上的a(3),依此类推,可求出第五行的每个元素(每行的第一个元素等于1,无需另外计算)。
推广至其他行,可计算出杨辉三角中的每个数并以串的方式输出,对应的程序代码如下:
For j=2 To 9 ’计算出第2行到第9行的每个数并输出
a(j)=1 ’每行的最后一个数为1
For c=j-1 To 2 Step-1
a(c)=a(c)+a(c-1) ’计算出值不等于1的元素
Next
StrTemp="" ’字符串初始化,每行所有数串接成一个字符串输出
For C=1 To j
StrTemp=StrTemp & Str(a(c)) & Space(5-Len(Str(a(C))))
Next
CurrentX=(ScaleWidth-TextWidth(StrTemp))/2
Print StrTemp
Next
转载请注明原文地址:https://kaotiyun.com/show/FnjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
以下关于信息化发展的叙述中,不正确的是(2)。
WindowsXP中,被删除的文件默认存放在()中,需要时还可以进行恢复。
在Excel中,若A1单元格中的内容为“全国计算机技术与软件专业技术资格(水平)考试”,在A2单元格中输入函数=LEFT(A1,2),则A2单元格显示的内容是______。
在Word2007编辑过程中,为防止突然断电或电脑死机等突发情况,最大程度减少损失,下列做法较好的是__________。
以下关于计算机网络协议的叙述中,不正确的是(58)________________。
数据录入工作有两个指标:录入速度和错误率。一般而言,数据录入员在录入大批数据时,录入速度会(65),错误率会(66)。66
在Word中打开英文文档或者在文档中输入英文信息时,系统会自动对拼写和语法进行检查,如果出现红色波形下划线则表示存在(50)。
某种考试共有75个试题,每对一题得2分,每错一题扣1分。某考生最后的分数是54分,则该考生共做对______题。
内存用于存放计算机运行时的指令、程序、需处理的数据和运行结果。但是,存储在(2)中的内容是不能用指令修改的。
随机试题
A.黏液聚集于癌细胞内,将核挤向一侧B.癌细胞形成腺体结构C.癌细胞团漂浮于黏液湖内D.癌细胞形成实性团或条索状实性癌
护士小李上班后需对术前的患者进行肌内注射手的消毒不宜使用
患者,男性,72岁。失眠3年,需要长期口服镇静安眠药才能维持睡眠。服用过量巴比妥类药物,应用碳酸氢钠的目的是
7岁,雄犬,3天未见排尿,精神沉郁,腹部膨大,B超可见腹腔脏器间呈低回声暗区,流行病最可能是
甲为110警察,某日接到群众乙的求助电话,乙告诉甲自己的朋友丙可能在家出事了,整整一天打丙的电话都没人接,当乙到丙家门口时还隐隐约约闻到了里面散发出的煤气味。甲就追问乙是不是确定丙在家中,是不是确定屋里有煤气味,乙说不确定,甲就拒绝了乙的出警请求。五个小时
我国现存最早的木结构建筑的实物仅有唐代的应县木塔和佛光寺部分建筑。()
阅读下列材料,并回答问题。小学生晓峰在操场上体育课,练习打排球,体育教师给学生讲解垫球技术要点后,特别强调了安全注意事项。因为操场地面凹凸不平,晓峰抢球时不慎摔倒在地,头撞到了地面凸起的地方,造成头部流血和小腿骨折。体育教师马上把他送到医院。晓峰
假设你所在的部门要负责承办一次全国性的会议,指定你参与筹备工作,现在要拟订一个会议计划,计划中除了包括落实会议经费、安排会务组和分工、落实会议地点、安排接待、会议组织、会议结束等工作以外,还必须包括()。
f(x)在[a,b]上连续,在(a,b)内可导,且f’(x)≠0.证明:存在ξ,η∈(a,b),使得
ScoresofuniversityhallsofresidencesandlecturetheatresintheUKwerejudged"atseriousriskofmajorfailureorbreakdo
最新回复
(
0
)