VB作业要求

发布 2022-08-25 10:25:28 阅读 8233

一、设计窗体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 新...