VB题目,急需啊!!!!
复习题1、设计一个应用程序,在运行中当用鼠标单击窗体form1上的命令按钮(显示)时,在窗体form2上显示出“欢迎您来到VB世界!”2、设计一个应用程序,由用户输入长方...
复习题
1、设计一个应用程序,在运行中当用鼠标单击窗体form1上的命令按钮(显示)时,在窗体form2上显示出“欢迎您来到VB世界! ”
2、设计一个应用程序,由用户输入长方形的边长数据,计算并输出长方形的面积
3、设计一个窗体,要求如下:
● 窗体没有最大化按钮;
● 窗体标题为“窗体示例1”;
● 设置窗体的前景色为紫色,背景色为蓝色;
● 单击窗体时,在窗体上输出文字为“当前字体:黑体,当前字号:20”,其中字体和大小为窗体的当前输出值;
● 双击窗体时,显示信息被清除。
4、在窗体上画两个命令按钮和一个标签,把两个命令按钮的标题分别设置为“缩小”和“放大”;把标签的标题设置为“vb程序设计”。当程序运行后,如果单击第一个命令按钮,则可使标签中的字缩小2倍;如果单击第二个命令按钮,则可使标签中的字扩大1.5倍。
5、编程计算30+54的和,并在窗体上输出。
6、设a=5,b=2.5,c=7.8,编程计算 y=∏ab/(a+b*c)
7、编程计算半径为5的圆面积及周长
8、利用vb实现本息计算器的作用,通过输入本金,期限和利率,计算并分别显示到期利息及本息和。
9、计算1到00之间的偶数累加之和。
10、点击确定改变文本框中的字体、字型和字号,设计界面和编写程序代码。 展开
1、设计一个应用程序,在运行中当用鼠标单击窗体form1上的命令按钮(显示)时,在窗体form2上显示出“欢迎您来到VB世界! ”
2、设计一个应用程序,由用户输入长方形的边长数据,计算并输出长方形的面积
3、设计一个窗体,要求如下:
● 窗体没有最大化按钮;
● 窗体标题为“窗体示例1”;
● 设置窗体的前景色为紫色,背景色为蓝色;
● 单击窗体时,在窗体上输出文字为“当前字体:黑体,当前字号:20”,其中字体和大小为窗体的当前输出值;
● 双击窗体时,显示信息被清除。
4、在窗体上画两个命令按钮和一个标签,把两个命令按钮的标题分别设置为“缩小”和“放大”;把标签的标题设置为“vb程序设计”。当程序运行后,如果单击第一个命令按钮,则可使标签中的字缩小2倍;如果单击第二个命令按钮,则可使标签中的字扩大1.5倍。
5、编程计算30+54的和,并在窗体上输出。
6、设a=5,b=2.5,c=7.8,编程计算 y=∏ab/(a+b*c)
7、编程计算半径为5的圆面积及周长
8、利用vb实现本息计算器的作用,通过输入本金,期限和利率,计算并分别显示到期利息及本息和。
9、计算1到00之间的偶数累加之和。
10、点击确定改变文本框中的字体、字型和字号,设计界面和编写程序代码。 展开
3个回答
展开全部
1、设计一个应用程序,在运行中当用鼠标单击窗体form1上的命令按钮(显示)时,在窗体form2上显示出“欢迎您来到VB世界! ”
sub command1_click()
form2.show
form2.print "欢迎您来到VB世界! "
end sub
2、设计一个应用程序,由用户输入长方形的边长数据,计算并输出长方形的面积
text1 接收收入长 text2 接收输入宽 text3 输出面积 command1 执行计算
sub command1_click() '计算
dim s as single
s=csng(text1.text)* csng(text2.text)
text3.text=s
end sub
3、设计一个窗体,要求如下:
● 窗体没有最大化按钮;
● 窗体标题为“窗体示例1”;
● 设置窗体的前景色为紫色,背景色为蓝色;
● 单击窗体时,在窗体上输出文字为“当前字体:黑体,当前字号:20”,其中字体和大小为窗体的当前输出值;
● 双击窗体时,显示信息被清除。
form1
设置属性: caption="窗体示例1" backcolor="&H8000000D&" forecolor="&H00C000C0&"
代码:
sub form_click()
FontSize = 20
FontName = "黑体"
print "当前字体:黑体,当前字号:20"
end sub
Private Sub Form_DblClick()
Cls
End Sub
4、在窗体上画两个命令按钮和一个标签,把两个命令按钮的标题分别设置为“缩小”和“放大”;把标签的标题设置为“vb程序设计”。当程序运行后,如果单击第一个命令按钮,则可使标签中的字缩小2倍;如果单击第二个命令按钮,则可使标签中的字扩大1.5倍。
设置属性 command1 的caption="缩小"
command2 的caption="放大"
label1 的caption ="vb程序设计" 及 autosize=true
代码:
sub command1_click()
label1.fontsize=label1.fontsize/2
end sub
sub command2_click()
label1.fontsize=label1.fontsize*1.5
end sub
5、编程计算30+54的和,并在窗体上输出。
sub command1_click()
print "30+54=" & (30+54)
end sub
6、设a=5,b=2.5,c=7.8,编程计算 y=∏ab/(a+b*c)
sub command1_click()
const pi as single=3.1415927
dim a as single,b as single,c as single,y as single
a=5
b=2.5
c=7.8
y=pi*a*b/(a+b*c)
print y
end sub
7、编程计算半径为5的圆面积及周长
sub command1_click()
const pi as single=3.1415927
dim c as single,s as single,r as single
r=5
c=pi*r*2
s=Pi*r*r
print "r=" & r & "; C=" & c & "; S=" & s
end sub
8、利用vb实现本息计算器的作用,通过输入本金,期限和利率,计算并分别显示到期利息及本息和。
text1 本金输入 text2 期限输入 text3 利率输入(输入小数,如2.25%应输入0.00225) command1 执行计算 text4 到期利息及本金和
sub command1_click()
'到期所得=利息+本金=本金*时间*利率+本金
text4.text=csng(text1.text)*csng(text2.text)*csng(text3.text)+text1.text
end sub
9、计算1到100之间的偶数累加之和。
sub command1_click()
dim add as integer
for i=1 to 100
if i mod 2=0 then
add=add+i
end if
next
print add
end sub
10、点击确定改变文本框中的字体、字型和字号,设计界面和编写程序代码。
CommonDialog1
command1 的 caption ="确定"
text1
代码:
Sub command1_click()
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
End Sub
sub command1_click()
form2.show
form2.print "欢迎您来到VB世界! "
end sub
2、设计一个应用程序,由用户输入长方形的边长数据,计算并输出长方形的面积
text1 接收收入长 text2 接收输入宽 text3 输出面积 command1 执行计算
sub command1_click() '计算
dim s as single
s=csng(text1.text)* csng(text2.text)
text3.text=s
end sub
3、设计一个窗体,要求如下:
● 窗体没有最大化按钮;
● 窗体标题为“窗体示例1”;
● 设置窗体的前景色为紫色,背景色为蓝色;
● 单击窗体时,在窗体上输出文字为“当前字体:黑体,当前字号:20”,其中字体和大小为窗体的当前输出值;
● 双击窗体时,显示信息被清除。
form1
设置属性: caption="窗体示例1" backcolor="&H8000000D&" forecolor="&H00C000C0&"
代码:
sub form_click()
FontSize = 20
FontName = "黑体"
print "当前字体:黑体,当前字号:20"
end sub
Private Sub Form_DblClick()
Cls
End Sub
4、在窗体上画两个命令按钮和一个标签,把两个命令按钮的标题分别设置为“缩小”和“放大”;把标签的标题设置为“vb程序设计”。当程序运行后,如果单击第一个命令按钮,则可使标签中的字缩小2倍;如果单击第二个命令按钮,则可使标签中的字扩大1.5倍。
设置属性 command1 的caption="缩小"
command2 的caption="放大"
label1 的caption ="vb程序设计" 及 autosize=true
代码:
sub command1_click()
label1.fontsize=label1.fontsize/2
end sub
sub command2_click()
label1.fontsize=label1.fontsize*1.5
end sub
5、编程计算30+54的和,并在窗体上输出。
sub command1_click()
print "30+54=" & (30+54)
end sub
6、设a=5,b=2.5,c=7.8,编程计算 y=∏ab/(a+b*c)
sub command1_click()
const pi as single=3.1415927
dim a as single,b as single,c as single,y as single
a=5
b=2.5
c=7.8
y=pi*a*b/(a+b*c)
print y
end sub
7、编程计算半径为5的圆面积及周长
sub command1_click()
const pi as single=3.1415927
dim c as single,s as single,r as single
r=5
c=pi*r*2
s=Pi*r*r
print "r=" & r & "; C=" & c & "; S=" & s
end sub
8、利用vb实现本息计算器的作用,通过输入本金,期限和利率,计算并分别显示到期利息及本息和。
text1 本金输入 text2 期限输入 text3 利率输入(输入小数,如2.25%应输入0.00225) command1 执行计算 text4 到期利息及本金和
sub command1_click()
'到期所得=利息+本金=本金*时间*利率+本金
text4.text=csng(text1.text)*csng(text2.text)*csng(text3.text)+text1.text
end sub
9、计算1到100之间的偶数累加之和。
sub command1_click()
dim add as integer
for i=1 to 100
if i mod 2=0 then
add=add+i
end if
next
print add
end sub
10、点击确定改变文本框中的字体、字型和字号,设计界面和编写程序代码。
CommonDialog1
command1 的 caption ="确定"
text1
代码:
Sub command1_click()
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
除了第六题和10题不知道你在说什么。其它的应该都没有问题。可messege我。太晚了。我要睡了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询