当一个应用程序窗口被最小化了后,该应用程序的状态为()。
A.保持最小化前的状态
B.继续在前台运行
C.被转入后台运行
D.被终止运行
A.保持最小化前的状态
B.继续在前台运行
C.被转入后台运行
D.被终止运行
下面关于Windows98中图标的叙述,()是正确的。
A.图标可能代表的是窗口最小化但仍在运行的应用程序
B.图标只可代表文档
C.图标只可以代表应用程序
D.图标不可以表示被组合在一起的多个应用程序
为使应用程序启动时所载入的窗口(图6-16)中具有背景图像(取自用户自定义的某个图像文件“C:\user\background.bmp”),并且在程序运行时,当被遮的该窗口又重现时,其背景图像会自动重画。在开发如图6-16所示窗体时,应对窗体属性对话框(图6-17)中哪些关键属性进行什么样的设置?
阅读以下应用说明以及用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
阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
【应用说明】
某应用程序可选择打开用户指定的文本文件,将其内容显示在指定的文本框内供用户编辑,并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示,其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。
该程序的开发要求如下。
(1)通过驱动器列表框(Drivel)、目录列表框(Dirl)和文件列表框(Filel),选择文件。
(2)文件类型组合框(Cmb_type)设置为下拉式列表框,其中有三个供选项,分别为“所有文件(*.*)”、“文本文件(*.txt)”和“可执行文件(*.exe)”。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。
(3)在文件列表框中单击一个文件名时,该文件名会显示在文件名文本框 (Txt filename)中。
(4)在文件列表框中双击一个文件名时,若是文本文件,则在文件编辑文本框 (Txt file)中显示该文件的内容并可进行编辑;若不是文本文件,则弹出一个对话框,提示“请选择文本文件!”。
(5)对于编辑后的文本文件,可在文件名文本框中输入新的文件名,并单击命令按钮(Cmd save)进行保存。
【Visual Basic程序代码】
Private Sub Form_Load()
Cmb_type.Addltem "所有文件(*.*)"
Cmb_type.Addltem "文本文件(*.txt)"
Cmb_type.Addltem "可执行文件(*.exe)"
Cmb_type.ListIndex=0
Filel.Pattern="*.*": Txt_filename.Text=" "
Txt_file.Text= " "
End Sub
Private Sub Dirl Change()
Filel.Path=(1)
End Sub
Private Sub Drivel Change()
Dirl.Path=Drivel.Drive
End Sub
Private Sub Cmb_type_click()
Select Case Cmb_type.(2)
Case 0
Filel.Pattern="*.*"
Case 1
Filel.Pattern="*.txt"
Case 2
Filel.Pattern="*.exe"
End Select
End Sub
Private Sub Cmd_save_Click()
usrFile=GetFileName() '函数GetFileName获得要保存的文件名
Open usrFile For Output As 1 '定义usrFile为1号输出文件
Print 1,Txt file.Text '输出到1号文件
Close 1
End Sub
Private Sub Filel_DblClick()
If right(Filel.FileName,3)<>(3)Then
MsgBox "请选择文本文件!"
Exit Sub
End If
usrFile=GetFileName() '函数GetFileName获得要打开的文件名
Open usrFile For Input As 1 '定义usrFile为1号输入文件
Txt_file.Text=" "
DO While (4) EOF(1)
Line Input l,fContext '从1号文件读入一行
Txt_file.Text;Txt file.Text +(5)+vbCrLf
Loop
Close 1
End Sub
'其他代码略
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。
【说明】
本应用程序是一个小写数字转换成大写格式的转换器,其运行窗口如图5所示。
窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时,将文本框txtNumber中数字转换成中文大写,并显示在文本框txtChinese中。例如,在文本框txtNumber输入0076845,单击cmdChange按钮,将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。
程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0,再调用函数Change(Strdigit As String),将数字字符串Strdigit转换成中文大写格式。
为了防止用户在文本框txtNumber输入非数字形式的字符,程序将以空字符代替所输入的非数字有形字符。
【程序】
Private Function Transfer(Strdigit As String)As String
′完成小写向大写的转换,这段代码省略
End Function
Private Function CChinese(Strdigit As String)As String
Dim intLen,intCounter As Integer
intLen = Len (Strdigit)
If intLen>0 Then
intcounter = 0
Do '过滤数字串Strdigit的前导0
intcounter = intcounter + 1
Loop Until Mid(Strdigit,(1))
intLen =(2)
Strdigit =(3) (Strdigit,intLen)
CChinese = Transfer(Strdigit)
End If
End Function
Private Sub cmdChange_Click()
txtChinese.Text=CChinese((4)) '调用Cchinese函数
End Sub
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
Select Case KeyAscii '根据输入字符的ASCII码的值进行判断
Case KeyAscii<32 '保留输入的控制字符
Case 48 To 57 '保留输入的数字字符
Case Else '其他情况以空字符代替
(5)=0
End Select
End Sub
A.当用户为应用程序创建快捷方式时,就是将应用程序再增加一个备份
B.关闭一个窗口就是将该窗口正在运行的程序转入后台执行
C.桌面上的图标完全可以按用户的意愿重新排列
D.一个应用程序窗口只能显示一个文档窗口
在Windows98中,下列关于应用程序窗口的描述,不正确的是()。
A.一个应用程序窗口可含多个文档窗口
B.一个应用程序窗口与多个应用程序相对应
C.应用程序窗口最小化后,其对应的程序仍占用系统资源
D.应用程序窗口关闭后,其对应的程序结束运行
NET的描述,错误的是______。
A.Microsoft.NET是一个程序运行平台
B..NETFramework管理和支持.NET程序的执行
C.VisualStudio.NET是一个应用程序集成开发环境
D.编译.NET时,应用程序被直接编译成机器代码
阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
【应用说明5.1】
本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时,用户从Combo1的列表中进行选择,程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。
【程序代码5.1】
Private Sub Combo1_Click()
Txt1.Text = Combo1. (1)
Txt2.Text = Combo1. (2)
End Sub
(注:可供(2)处选择的选项:List, Index, Listlndex, ListCount, Number)
【应用说明5.2】
本应用程序的运行窗口如图2所示。
开发该应用的部分程序代码如下:
【程序代码5.2】
Private Sub CmbOp_Click()
Dim Dataln As Double,DataOut as Double
Dataln=(3)
Select Case (4)
Case "取整数部分"
DataOut =Int(Dataln)
Case "求平方根"
If Dataln<0 Then
MagBox "负数不能开平方!"
Else
DataOut = Sqr(Dataln)
End If
Case "取绝对值"
DataOut = Abs(Dataln)
(5)
TxtOut. Text = str $ (DataOut)
End Sub
A.关闭
B.还原
C.最小化
D.最大化