vb程序设计作业,VB程序设计任务作业求答案

vb程序设计作业,VB程序设计任务作业求答案详细介绍

本文目录一览： 求教一道VB程序设计题，题目如下

代码部分如下：
sub command1_click()
dim a(1 to 3, 1 to 3) as integer, s as integer, i as integer,j as integer
s=0
for i=1 to 3
for j=1 to 3
a(i,j)=int(rnd*9)+1
s=s+a(i,j)
print a(i,j)," ";
next j
print
next i
print s
end sub

VB程序设计任务作业求答案

1.C；2.C；3.B；4.C；5.C；6.C；7.B；8.C；9.B；10.A；11.C；12.C；13.D；14.B；15.B；16.B；17.C；18.A；19.A；20.C；
vb6.0中应用面向对象的程序设计方法,采用事件驱动的编程机制。vb6.0的主要功能特点是具有面向对象的可视化设计工具,非常适合用于图形界面的编程方式vb6.0有三种工作模式:设计模式、运行模式、中断模式。当进入vb集成环境,发现没有显示"工具箱"窗口,应选择“视图”菜单的工具箱选项,使"工具箱"窗口显示。对象的属性是指对象的特征,即对象的数据。对象的方法是指对象所固有的,可以完成某种任务的功能。用vb建立一个完整的应用程序的过程:1)创建并保存一个工程;2)添加窗体和模块;3)添加控件，设计用户界面;4)编写程序代码;5)调试运行工程;6)编译工程。

可视化程序设计（VB）作业 求助

同求此问题，求大神回答
下面程序的功能是什么？答：判断一个数各位上的偶数个数。
有下面一段程序，运行后单击Command4按钮，过3分钟后Text1中的内容是什么？
答：18.
在Visual Basic中可使用哪些格式的图形文件？
答：BMPJPGGIFICO（注意 只支持8位色的）CUR（注意 只支持8位色的）D
ragMode 属性的作用：返回或设置一个值，确定在拖放操作中所用的是手动还是自动拖动方式。
叙述InputBox函数和MsgBox函数的调用情况。
答：首先要弄清除MSGBOX主要功能是“提示”，用户根据提示，点击鼠标，程序接收这个用户的选择即INTEGER值（例如：VBYES,VBNO等等），程序根据用户的选择决定执行什么功能。而INPUTBOX主要功能是“接收”，接收一个STRING变量，当然可以给INPUTBOX指定一个默认值。另外，用户点击“取消”返回一个空值。程序对用户输入的值进行处理，INPUTBOX返回的结果是程序下一步运行的参数。二者不可混为一谈。

VB程序设计题作业求救啊！帮忙回答一下，感激不尽！

行
同学
作业
1、
Private Sub Command1_Click()
n = Text1.Text
If n Mod 2 = 0 Then
Label1.Caption = "偶数"
Else
Label1.Caption = "奇数"
End If
End Sub
2、
Private Sub Command1_Click()
For i = 1 To 100
s = s + i ^ 2
Next i
Print s
End Sub
3、
Private Sub Command1_Click()
Dim a(3) As Integer
For i = 1 To 3
a(i) = InputBox("请输入第" & i & "个数")
Next i
Max = a(1)
For i = 2 To 3
If Max < a(i) Then Max = a(i)
Next i
Print Max
End Sub
4、
Private Sub Command1_Click()
s = 1
t = 1
Do
i = i + 1
t = t + i
s = s + 1 / t
Loop Until 1 / t <= 10 ^ -2
Print s
End Sub

《高级语言程序设计(VB.NET)》作业

(1)
Sub Main()
Dim 字符串数组(3) As String
For I As Integer = 0 To 3
字符串数组(I) = Console.ReadLine
Next
For Each 字符串 As String In 字符串数组
Console.WriteLine(字符串)
Next
Console.ReadLine()
End Sub
(2)
请注意，如果在数组文本中提供了元素值，则无需指定索引上限。 如果不指定上限，将根据数组文本中值的数量来推断数组大小。这段文字抄自 MSDN。初值就是大括号里的值。
（3）
2.5-x=2,y=4；8-x=8,y=9；4-x=4,y=8；15-x=15,y=226
（4）
f(0)=1 f(1)=1 f(2)=2 f(3)=3
f(4)=5 f(5)=8 f(6)=13 f(7)=21
f(8)=34 f(9)=55 f(10)=89
您自己做做不行？

关于一个VB程序设计

程序界面如上图所示：一个标签（名称为Label1)，三个复选框（名称分别为Check1、Check2和Check3,Caption属性分别为红、绿和蓝）一个命令按钮（名称为Command1,Caption属性为结束）,完成程序功能的代码如下：
Dim red As IntegerDim green As IntegerDim blue As Integer
Private Sub Check1_Click()If Check1.Value = 1 Then red = 255Else red = 0End IfLabel1.BackColor = RGB(red, green, blue)End Sub
Private Sub Check2_Click()If Check2.Value = 1 Then green = 255Else green = 0End IfLabel1.BackColor = RGB(red, green, blue)End Sub
Private Sub Check3_Click()If Check3.Value = 1 Then blue = 255Else blue = 0End IfLabel1.BackColor = RGB(red, green, blue)End Sub
Private Sub Command1_Click()EndEnd Sub
Private Sub Form_Load()red = 0green = 0blue = 0Label1.BackColor = RGB(red, green, blue)End Sub

VB程序设计题跪求！！

在窗口的Click事件中弹InputBox框，
InputBox返回OK后，调用窗口的Print方法，在界面上打印。
Private Sub Form_Click()
a = Val(InputBox("请输入一个数", "数值a"))
b = Val(InputBox("请输入第二个数", "数值b"))
Print "输入的数值是:"; a, b
t = a: a = b: b = t
Print "交换后的数值是:"; a, b
End Sub
Private Sub Form_Load()
Form1.Caption = "单击窗体输入数据"
End Sub

VB程序设计题

用编写语句，先插入一个按钮，改变它的caption属性，然后双击那个按钮，开始编写语句，比如像结束就用.....=“end"
其实你这个程序很麻烦的：
首先，建立控件：
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程序设计。

Private Sub 清屏按钮_Click(sender As Object, e As EventArgs) Handles 清屏按钮.Click
For Each 控件 As Control In Me.Controls
If 控件.GetType = 美元框.GetType Then
控件.Text = ""
End If
Next
End Sub
Private Sub 人民币2美元_Click(sender As Object, e As EventArgs) Handles 人民币2美元.Click
If 人民币框.Text <> "" And 汇率框.Text <> "" Then
Dim 人民币 As Decimal = CDec(人民币框.Text)
Dim 汇率 As Decimal = CDec(汇率框.Text)
美元框.Text = (人民币 * 汇率).ToString("#.##")
End If
End Sub
Private Sub 美元2人民币_Click(sender As Object, e As EventArgs) Handles 美元2人民币.Click
If 美元框.Text <> "" And 汇率框.Text <> "" Then
Dim 美元 As Decimal = CDec(美元框.Text)
Dim 汇率 As Decimal = CDec(汇率框.Text)
人民币框.Text = (美元 * 汇率).ToString("#.##")
End If
End Sub
Private Sub 结束按钮_Click(sender As Object, e As EventArgs) Handles 结束按钮.Click
End
End Sub
Private Sub 主窗体_Load(sender As Object, e As EventArgs) Handles MyBase.Load
VBP.Text = "VISUAL BASIC PROGRAMMING"
老师.Text = "i am a teacher."
人民币兑换.Show()
End Sub
Private Sub 转换按钮_Click(sender As Object, e As EventArgs) Handles 转换按钮.Click
If VBP.Text <> "" Then
VBP.Text = StrConv(VBP.Text, VbStrConv.Lowercase)
老师.Text = StrConv(老师.Text, VbStrConv.Uppercase)
End If
End Sub
Private Sub 统计按钮_Click(sender As Object, e As EventArgs) Handles 统计按钮.Click
字符统计框.Text = CStr(VBP.Text.Length)
End Sub
Private Sub 取字符串按钮_Click(sender As Object, e As EventArgs) Handles 取字符串按钮.Click
前六个字符.Text = VBP.Text.Substring(0, 6)
End Sub

VB程序设计习题

1.
x = Val(InputBox("Input X: "))
If x < 10 Then y = Abs(x)
If x <= 20 Then y = Sqr(3 * x - 1)
If x > 20 Then y = 3 * x + 2
Debug.Print y
2.
x = Val(InputBox("Input X: "))
If x < 10 Then
y = Abs(x)
ElseIf x <= 20 Then y = Sqr(3 * x - 1)
ElseIf x > 20 Then y = 3 * x + 2
End If
Debug.Print y
3.
x = Val(InputBox("Input X: "))
select case x
case x < 10
y = Abs(x)
case <= 20
y = Sqr(3 * x - 1)
case else
y = 3 * x + 2
end select
Debug.Print y
1
x=val(inputbox("输入:"))
if x<10 then y=abs(x)
if x>=10 and x<=20 then y=3*x-1
if x>20 then y=3*x+2
?y
2
if x<10 then
y=abs(x)
elseif x<=20 then
y=3*x-1
else
y=3*x+2
endif
?y
3
select case x
case is<10
y=abs(x)
case 10 to 20
y=3*x-1
case else
y=3*x+2
end select
?y
(1) if
endif
if
endif
if
endif
(2)if
else if
else
endif
(3)select case x