输入一个两位正整数，个位和十位交换后在LABEL1上和窗体上分别输出。PRIVATE SUB FORM-CLICK( )DIM X AS INTE_刷题宝

题干

输入一个两位正整数，个位和十位交换后在LABEL1上和窗体上分别输出。
PRIVATE    SUB   FORM-CLICK(   )
DIM   X   AS   INTEGER, G AS   INTEGER
DIM   S AS    INTEGER , Y AS   INTEGER
X=VAL(INPUTBOX(“请输入一个两位正整数”))
G=________    ‘个位
S=________    ‘十位
Y=________   ‘新数
________
________
END    SUB

上一题下一题 0.99难度填空题更新时间:2019-09-06 12:34:30

答案(点此获取答案解析）

同类题1

2 * 3^2 + 2 * 8 / 4 + 3^2的值是

同类题2

当x=10时，print “x=”;x+1 在屏幕上显示的结果为（）

同类题3

某算法的部分流程图如图所示，执行这部分流程，输入n的值为5，则输出值依次为

同类题4

完全平方数之和。编写 VB 程序，实现如下功能：在文本框 Text1 中输入用逗号分隔的一系列整数（每个整数的绝对值不超过 1000，个数不超过 100 个），单击“计算”按钮 Command1，计算输入的整数中的完全平方数之和（完全平方数是指一个整数能表示成某个整数的平方的形式，例如 4 是完全平方数，可以表示成 2 的平方），并将结果显示在标签 Label1 中。程序运行效果如图所示。

（1）文本框 Text1不具备的属性为___（单选，填字母：

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String
Dim i As Integer, j As Integer, ans As Long
Dim f As Boolean
ans = 0
s = Text1.Text: j = 1:____________
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = , Then
x = Val(Mid(s, j, i - j))
If___________Then
ans = ans + x
f = True
j = i + 1
ElseIf ch = "-" Then
f = False
j = j + 1
End If
Next i
Label1.Caption = "完全平方数之和为： " + Str(ans)
End Sub
（3）若文本框 Text1 中输入的内容为“-4,4,4”（不包括双引号），则标签 Label1 中输出的内容为“完全平方数之和为：__”。

同类题5

若变量a=2，b=1，则逻辑表达式：
not(a> -b) or (a+b="3)" and (a<b)的值为_______。

相关知识点