求一个VB编写的 将数据库里的数据用简单曲线显示的小程序

Dim X(1 To 11) As Long: Dim Y(1 To 11) As Long

Private Sub Command1_Click()

Dim X1 As Long: Dim Y1 As Long

Dim X2 As Long: Dim Y2 As Long

X1 = 0

Y1 = 2000

For i = 1 To 11

X2 = (3000 / 150) * X(i)

Y2 = 2000 - (2000 / 100) * Y(i)

Picture1.Line (X1, Y1)-(X2, Y2), vbRed

X1 = X2: Y1 = Y2

Next

End Sub

Private Sub Form_Load()

Picture1.Width = 3000

Picture1.Height = 2000

For i = 1 To 10

X(i) = CInt(150 * Rnd)

Y(i) = CInt(100 * Rnd)

Debug.Print "x=" &X(i) &" " &"y=" &Y(i)

Next

Dim minX As Long: Dim minY As Long

For i = 1 To 9

For j = i + 1 To 10

If X(i) >X(j) Then

minX = X(i): X(i) = X(j): X(j) = minX

End If

可以使用 Python 中的字典（dictionary）来实现一个简单的增删改查程序。具体实现步骤如下：

创建一个空字典用于存储数据。

通过循环菜单的方式，让用户可以选择添加、修改、删除、显示、退出等功能。

根据用户的选择执行相应的 *** 作，例如肆闷搏添加数据就让用户输入键值对，修改数据就让用户选择要修改的键和新值，删除数据就让用户选择要删除的键，显示数据就输出整个字典，退出就结束程序。

下面是一个简单的代码示例：

data = {} 裂祥 # 创建空字典用于存储数据

while True:

print('请选择 *** 作：')

print('1. 添加数据')

print('2. 修改数据')

print('3. 删除数据')

print('4. 显示数据')

print('5. 退出程序')

choice = input('请输入选项：')

if choice == '1':

key = input('请输入键：')

value = input('请输入值：')

data[key] = value

print('添加成功！')

elif choice == '2':

key = input('请输入要修改的键：')

if key in data:

value = input('请输入新值：')

data[key] = value

print('修改成功！')

else:

print('该键不存在！')

elif choice == '3':

key = input('请输入要删除的键：')

if key in data:

del data[key]

print('删除成功！')

else:

print('该键不存在！')

elif choice == '4':

print(data)

elif choice == '5':

print('谢谢使用，再见！')

break

else:

print('输入错误，请重新选择。')

这个程序简单易罩枣懂，可以根据自己的需要进行修改和扩展。

这是因为 setData 方法只能设置一个值，而你在 console.log 中打印了多行。

如果要在 pageData 中显示多行数据，可以将其更改为一个数组，并段谈孝在循环握稿中将每个时间侍友推入数组中。例如：

 let times = [] 

// 循环中 

let d = new Date(item.time.replace(/-/g, '/')).getTime()

let time = timeHandle(d)

times.push(time) 

// 循环结束后 

this.setData({ 

pageData:times 

})

如果你要显示最新的时间那么可以在循环结束后使用unshift方法添加到数组的第一个位置

---