vb程序设计经典例题,vb程序设计经典案例
VB程序设计题
其实你这个程序很麻烦的：
首先，建立控件：
text2,?multiline属性为true，scrollbars属性为2，text属性为空（用于输入成绩信息）
text3,?multiline属性为true，scrollbars属性为2，text属性为空（用于显示查找结果信息）
text4,text属性为空（用于输入查找姓名）
command1，caption为"储存“
command2，caption为”检索“
command3，caption为”结束“???（用于结束程序）
注：在text2里输入成绩信息的格式如下：(每一行的末尾要有一个回车）
姓名?分数?分数???(间隔一个空格)
姓名?分数?分数
姓名?分数?分数
然后，写代码，把我的代码粘贴过去，已经检验过了！
Dim?number%
Dim?a()?As?String,?b()?As?String,?c()?As?String
Dim?i%,?j%,?str1$,?r%
Private?Sub?Command2_Click()?'输入并存储信息
a?=?Split(Text1,?vbCrLf)
number?=?UBound(a)
ReDim?b(number,?2)
For?i?=?0?To?number
c?=?Split(a(i),?"?")
For?j?=?0?To?2
b(i,?j)?=?c(j)
Next?j
Next?i
End?Sub
Private?Sub?Command1_Click()???'查找
line1:
Text4.SetFocus
If?Text4??""?Then????'如果你输入了姓名，那么按次姓名查找
str1?=?Text4
Dim?str2?As?String
Call?chazhao(str2,?str1)??'调用查找子过程查找符合条件的信息
Text3?=?Text3??str2?????'把查找信息显示在text3里
r?=?MsgBox("是否仅需检索",?4?+?64)
Text4?=?""
If?r?=?6?Then?GoTo?line1????'用于继续查找
End?If
End?Sub
Sub?chazhao(str2?As?String,?str3?As?String)?????'一个子过程，用于查找给定姓名的成绩信息
Dim?n%
For?i?=?0?To?number
If?b(i,?0)?=?str3?Then
str2?=?b(i,?0)??b(i,?1)??b(i,?2)?+?vbCrLf
n?=?1
End?If
Next?i
If?n??1?Then?MsgBox?"没有该姓名的成绩信息"
End?Sub
Private?Sub?Command3_Click()
End
End?Sub
VB程序设计 题目
题号:1 题型:单选题
内容:
下列选项中不正确的是
选项:
c、当用 Show方法显示窗体时，必定会发生Load事件
题号:2 题型:单选题
内容:
当目录列表框的Dir1.Path属性的改变，将会触发下列哪一个事件
选项:
c、Dir1_Change事件
题号:3 题型:单选题
内容:
计时器控件的Interval属性可以设定Timer 事件触发的时间间隔，其时间间隔以下列哪一个为单位
选项:
a、毫秒
题号:4 题型:单选题
内容:
对象的边框类型由下列哪个属性设置
选项:
c、BorderStyle
题号:5
内容:如下运算中运算优先级最高的是：
图形:
选项:
d、^
题号:6 题型:单选题
内容:
在使用MsgBox输出时，如果按钮位置是空（默认参数），则相当于使用了参数
选项:
b、VbOkOnly
题号:7 题型:单选题
内容:
当文本框的ScrollBars属性设置了非零值，却没有效果，原因是
选项:
b、文本框的MultiLine属性为False
题号:8 题型:单选题
内容:
CLS可清除窗体或图形框中下列哪一个的内容
选项:
c、程序运行时产生的图形和文字
题号:9 题型:单选题
内容:
要使某控件在运行时不可显示，应对下列哪个属性进行设置
选项:
b、Visible
题号:10 题型:单选题
内容:
用来设置粗体字的属性是
选项:
c、FondBold
题号:11 题型:是非题 本题分数:5
内容:
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
选项:
1、 错
--------------------------------------------------------------------------------
题号:12 题型:是非题
内容:
复选框的Value属性为True时，复选框被选中
选项:
2、 对
题号:13 题型:是非题
内容:
窗体、框架、图片框、图像框都是容器对象
选项:
1、 错
题号:14 题型:是非题
内容:
在属性窗口中可以修改对象的属性
选项:
2、 对
题号:15 题型:是非题
内容:
类是对象的具体化
选项:
2、 对
题号:16 题型:是非题
内容:
文本框控件的MaxLength属性值为0时，在文本框中不可以输入任何字符
选项:
2、 对
题号:17 题型:是非题
内容:
若设置文本框的PasswordChar属性值为某个字符，则用户无论输入何种字符，在文本框中，全部显示为该字符
选项:
2、 对
题号:18 题型:是非题
内容:
程序流程图是唯一一种描述程序执行过程的图形
选项:
1、 错
题号:19 题型:是非题
内容:
If和End If必须成对使用，有一个If就必须有一个End If与之相对应
选项:
1、 错
题号:20 题型:是非题
内容:
VB中建立窗体菜单可以选择“工具”菜单的“菜单编辑器”命令来完成
选项:
2、 对
vb程序设计题(写明理由,谢谢)
MsgBox(“所选文件名非法”,vbOKOnly,” Invalid File Name ”)
中：MsgBox函数的第一个参数为对话框内容，第二个参数为对话框的按钮以及左侧图标的设定选项，vbOKOnly常数表示只有一个“确定”按钮，第三个参数是对话框的标题，所以。。。。。
第二题：Load事件是在 Intialize 事件之后发生，就是窗体初始化后便会执行LOAD事件的代码。第一次加载窗体均需要初始化，於是答案便是D
第三题：你在你的VB程序裏执行一次EDN语句，便会得到答案啦！