www.ndwl.net > 一道VB求详解

一道VB求详解

首先x=4是个干扰项,因为在j循环又对i重新赋值3,你可以把x=4去掉试试,不影响结果, 从最外层循环体for i= 1 to 4开始, i=1,x=4,这时j=1,x=3,k=1,x=x+6=9 k=2, x=x(上一个)+6=9+6=15 j=2,k=1 k=2 j=3,k=1 k=2 (往后的循环并没有改变x的...

第一题 Private Sub Form_Click() Me.Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Me.Label1.Caption = "你双击了窗体" End Sub 第二题 Private Sub Command1_Click() If Me.Command1.Caption = "清屏" Then Me.Cls M...

结果:

'对text1_keypress事件的代码作了若干修改,其它修改的地方看注释Dim a, b, c, score, n '程序中有几个变量的全程变量,应该事先申明Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Val(Text1.Text) = c Then score...

答案是A。 一个工程可以从窗体或Sub过程启动。 除窗体外,Picture等控件也可以做为容器。 Unload Me只是卸载当前窗体,而End是结束整个程序。

Private Sub Command1_Click() Dim k, n Do Until k >= 26 n = n + 1 k = 13 * (1 + 0.008) ^ n Loop Print n & "年后人数为:" & k End Sub

如题目原文如此,则程序没有问题,完全正确。 具体要看题目的要求。 比如:“奇数日通行”,还是“偶数日限行”?

VB6新建一工程,拖一个的按钮控件。 进入代码区,删除所有代码后,粘贴以下代码即可。 Option ExplicitDim X1() As Double '记录输入的数据Dim L As LongDim Y1 As Long '记录输入的负数个数Private Sub Command1_Click()Dim T1 As String, X2 A...

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim m As Integer If Asc(e.KeyChar) = 13 Then If IsNumeric(TextBox1.Text) Then Label1.Tex...

额😓用字典收录26字符对照表吧!输出的时候直接用字典输出。至于限制小写26字符,inputbox貌似没有直接提供功能,试试条件触发吧

网站地图

All rights reserved Powered by www.ndwl.net

copyright ©right 2010-2021。
www.ndwl.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com