vb程序设计爱心代码(爱心代码编程)

大家好，感谢邀请，今天来为大家分享一下vb程序设计爱心代码的问题，以及和爱心代码编程的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！

vb程序设计题求解!!!谢谢各位了!!

Option Explicit

Private Sub Command1_Click()

Dim h0 As Integer, s As Single, a(1 To 20) As Single, i As Integer

a(1)= 100'第一个扔下的高度

For i= 2 To 20'每一个数组内数据表示小球行走的一个方向的路程，也就是奇数项是从最高点落下的路程，偶数项是从地面反弹到最高点的路程

a(i)= a(i- 1)/ 2

Next i

For i= 1 To 19'第10次落地的总路程

s= s+ a(i)

Next

Print"第10次落地的总路程:"& s

Print"最后一次弹起的高度："& a(20)'我这里是把第10次落地以后弹起的高度当做最后一次谈起的高度

End Sub

Private Sub Command2_Click()

Dim n_a() As Integer, n_b() As Integer, n_left() As Integer

Dim i As Integer, j As Integer, k As Integer, min As Integer

'简单的方法一时想不出来，我就一个个试出来。虽然效率不是很高，不过还好数字不是很大.

For i= 0 To 321\ 17

For j= 0 To 321\ 27

If i* 17+ j* 27<= 321 Then

k= k+ 1

ReDim Preserve n_left(k)

ReDim Preserve n_a(k)

ReDim Preserve n_b(k)

n_a(k)= i

n_b(k)= j

n_left(k)= 321- i* 17- j* 27

End If

Next

Next

min= n_left(1)'求剩下最小的距离

j= 1'保存剩下最小距离的那组组合的序号

For i= 2 To k'我这里只求了一组解，也许有不同的组合而剩下距离相同的情况我就没有再列出来的··

If min> n_left(i) Then

j= i

min= n_left(i)

End If

Next

Print"最小剩余组合：17m X"& n_a(j)&"根，27m X"& n_b(j)&"根，剩余最小长度为"& n_left(j);"m"

End Sub

第三题我回答过了··你看下面的网址的第一题···

vb程序设计

VB是Visual Basic编程语言

编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样，计算机编程语言也有很多。目前较为广泛使用的语言有“C++”、“Pascal”、“Basic”等。在众多的计算机编程语言中，以BASIC语言最为易学易用。

BASIC是英文Beginner’s All purpose Symbolic Instruction Code的缩写，意思为初学者通用符号指令代码，一直都是程序设计入门的首选语言。

1991年，Visual Basic(简称VB)面世，他是第三代BASIC语言，它不但秉承了BASIC语言的易学易用的优点，而且增加了图形界面设计工具。它简化了复杂的窗口程序编写过程，让编程者将更多的精力致力于问题的求解过程。

VB程序设计编程

按你的要求：

设计一个替换字符的程序，界面如图所示。在“原字符串”中输入一个字符串，在“指定字符”中输入一个原字符串中包含的字符串，在“替换为”中输入将指定字符替换后的内容，单击“替换”按钮，将原字符串中指定的内容替换后连接成新的字符串显示在“新字符串”中；单击“退出”按钮，结束程序运行。

制作完成，代码如下：

OK，本文到此结束，希望对大家有所帮助。