vb编程经典例题(vb程序设计经典例题)

2023-11-12 00:17:14 数码极客 bianji01

 

关于VB的几道编程题 谢谢帮忙·

1-4:在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2,标题为“按钮一”、“按钮二”的命令按钮(如图1所示)。要求程序运行后,如果单击“按钮一”,则把“按钮二”移到“按钮一”上(如图2所示),使两个按钮重合。

privatesubcmd1_click()

cmd2.movecmd1.left,cmd1.top,cmd1.width,cmd1.height

endsub

1-5:在名称为Form1的窗体上画一个命令按钮,名称为Command1,其标题为“移动本按钮”,如图所示。要求编写适当的事件过程,使得程序运行是,每单击按钮一次,按钮向左移动100。要求:程序中不得使用变量,事件过程中只能写一条语句。

privatesubcommand1_click()

command1.left=command1.left-100

endsub

在名称为Form1的窗体上画一个名称为L1的标签,标题为“请确认”;再画两个命令按钮,名称分别为C1、C2,标题分别为“是”、“否”,高均为300,均为800。如图所示。

请在属性窗口中设置适当属性满足以下要求:

1)窗体标题为“确认”,窗体标题栏上不显示最化和最小化按钮;

2)在任何情况下,按回车键都相当于单击“是”按钮;按ESC键都相当于单击“否”按钮。

1)点击窗体,属性里面设置Caption为确认,设置MaxButton=False,MinButton=False

2)点击“是”按钮(c1),设置Default=true

点击“否”按钮(c2),设置cancel=true

1-7:在名称为Form1的窗体上画一个名称为Lab的标签,设置高度为450,宽度为1500,标签上显示内容为“标签”。要求程序运行后,若双击窗体则执行语句Lab.Caption=“双击”,若单击窗体则执行语句Lab.Caption=“”。

privatesubform_click()

lab.caption=""

endsub

privatesubform_dblclick()

lab.caption="双击"

endsub

1-8:在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“书名”和“作者”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“显示”),如图1所示。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输入书名和作者,然后单击命令按钮,则在窗体的标题栏上先后显示两个文本框中的内容,如图2所示。要求程序中不得使用任何变量。

privatesubcommand1_click()

me.caption=text1.text&text2.text

endsub

1-9:在名称为Form1的窗体上画一个标签(名称为Label1,标题为“输入信息”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”),如图1所示。然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入“计算机等级考试”,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。

privatesubcommand1_click()

printtext1.text

label1.visible=false

text1.visible=false

endsub

1-10:在名称为Form1的窗体上画一个名称为L1的标签,标题为“口令”;画两个文本框,名称分别为Text1、Text2,都没有

初始内容;再画三个命令按钮,名称分别为C1、C2、C3,标题分别为“显示口令”、“隐藏口令”、“复制口令”。在开始运行时,向Text1中输入的所有字符,都显示“*”,单击“显示口令”按钮后,在Text1中显示所有字符,再单击“以隐藏口令”后,Text1中的字符不变,但显示的都是“?”,单击“复制口令”后,把Text1中的实际内容复制到Text2中,如图所示。

1)在属性窗口中,把窗体的标题改为“口令窗口”;

2)建立适当的事件过程,完成上述功能。每个过程中只允许写一条语句,且不能使用变量。

1)点击窗体,设置窗体的Caption为口令窗口,设置text1的passwordchar属性为*

privatesubc1_click()

text1.passwordchar=""

endsub

privatesubc2_click()

text1.passwordchar="?"

endsub

privatesubc3_click()

text2.text=text1.text

endsub

VB编程题目

PrivateSubCommand1_Click()

Label1.Caption="多预习,问题在心中"

EndSub

PrivateSubCommand2_Click()

Label1.Caption="认真听,知识记脑里"

EndSub

PrivateSubCommand3_Click()

Label1.Caption="多练习,实践出真知"

EndSub

PrivateSubForm_Load()

Label1.FontSize=20

Label1.Caption="欢迎学习VisualBasic"

Command1.Caption="上课前"

Command2.Caption="上课时"

Command3.Caption="上课后"

EndSub

本回答由提问者推荐

VB编程题目.

第一题?窗体界面设计如下图 (1个Drivelistbox,1个Dirlistbox,1个Filelistbox,1个Picturebox,1个Textbox)代码如下;Private Sub Dir1_Change()??File1.Path = Dir1.Path??Text1.Text = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveText1.Text = Drive1.DriveEnd SubPrivate Sub File1_DblClick()Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName) 括号里面的是加载文件的路径End SubPrivate Sub Form_Load()File1.Pattern = "*.bmp;*.gif;*.jpg" 双引号里面表示的是自动识别的文件格式,用分号隔开Drive1.Drive = "d\" 设置默认驱动器为d盘End Sub第二题界面图代码如下;Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Dir1_Change()File1.Path = Dir1.PathText1.Text = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveText1.Text = Drive1.DriveEnd SubPrivate Sub File1_Click()Text1.Text = File1.Path & "\" & File1.FileNameText2.Text = File1.FileName 这里没有解决单击显示文本内容的问题End SubPrivate Sub File1_DblClick()ShellExecute Me.hWnd, "open", Dir1.Path & "\" & File1.FileName, "", "", 1 调用记事本程序打开文件End SubPrivate Sub Form_Load()label1.Caption=“路径和文件名”File1.Pattern = "*.txt"End Sub第二题的单击显示没有解决 ?望见谅。

VB编程题目

a=inputbox("a")

b=inoutbox("b")

if a>b then

tmpa=b

tmpb=a

else

tmpa=a

tmpb=b

end if

最小公倍数

for i=tmpa to 1 step -1

if int(a/i)=a/i and int(b/i)=b/i then

zdgys=i

exit for

end if

doevents

next

zxgbs=tmpb

do until int(zxgbs/a)=zxgbs/a and int(zxgbs/b)=zxgbs/b

zxgbs=zxgbs+1

doevents

loop

得到zdgys和zxgbs

声明:易趣百科所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系315127732@qq.com
广告位招租
横幅广告