VB编写基础程序！高手来~高悬赏

（2）任意输入一个字符串S,两个整数start,n。求出该字符串S中从位置start开始，长度为n的子字符串。
（3）任意输入存款金额，存款年利率及存款年数，计算到期金额。

补充：（1）用TEXT和INPUTBOX函数两种方法实现。
（2）可以使用mid函数求子字符串。
 
 

追问：input box

答案：用VB编写都很简单，但是要提前声明变量。我好长时间没写这种纯运算的程序了。
给你大体写下：
（1） dim a,b,c as integer  ' 定义ABC为整数
  
 A =Inputbox("请输入系数A：","数据输入","0"）    'INPUT函数格式：<变量名>=Inputbox（<提示信息>[,<对话框标题>][,<默认值>]）
 B =Inputbox("请输入系数B：","数据输入","0"）
 C =Inputbox("请输入系数C：","数据输入","0"）
'如果不用input函数可以绘制TEXT控件，TEXT控件名如：a = text1.text ，b=text2.text ，c =text3.text
'上面的a=text1.text 是把text控件的值赋给变量a，方便使用公式 X1=(-B+Sqr(B^ 2-4AC))/2A 
   X1=(-B+Sqr(B^ 2-4AC))/2A  运用求根公式
   X2=(-B-Sqr(B^ 2-4AC))/2A
现在X1,X2的值都出来了，可以根据自己需求选择在哪里输出，用弹出提示框（msgbox函数），还是窗体输出（print函数）
（2） 这个题用字符串截取代码来搞定就可以了。
      mid(S,start,n)      ' 这个截取是中间截取，S是字符串，从start位置开始，截取N位。
（3） 计算利息的这个需要了解利息计算公式。
    本金×年利率×存款年数（即存期）×（1-利息税）= 税后利息  '这个是国家的税后利息计算公式
由此我们可以得知不缴税的公式为：
    本金×年利率×存款年数（即存期）=利息
 a =Inputbox("请输入本金金额：","本金输入","0"）
 b =Inputbox("请输入年利率：","年利率输入","0"）
 c =Inputbox("请输入存款年数：","存款年数输入","0"）
d=a*b*c+a
d（到期金额）=a*b*c（利息）+a（本金）
 

由于题目是计算到期金额，那么用利息加本金不就是到期金额了吗？

输入问题可以用input函数也可以绘制text控件和按钮来控制。
程序开发重要的是举一反三，希望你可以学的更好！兴趣是最好的老师。不会还可以问我。
加q:3 1 2 5 3 1 0 3 3 多交流
 
对我的答案不满意吗？为什么不追问或者评价呢？
第2题说清楚点，输入方式是什么如TEXT还是INPUTBOS
On Error GoTo errHandle
Dim strInput As String
Dim start As Long, length As Long
strInput = InputBox("请输入一个字符串", "输入", "")
start = InputBox("请输入起始位置", "输入", "1")
length = InputBox("请输入长度", "输入", "1")
MsgBox Mid(strInput, start, length)
Exit Sub
errHandle:
MsgBox Err.Number & vbTab & Err.Description 

题2大案

题1用函数TEXT
题3就是乘法
第三题：option explicit 
private sub command1_click()
dim money as single,interest as single,year as integer
money=val(text1.text)
year=val(text2.text)
interest=val(text3.text)
text4.text=monoy*interest*year
end sub

上一个：详细介绍一下VB PictureBox的print和cls方法
下一个：vb中怎样实现adsl宽带的断开和连接？