ldcf.net
当前位置:首页 >> 我想请问一道vB题目 >>

我想请问一道vB题目

sum()是一个自定义函数, form_click()是窗体单击事件, sum()函数在窗体被单击时调用。

Private Sub Text1_KeyPress(KeyAscii As Integer)If Len(Text1.Text) > 15 ThenText2.Text = Text2.Text & Chr(KeyAscii)KeyAscii = 0Text2.SelStart = Len(Text2.Text)Text2.SetFocusEnd IfEnd Sub

先弹出一个窗口提示:1.运行vb应用程序 3.计算器 请输入数字选择 输入后返回

Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer, sum As Double a = Val(Text1.Text) b = Val(Text2.Text) If a >= b Then Text3.Text = "输入错误,请使得a

Private Sub Form_Click() Dim s As String, i As Integer, n As Integer s = InputBox("input your str...", , "abCDEf") For i = 1 To Len(s) Select Case (Mid(s, i, 1)) Case "a" To "z" n = n + 1 End Select Next MsgBox "character:" & n...

第1个框,改为: n mod 2 = 1 第2个框,改为: t > k

'全局下写 dim a,b,c,d '点击+号时的单击事件下写: c=1 '1是为了识别所点的为加号 a=Val (text1.txt) text1.txt="" '点击=号时单击事件下写: b=val (text1.txt) if c=1 then d = a + b text1.txt = d endif 就这意思,自己看着写,全写完太长了

由图上代码,经运行所得值如下: a(3,2) 的值是 1,a(1,2) 的值是9,a(2,3) 的值是 7. 如下图所示:

第二次单击命令按钮,输出结果是 18 你上面的代码上些许错误,改正的代码如下: Private Sub Command1_Click() Dim n As Integer, t As Long Static s As Integer t = 1 For n = 1 To 3 t = t * n s = s + t Next Print sEnd Sub

1.题目抄错了。理由:①变量C未与text1_keyup事件截获的形参keycode、shift中的任何一个相联系,因此text2.text显示的Chr(Asc(C)+2)的运算结果与“在文本框text1中输入字母时”(确切地说,是“抬起按下的某个键时”)无关,所以text2.text的显示不可...

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com