下面程序的功能是

下面程序的功能是：计算f=1-1/(2*3)+1/(3*4)-1/(4*5)+„„+1/(19*20)

Private Sub Form_Click()

Dim f,i,sign As Integer f = 1 f = f + sign / (i * (i + 1)) Next i

Print “f=”;f

End Sub

11.下面的程序是在一个字符串变量中查找“at”，并用消息框给出查找结果的报告：没有找到或找到的个数，程序如下：

Public Sub Findat()

Dim Str1 As String

Dim length As Integer

Dim sum As Integer

Dim i As Integer

Str1 = InputBox (“请输入一个字符串”) i = 1

sum = 0 “at” Then

sum = sum + 1

End If

i = i + 1

Loop MsgBox “没有找到！”

Else

MsgBox “找到了” & Str (sum) & “个”

End If

End Sub

下面程序的功能是：单击窗体后，输入英文句子，将其每个单词首字母变为大字字母，再输出

Private Sub Form_Click()

Dim oldsen As String, newsen As String

Dim char As String, lastchar As String

Dim n As Integer, i As Integer

oldsen = InputBox("请输入英文句子：")

n = Len(oldsen)

lastchar = " "

For i = 1 To n

char = Mid(oldsen, i, 1)

If lastchar = " " Then

char = UCase(char) '变为大写

End If

newsen = newsen & char

lastchar = char Next i

Print "input：" ； oldsen

Print "output：" ； newsen

End Sub

编写程序，使用InputBox函数输入两个电阻的值，求它们并联和串联的电阻值，使用MsgBox消息框输出结果，要要求保留三位小数

Sub Macro2()

Dim s1, s2 As String

Dim n5

Dim n1, n2, n3, n4 As Single

s1 = InputBox("请输入两电阻的阻值，之间用半角逗号“,”分隔", "提示信息")

n1 = Val(s1)

n2 = Val(Mid(s1, InStr(s1, ",") + 1))

If n1 > 0 And n2 > 0 Then

n3 = Round(n1 + n2, 3) '串联电阻值

n4 = Round(n1 * n2 / (n1 + n2), 3) '并联电阻值

n5 = MsgBox(n1 & "Ω和" & n2 & "Ω两个电阻的" & Chr(13) & "串联电阻值为：" & n3 & "Ω" & Chr(13) & "并联电阻值为：" & n4 & "Ω", , "计算结果")

Else

n5 = MsgBox("两电阻值输入有错，请重新输入！", , "错误提示")

End If

End Sub

用inputbox函数输入3个数据，如果这3个数据能构成三角形，计算并在窗体上输出三角形面积。

Private Sub Command1_Click()

Dim a, b, c, s, x

a = Val(InputBox("请输入第一条边长"))

b = Val(InputBox("请输入第二条边长"))

c = Val(InputBox("请输入第三条边长"))

If a + b > c And a + c > b And b + c > a Then

Print "能组成三角形"

x = 1 / 2 * (a + b + c)

s = Sqr(x * (x - a) * (x - b) * (x - c))

Print "三角形面积s="; s

Else

Print "不能组成三角形"

End If

End Sub

编程计算下列分段函数值

f(x)=1.x2+x-6 x

2.x2-5x+6 0

3.x2-x-1 其他

if x

f=x^2+x-6

elseif x=0 and x2 and x3 then

f=x^2-5*x+6

else

f=x^2-x-1 end if Function jc(n As Integer) As Long 编写程序计算1+2!+3!+4!+„„+10!的程序

Private Sub Form_Click()

Dim s As Double

m = 1

For n = 1 To 10

m = m * n

s = s + m

Next

Print s

End Sub

用VB编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数本身。例如，153是水仙花数，因为153=13+53+33，

Private Sub Command1_Click()

Dim i As Integer

For i = 100 To 999

If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i

Next

End Sub

下面的程序是将输入的一个数插入到递减的有序数列中，插入后使该序列仍有序。 SubButton1_Click(.....) Handles Button1.Click

Dim i% , n% ,m%

Dim a() As Integer={21,19,17,15,13,11,9,7,5,3,1}

n=UBound(a)

m= Val(InputBox("输出欲插入的数"))

For i=UBound(a) -1 To Step -1

If m>=a(i) Then

If i=0 Then a(i)=m

Else

Exit For

End If

Next i

Label1.Text &=a(i) & " "

Next i

End Sub

编一程序，将一维数组中元素向右循环移位，移位次数键盘输入。

SUB SHIFT_LEFT()

DIM TEMP I

TEMP=A(1)

FOR I=2 TO 10

A(I-1)=A(I)

NEXT I

A(10)=TEMP

END SUB

输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择法将数组b中的数据按从小到大排序，并将数组b以每行10个数据在窗体上输出。 Private Sub Command1_Click() For I = 2 To J

Dim I As Integer, J As Integer, K As For K = 1 To I

Integer If b(K) > b(I) Then

Dim a(1 To 100) As Single b(0) = b(K)

Dim b(100) As Integer b(K) = b(I)

J = 0 b(I) = b(0)

For I = 1 To 100 End If

Randomize (Timer) Next K

K = Int(Rnd() * 2) + 1 Next I

'If K = 1 Then a(I) = Int(Rnd() * 1000 + 1) / For I = 1 To J

10 Else a(I) = Int(Rnd() * 100 + 1) Print b(I);

a(I) = InputBox("请输入第" & I & "个数：") If I Mod 10 = 0 Then Print

If a(I) = Int(a(I)) Then J = J + 1: b(J) = a(I) Next I

Next I End Sub

顺序文件的建立。建立文件名为" C：\stud1.txt"的顺序文件，内容来自文本框，每按Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入"END"字符串。

Private Sub Form_Load()

Open "C:\stud1.txt" For Output As #1

Text1.text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If UCase(Text1.Text) = "END" Then

Close #1

End

Else

Print #1 , Text1.Text

Text1.text = ""

End If

End If

End Sub

将C盘根目录下的一个文本文件old.txt复制到新文件new.txt中，并利用文件操作语句将old.txt文件从磁盘上删除。

Private Sub Command1_Click()

Dim str1$

Open "C:\old.txt" For Input As #1

Open "C:\new.txt" For Output As #2

Do While Not EOF(1)

Line Input #1,str1

Print #2 , str1

Loop

Close #1,#2

Kill "C:\old.txt"

End Sub

4. 下面程序的功能是将文本文件合并。即将文本文件“t1.txt”合并到“t.txt”文件中，请将程序填写完整。

Private Command1_Click()

Dim s$

Open "t.txt" For Append As #1

Open "t1.txt" For Input As #2

Do While Not EOF(2)

Line Input #2 , s

Print #1 , s

Loop

Close #1, 2#

End Sub

假定文本框名称为txtTest，文件名为MYFILE.TXT。可以通过下面三种方法来实现。 方法1：一行一行读

txtTest.Text ＝ "" 方法3：一个个字符读

Open "MYFILE.TXT" For Input As #1 Dim InputData as String*1

Do While Not EOF(1) txtTest.Text ＝ ""

Line Input #1, InputData Open "MYFILE.TXT" For Input As #1 txtTest.Text ＝ txtTest.Text + Do While Not EOF(1)

InputData+vbCrLf Input #1, InputData

Loop txtTest.Text ＝ txtTest.Text + InputData Close #1 Loop

方法2：一次性读 Close #1

txtTest.Text ＝ ""

Open "MYFILE.TXT" For Input As #1

txtTest.Text = Input( LOF(1),1)

Close #1