一、设计窗体1
1、添加控件:三个标签控件、两个文本框控件、一个框架控件、两个按钮控件,通过“格式”菜单布局。
2、修改所添加控件的caption属性,相应值如下图显示;标签3(label3)设置它的属性为。
请正确填入登录信息。
用户:密码:
登录。清空。
二、设计窗体2
1、添加控件:一个**框控件、四个按钮控件,通过“格式”菜单布局。
2、修改所添加控件的caption属性,相应值如下图显示。
三、**设计。
1、窗体1的**设计。
private sub command1_click()
if = 1" and = 1" then '判断输入的用户名和密码是否正确,这里设置用户名为"1",密码为"1"
dim msg as integer
dim i as string '声明字符串变量i
i = inputbox("请输入你最喜欢的人:",输入", 1000, 500) '利用inputbox函数弹出对话框,输入信息,将信息赋值给变量i
= i '将变量i的值赋值给标签3
msg = msgbox("真的吗?",vbquestion + vbyesno, "询问")
if msg = 6 then
'显示窗体2
unload form1 '卸载窗体1
msgbox "笨,叫你写你就写,傻啊", vbexclamation + vbokonly, "提示"
elsemsgbox "请重新登录", vbexclamation + vbokonly, "提示"
end if
else '用户名与密码输入错误时,通过msgbox语句弹出信息提示,然后清空文本框,将焦点定在文本框1
msgbox "信息错误,重新填写", vbexclamation + vbokonly, "警告"
end if
end sub
private sub command2_click()
= "清空文本框1的内容。
= "清空文本框2的内容。
'将焦点定在文本框1
end sub
2、窗体2的**设计。
private sub command1_click() print函数与tab函数配合使用的相关**。
"abc"; tab(10); def"
"123456789"; tab(8); abcd"
10; tab; 20; tab; 30
end sub
private sub command2_click() print函数与spc\space函数配合使用的相关**。
"123"; spc(3); 1"
"123" +space(3) +1"
end sub
private sub command3_click() print函数与format函数配合使用的相关**。
format("china",
format(date, "yyyy/m/d")
end sub
private sub command4_click() 卸载当前窗体,显示登录窗体。
unload form2
end sub
private sub form_load() 设置当前窗体的标题。
= "欢迎" &光临,请做相应操作"
end sub
VB作业要求
实验一。实验目的。1 掌握新工程的创建方法。2 掌握窗体的添加,控件的添加及布局。3 掌握 的添加方法。实验实现的功能。1 在窗体1输入的信息能够在窗体2显示。2 在窗体1输入的信息能够实现清空。3 窗体2能够返回窗体1继续进行信息的输入。4 当关闭窗体1时,能弹出确认对话框,询问是否关闭。实现步骤...
VB实验4要求
一 实习目的。1.理解数组的概念 分类,数组定义方法 2.掌握数组的操作 赋值 运算 输出 的基本方法 3.掌握与数组有关的算法 4.理解自定义数据类型 5.了解控件数组。二 实习内容。1 统计某门课6个学生成绩高于平均分的人数。2 某门课n个学生中,将高于平均分的成绩输出。3 将 这10个数存放到...
《VB》上机作业
上机作业。第3章结构化程序设计与数组。一 分支结构 1 旧教材 p82 新教材 p87 程序设计题 1。2 旧教材 p83 新教材 p87 程序设计题 2。3 输入一个字符,判断该字符是否为字母 数字 空格还是其它符号。请分别用块if结构和情况选择语句来实现。二 循环结构 一 1 旧教材 p83 新...