问答题

在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscrol1，Min属性和Max属性分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。
要求：不得使用任何变量。

【参考答案】

第一步：启动Visual Basic，新建工程文件。
第二步：设计窗体。根据题意，该用户界面包括三个对象，即窗......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)

<上一题目录下一题>

热门试题

问答题

在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm，该程序是不完整的，请在有的地方填入正确内容，然后删除及所有注释符(’)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为Label1与Label2，标题分别为“原文本”、“加密文本”；文本框的名称分别为Text1与Text2，Text属性均为空；两个控制按钮的名称分别为Command1与Command2，标题分别为“加密”与“读入”；单选框的名称统一为Option1，标题分别为2、4、6；框架名称为Frame1，标题为“加密类型”。单击“读入”按钮，程序将读入考生文件夹下的文本文件in043.txt，单击“加密”按钮，加密过的文本显示在Text2中。根据单选框中不同的数字，加密的方法不同。例如选择Option1，则逐一把Text1中的字符串改为它后面的第2个字母。程序运行时的窗体界面如下图所示。 [试题源程序] 1 Private Sub Command1_Click( ) 2 Text2.Text= 3 Dim n As Integer 4 Dim i As Integer 5 Dim m As Integer 6 Dim Str As String 7 Dim StrText As String 8 For i=0 To 2 9 If Option1(i).Value Then 10 n=Val(.Caption) 11 End If 12 Next i 13 m=Len(Text1.Text) 14 For i=1 To m 15 Str=Mid S(Text1.Text, , 1) 16 Str=(1，Asc(Str)+n) 17 If Str＞ z Or Str＞ Z And Str＜ a Then 18 Str=String(1，Asc(Str)-26) 19 End If 20 StrText=StrText+Str 21 Next i 22 Text2.Text=StrText 23 End Sub 24 25 Private Sub Command2_Click( ) 26 Dim s As String 27 Open App. Path & in043.txt For Input As #1 28 Input #1，s 29 Text1.Text=s 30 Close #1 31 End Sub

问答题

在考生文件夹下有一个工程文件sjt4.vbp，及其窗体文件sjt4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕。现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令．如果正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如下图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序如下： 1 Private Sub Form Load( ) 2 Text1.Text= 3 Text1.FontSize=10 4 Label1.FontSize=12 5 Label1.FontBold=True 6 Label1.Font0= 隶书 7 Label1.Caption= 请输入口令... 8 End Sub 9 Private Sub Text1_KeyPress(KeyAscii As Integer) 10 Static PWord As String 11 Static Counter As Integer 12 Static Numberftries As Integer 13 Numberftries=Numberftries+1 14 ’If Then End 15 Counter=Counter+1 16 ’PWord=PWord+ 17 KeyAscii=0 18 Text1.Text=String$(Counter， * ) 19 If LCase$(PWord)= abcd Then 20 Text1.Text= 21 PWord=0 22 MsgBox 口令正确, 继续... 23 Counter=0 24 Print continue... 25 ’Else If Then 26 Counter=0 27 PWord= 28 Text1.Text= 29 MsgBox 口令不对，请重新输入 30 End If 31 End Sub

相关试题