重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
不知道下面的符不符合你的要求,不符合请提出来
成都创新互联公司主营南皮网站建设的网络公司,主营网站建设方案,重庆APP软件开发,南皮h5成都小程序开发搭建,南皮网站营销推广欢迎南皮等地区企业咨询
效果界面如下:文本框--txtName 按钮--btnNameShow
按下按钮后提示框出现
代码:
Private Sub btnNameShow_Click(sender As System.Object, e As System.EventArgs) Handles btnNameShow.Click
MsgBox(txtName.Text + " 你好!")
End Sub
参考:
以下为十行的杨辉三角输出,根据这个自己做相应修改,都做好了,那你就是伸手党了。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim n As Integer
n = 10
Dim dete(n, n) As Integer
Dim sum As Integer
For i = 0 To n
For j = 0 To i
If i = 0 Then
dete(i, j) = 1
ElseIf j = 0 Then
dete(i, j) = 1
ElseIf i = j Then
dete(i, j) = 1
Else
dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)
End If
Next
Next
For i = 0 To n
For j = 0 To i
Debug.Write(dete(i, j) " ")
sum += dete(i, j)
Next
Debug.WriteLine(" ")
Next
End Sub
End Class
简单四则运算转换,查下vbscript的转换字符串为算式就有例子。
简单的解决不了的,自己写逐字分析字符串,然后换成计算。
把Form_Load中的代码全部剪切到一个别的过程中试试,比如按钮Click或窗体双击事件中。