网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码,将应填入(n)处。

[应用说明]

启动某应用程序运行的登录窗口如下:

其中的标签(Label1)“用户名(U)”对应文本框Username,标签(Label2)“密 码(P)”对应文本框Password。当用户在Username文本框中输入用户名“ali88”,在Password文本框中输入“zmkm”(显示的字符均为“*”),并单击“确定”按钮时,就会弹出应用程序的主窗口frmAPP,而该登录窗口就会卸载。

如果用户名或密码输入错误,则会弹出报警信息框。当用户单击其中的“确定”按钮后,登录窗口中Password文本框的内容就会消失,光标停留在该框内,以便用户重新输入密码,必要时用户还可以再修改用户名,再次做登录尝试。本应用程序允许发生3次输入错误。在第3次输入错误后,就会立即退出该应用程序。

在弹出登录窗口后,当按组合键“Alt+U”时光标就会停留在Username文本框中:当按组合键“Alt+P”时光标就会停留在Password文本框中。当用户按Enter键时,就相当于单击“确定”按钮:当用户按Esc键时,就相当于单击“取消”按钮,立即退出该应用程序。

[属性设置]

在开发过程中,部分控件及属性设置如下:

[程序代码]

Private Sub cmdOK_Click()

(3) As Integer ' 静态变量times的说明

If (4) Then

Unload Me ' 卸载本登录窗口

(5) ' 弹出应用程序主窗口frmAPP

Else

MsgBox ("用户名或密码错! ")

times=times+1

Password.Text="" ' 清除密码框中的内容

Password.SetFocus ' 将光标定位于密码框

If times=3 Then End

End If

End Sub

Private Sub cmdCanee1_Click()

End

End Sub


参考答案

更多 “ 阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码,将应填入(n)处。[应用说明]启动某应用程序运行的登录窗口如下:其中的标签(Label1)“用户名(U)”对应文本框Username,标签(Label2)“密 码(P)”对应文本框Password。当用户在Username文本框中输入用户名“ali88”,在Password文本框中输入“zmkm”(显示的字符均为“*”),并单击“确定”按钮时,就会弹出应用程序的主窗口frmAPP,而该登录窗口就会卸载。如果用户名或密码输入错误,则会弹出报警信息框。当用户单击其中的“确定”按钮后,登录窗口中Password文本框的内容就会消失,光标停留在该框内,以便用户重新输入密码,必要时用户还可以再修改用户名,再次做登录尝试。本应用程序允许发生3次输入错误。在第3次输入错误后,就会立即退出该应用程序。在弹出登录窗口后,当按组合键“Alt+U”时光标就会停留在Username文本框中:当按组合键“Alt+P”时光标就会停留在Password文本框中。当用户按Enter键时,就相当于单击“确定”按钮:当用户按Esc键时,就相当于单击“取消”按钮,立即退出该应用程序。[属性设置]在开发过程中,部分控件及属性设置如下:[程序代码]Private Sub cmdOK_Click()(3) As Integer ' 静态变量times的说明If (4) ThenUnload Me ' 卸载本登录窗口(5) ' 弹出应用程序主窗口frmAPPElseMsgBox ("用户名或密码错! ")times=times+1Password.Text="" ' 清除密码框中的内容Password.SetFocus ' 将光标定位于密码框If times=3 Then EndEnd IfEnd SubPrivate Sub cmdCanee1_Click()EndEnd Sub ” 相关考题
考题 阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。【说明】本应用程序是一个乘法计算器,其运行窗口如图2所示。在该界面中,“被乘数”、“乘数”以及“积”等文字为标签,相应的3个输入输出数据框为文本框,此外还有3个命令按钮。用户在“被乘数”和“乘数”相应的文本框内输入数据,再单击“运算”按钮,便能在“积”对应的文本框中看到相乘的结果;当用户单击“清除”按钮时,就会清除各文本框中的数据;当用户单击“关闭”按钮时就会关闭该窗口并退出应用程序。用户不能在“积”对应的文本框中输入数据。【属性设置】各个对象、有关的属性名以及需要修改的属性值设计如下:【程序】Private Sub cmdMultiply_Click( )txt3. Text =Trim(Str$ ((3)) '加法运算获得和数End SubPrivate Sub (4) (txt1. Text=" " '空字符串赋值给文本框txt1的内容txt2. Text=" " '空字符串赋值给文本框txt2的内容txt3. Text=" " '空字符串赋值给文本框txt3的内容End SubPrivate Sub cmdClose_Click( )(5) '退出应用程序End Sub

考题 阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。【说明】该应用程序是用来修改文本框中的字体属性,其运行窗口如图4所示。窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont,chkltalic,chkSize,chkColor)组成。程序运行后,用户在文本框内输入一段文字,然后按需要单击各选择框,用以改变文本的字体、字型、颜色及大小。文本框的Mulitine属性已经设为True。当不选择“黑体”时,文字应是“宋体”。当不选择“大小16”时,字号为9。当不选择“紫色”时,字色为黑色。当不选择“斜体”时,文字采用正常字型。【程序代码】Private Sub chkFont Click( )If (1) ThentxtPassage. FontName ="黑体"ElsetxtPassage. FontName ="宋体"End IfEnd SubPrivate Sub (2) ()If chkColor. Value = 1 ThentxtPassage. ForeColor = QBColor(13)ElsetxtPassage. ForeColor = QBColor (0)End IfEnd SubPrivate Sub chkltalic_Click()If chkltalic. Value = 1 ThentxtPassage. Fontl talic =(3)ElsetxtPassage. Fontltalic=(4)End IfEnd SubPrivate Sub chkSize Click( )If (5) ThentxtPassage. Font. Size = 16ElsetxtPassage. Font. Size = 9End IfEnd Sub

考题 阅读以下应用说明以及用Visual Basic语言编写的程序代码,将应填入(n)处的字句写在答题纸的对应栏内。【应用4.1】设应用程序的运行窗口内有一个文字标签(Label)以及一个框架,其中有三个复选框(chk1,chk2,chk3),各个复选框单击事件过程的程序代码如下:Private Sub chkl_Click()Label.fontBold=chkl.ValueEnd SubPrivate Sub chk2_Click()Label.fontltalic=chk2.ValueEnd SubPrivate Sub chk3_Click()Label.fontUnderLine=chk3.ValueEnd Sub三个复选框chkl、chk2、chk3的功能分别是:(1)。【应用4.2】设应用程序的运行窗口内有两个文本框Txt1和Txt2,其初始内容为空。在Txt1文本框中输入一个数值,当光标离开此文本框(例如进入文本框Txt2)时,执行的程序代码如下:Private Sub Txt1_LostFocus()dim x aS doublex=Val(Txtl.Text)工f x<0 Or x>100 ThenTxtl.Text =""MsgBox$("请重新输入!")Txtl.SetFocusElseTxt2.Text=Txt1.TextEnd IfEnd Sub该程序代码的功能是:若在文本框Txtl中输入的数值小于0或大于100,当光标离开此文本框时,(2);否则,将其值复制到文本框Txt2中。【应用4.3】在下面的应用中,当窗口内发生C1ick事件时,窗口内将显示如图2-4所示的杨辉三角(每一行都是二项式展开的系数)。请完善程序代码。Private Sub Form. Click()Dim i,j,c As Integer,StrTemp AS StringDim a(9)As Integera(0)=0=a(1)=l:StrTemp=Str(a(1))+Space(3)CurrentX=(ScaleWidth-TextWidth(StrTemp))/2Print StrTempFor j=2 TO 9a(j)=1For C=j-1 TO 2 Step-1a(c) =(3)Next(4)=""For c = 1 To jStrTemp = StrTemp Str((5)) Space(5 - Len(Str(a(c))))NextCurrentX = (ScaleWidth - TextWidth(StrTemp)) / 2Print StrTempNext End Sub

考题 阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码,将应填入(n)处的字句写在对应栏内。【应用说明】某应用的登录界面如下:登录界面中的文本框txtUserID和txtPassword分别用于接受用户输入的用户名和口令,命令按钮为“确定(cmdOk)”和“取消(cmdCancel)”。ADO数据控件Adodc1与数据库EmployeeData连接。在EmployeeData中,表“Users”的字段“UserID”和“Pswd”分别记录了所有的合法用户名和口令。在登录界面中,输入正确的用户名和口令并单击“确定”按钮后,就会打开应用程序的主窗口fxmApp。用户名或密码输入错误时,给出提示信息并返回登录界面。【Visual Basic程序代码】Private Sub cmdOK Click()Adodcl.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\data\EmployeeData.mdb;Persist Security Info=False"Adodcl.RecordSource = "select *(1)"Adodcl.RefreshDousrname =(2)pwd = Adodc1.Recordset("Pswd")Adodc1.Recordset.MoveNextLoop Until (usrname =(3)) Or (Adodc1.Recordset.EOF)If usrname <> txtUserID.Text ThenMsgBox "无效的用户ID, 请重新输入!", , "提示信息"ElseIf (4)ThenMsgBox "欢迎进入系统主界面!", , "提示信息"Unload me(5)ElseMsgBox "无效的用户密码, 请重新输入!", , "提示信息"End IfEnd IfEnd Sub

考题 阅读以下应用说明、属性设置及Visual Basic程序代码,将应填入______处的语句写在答题纸的对应栏内。[应用说明7]本应用程序的运行窗口如图2-5所示。只要用户单击“闪烁”按钮,文字“欢迎光临”就会以0.3s消失、0.3s显示反复进行闪烁;单击“停止”按钮,闪烁停止,恢复图示的初态。[属性设置7][程序代码7]Private Sub CmdF C1ick()Timerl. (3)=TrueLabel.Visible=FalseEnd SubPrivate Sub Timerl_Timer()(4)=not Label.VisibleEnd SubPrivate Sub CmdT_Click()Timerl.Enabled=(5)Label.Vlsible=trueEnd Sub

考题 阅读以下应用说明及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 DoubleDataln=(3)Select Case (4)Case "取整数部分"DataOut =Int(Dataln)Case "求平方根"If Dataln<0 ThenMagBox "负数不能开平方!"ElseDataOut = Sqr(Dataln)End IfCase "取绝对值"DataOut = Abs(Dataln)(5)TxtOut. Text = str $ (DataOut)End Sub

考题 ●试题八阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。【说明】该应用程序是用来修改文本框中的字体属性,其运行窗口如图4所示。窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont,chkltalic,chkSize,chkColor)组成。程序运行后,用户在文本框内输入一段文字,然后按需要单击各选择框,用以改变文本的字体、字型、颜色及大小。文本框的Mulitine属性已经设为True。当不选择"黑体"时,文字应是"宋体"。当不选择"大小16"时,字号为9。当不选择"紫色"时,字色为黑色。当不选择"斜体"时,文字采用正常字型。【程序代码】Private Sub chkFont Click()If (1) ThentxtPassage.FontName="黑体"ElsetxtPassage.FontName="宋体"End IfEnd SubPrivate Sub (2) ()If chkColor.Value=1 ThentxtPassage.ForeColor=QBColor (13)ElsetxtPassage.ForeColor=QBColor(0)End IfEnd SubPrivate Sub chkltalic_Click()If chkltalic.Value=1 ThentxtPassage.FontI talic= (3)ElsetxtPassage.FontItalic= (4)End IfEnd SubPrivate Sub chkSize_Click()If (5) ThentxtPassage.Font.Size=16ElsetxtPassage.Font.Size=9End IfEnd Sub

考题 ●试题五阅读以下应用说明、属性设置及Visual Basic程序代码,将应填入(n)处在字句写在答题纸的对应栏内。【说明】本应用程序的运行窗口如图2所示。只要用户单击"闪烁"按钮,文字"欢迎光临"就会以0.3秒消失、0.3秒显示反复进行闪烁;单击"停止"按钮时,闪烁停止,恢复图示的初态。在开发过程中,需要设置的属性如表1所示。在开发过程中,需要编写的程序代码如下:【程序】Private Sub CmdF_Click()Timer1. (3) =TrueLabe1.Visible=FalseEnd SubPrivate Sub Timer1_Timer()(4) =not Label.VisibleEnd SubPrivate Sub CmdT_Click()Timer1.Enabled= (5)Labe1.Visible=trueEnd Sub

考题 试题三(共 15 分)阅读以下说明和 C 程序,将应填入 (n) 处的字句写在答题纸的对应栏内。